Bonjour à tous,
Voici ci-dessous une macro qui affiche un message d'erreur lorsque les cellules "AC1,J6:j10,x6:x10,J13:J14,Y13,E16" sont vides.
Le message d'erreur indique: il manque une informatio... et donne le numéro de la cellule.
Ce que je souhaite faire c'est pouvoir modifier le message pour chaque cellule.
Exemple:
Si la cellule AC1 est vide: Il manque l'information du nom d'utilisation
Si la cellule J6 est vide: Il manque l'information de la date du jour
Ect...
Merci d'avance pour votre aide,
Bonne journée,
Kevin
Voici ci-dessous une macro qui affiche un message d'erreur lorsque les cellules "AC1,J6:j10,x6:x10,J13:J14,Y13,E16" sont vides.
Le message d'erreur indique: il manque une informatio... et donne le numéro de la cellule.
Ce que je souhaite faire c'est pouvoir modifier le message pour chaque cellule.
Exemple:
Si la cellule AC1 est vide: Il manque l'information du nom d'utilisation
Si la cellule J6 est vide: Il manque l'information de la date du jour
Ect...
Merci d'avance pour votre aide,
Bonne journée,
Kevin
VB:
Dim C As Range, ligne&
With Sheets("EFNC")
For Each C In .Range("AC1,J6:j10,x6:x10,J13:J14,Y13,E16")
If C = "" Then .Activate: C.Select: MsgBox "Il manque une information en " & C.Address(0, 0), vbInformation, "Information": Exit Sub
Next
End With