Programmation VBA pour Excel

Résolu
Farfadet88 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -  
Farfadet88 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -
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 réponse

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

    if application.countA(range("C4:C7"))<4 then
    Msgbox "....
    end if
    1
    1. Farfadet88 Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   1 402
       
      Ca marche parfaitement.

      Merci beaucoup
      0