Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment empêcher l'enregistrement si une cellule spécifique est vide dans Excel?

Par exemple, vous avez conçu un formulaire dans une feuille de calcul et l'avez partagé avec vos collègues. Vous espérez que vos collègues remplissent leurs noms dans la cellule spécifique pour indiquer qui a entré ce formulaire, sinon les empêcher d'enregistrer le formulaire, comment pourriez-vous faire? Ici, je vais introduire une macro VBA pour empêcher l'enregistrement d'un classeur si la cellule spécifique est vide dans Excel.



flèche bleue droite bulleEmpêche l'enregistrement si une cellule spécifique est vide dans Excel

Pour empêcher d'enregistrer le classeur en cours si la cellule spécifique est vide dans Excel, vous pouvez facilement appliquer la macro VBA suivante.

Étape 1: ouvrez la fenêtre Microsoft Visual Basic pour Applications en appuyant sur autre + F11 clés dans l'intervalle.

Étape 2: dans l'Explorateur de projet, développez la VBAProject (votre nom de fichier de travail.xlsm) et Objets Microsoft Excel, puis double-cliquez sur le ThisWorkbook. Voir la capture d'écran à gauche:

Étape 3: Dans la fenêtre d'ouverture de ThisWorkbook, collez la macro VBA suivante:

Macro VBA: empêcher l'enregistrement si la cellule spécifique est vide

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.Sheets("TEST").Range("A1").Value = "" Then
Cancel = True
MsgBox "Save cancelled"
End If
End Sub
Remarque: Dans le code VBA, le "TEST" est le nom de la feuille de calcul spécifique et le "A1"est la cellule spécifique, et vous pouvez les changer selon vos besoins.

Maintenant, si la cellule spécifique est vide dans le classeur en cours, lorsque vous l'enregistrez, une boîte de dialogue d'avertissement s'affiche et vous indique "Enregistrer annulé"Voir la capture d'écran suivante:


flèche bleue droite bulleArticles liés



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Eduardo · 1 years ago
    hi - this was super helpful... Just had one question, how do I save the file without a value in that field? As I try to save, the VBA code will pop the "Save Cancelled" message which is the intended response, however, need to save once without a value to create the form to be reused.

    Thanks!
    • To post as a guest, your comment is unpublished.
      Tang Kelly · 1 years ago
      Hi Eduardo,
      What about typing a space in the specified cell to pretend to a blank cell? Please remind to remove the space in future!