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

Signaler
Messages postés
18
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
10 décembre 2008
-
Messages postés
18
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
10 décembre 2008
-
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.

6 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 132
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)

Messages postés
18
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
10 décembre 2008

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 ??
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 132
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 ...)
Messages postés
18
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
10 décembre 2008

Le mieux serait à la fermeture.
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 132
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)
Messages postés
18
Date d'inscription
jeudi 28 février 2008
Statut
Membre
Dernière intervention
10 décembre 2008

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.