Programmation VBA pour Excel

Résolu
Farfadet88 Messages postés 7780 Statut Membre -  
Farfadet88 Messages postés 7780 Statut Membre -
Bonjour,

Je cherche à effectuer un contrôle sur une page afin que ,si l'une des cases voulues (C4,c5,c6 et c7) n'est pas remplie, une msgbox apparraisse et , dans le cas contraire elle accède à l'onglet "sécurité"

J'ai composé le code suivant:

Sub Bouton11_QuandClic()

If Range("c4").Value = Empty Then MsgBox "Merci de remplir l'ensemble des cases avant de passer à l'étape suivante"
If Range("c5").Value = Empty Then MsgBox "Merci de remplir l'ensemble des cases avant de passer à l'étape suivante"
If Range("c6").Value = Empty Then MsgBox "Merci de remplir l'ensemble des cases avant de passer à l'étape suivante"
If Range("c7").Value = Empty Then MsgBox "Merci de remplir l'ensemble des cases avant de passer à l'étape suivante"

End Sub

Le souci que je rencontre est que la msgbox s'affiche autant de fois qu'il y a de cases vides alors qu'il faudrait qu'elle n'apparaisse qu'une fois.

Que dois-je changer?

Merci d'avance
A voir également:

1 réponse

michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 318
 
bonjour

if application.countA(range("C4:C7"))<4 then
Msgbox "....
end if
1
Farfadet88 Messages postés 7780 Statut Membre 1 370
 
Ca marche parfaitement.

Merci beaucoup
0