Programmation VBA pour Excel

Résolu/Fermé
Signaler
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
-
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
-
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

1 réponse

Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
1 décembre 2021
3 252
bonjour

if application.countA(range("C4:C7"))<4 then
Msgbox "....
end if
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 381
Ca marche parfaitement.

Merci beaucoup