Lancer une macro si cellule Excel vide Résolu/Fermé

Question

Bonjour,

Je souhaiterai qu'un message s'affiche automatiquement si jamais ma cellule "B4" dans l'onglet GESTION DES SOLDES est vide.

Par avance merci pour vos réponses.

Polux31 · Answer

Bonjour,

Mettre ce code sur l'évènement qui le test sur la cellule B4:

If worksheets("GESTION").Range("B4").Value = "" Then
   MsgBox "La cellule B4 de l'onglet GESTION n'est pas renseignée ...",vbExclamation,"Alerte"
End If

;o)

Martino_ICI · Answer

Merci Polux pour ta réponse mais je débute.

De quoi tu parles quand tu me dis de mettre le code sur l'évènement qui le test ??

Polux31 · Answer

A quel moment veux-tu être informé que cette cellule n'est pas renseignée ? (ouverture du fichier, fermeture du fichier, activation de l'onglet etc ...)

Martino_ICI · Answer

Le mieux serait à la fermeture.

Polux31 · Answer

Il faut mettre le code dans l'évènement Workbook_BeforeClose() qui se trouve dans l'éditeur VB sur le module ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("GESTION").Range("B4").Value = "" Then
   MsgBox "La cellule B4 de l'onglet GESTION n'est pas renseignée ...",vbExclamation,"Alerte"
   Cancel = True
   Worksheets("GESTION").Activate
   Worksheets("GESTION").Range("B4").Select
End If
End Sub


;o)

Martino_ICI · Answer

Alors là Polux, un grand merci.

Ca tourne impeccable.

Comme tu m'as l'air renseigné, j'ai envie d'abuser et te demander ou je peux trouver quelques tutos pour faire mes gammes.

Lancer une macro si cellule Excel vide

6 réponses

Discussions similaires