Programmation VBA pour Excel

Résolu/Fermé
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 14 mai 2009 à 11:08
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 - 14 mai 2009 à 11:31
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
14 mai 2009 à 11:27
bonjour

if application.countA(range("C4:C7"))<4 then
Msgbox "....
end if
1
Farfadet88 Messages postés 6293 Date d'inscription lundi 28 janvier 2008 Statut Membre Dernière intervention 29 avril 2020 1 365
14 mai 2009 à 11:31
Ca marche parfaitement.

Merci beaucoup
0