Rechercher : dans
Par :

Programmation VBA pour Excel

Dernière réponse le 14 mai 2009 à 11:31:50 Farfadet88, le 14 mai 2009 à 11:08:28 
 Signaler ce message aux modérateurs

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 Thor tue et turlutu aussi

1

michel_m, le 14 mai 2009 à 11:27:40
  • +1

Bonjour

if application.countA(range("C4:C7"))<4 then
Msgbox "....
end if Cordialement, Michel

Répondre à michel_m

2

 Farfadet88, le 14 mai 2009 à 11:31:50

Ca marche parfaitement.

Merci beaucoup Thor tue

Répondre à Farfadet88