Lancer une macro si cellule Excel vide
Résolu
Martino_ICI
Messages postés
18
Date d'inscription
Statut
Membre
Dernière intervention
-
Martino_ICI Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
Martino_ICI Messages postés 18 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Lancer une macro si cellule Excel vide
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Si ou excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
6 réponses
Bonjour,
Mettre ce code sur l'évènement qui le test sur la cellule B4:
;o)
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)
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 ??
De quoi tu parles quand tu me dis de mettre le code sur l'évènement qui le test ??
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 ...)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Il faut mettre le code dans l'évènement Workbook_BeforeClose() qui se trouve dans l'éditeur VB sur le module ThisWorkbook
;o)
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)
