MSGBOX QUIS'AFFICHE PLUSISEURS FOIS

Fermé
Degsher Messages postés 72 Date d'inscription mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 - 16 avril 2020 à 21:41
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 18 avril 2020 à 05:43
Actuellement je suis un peu coincé à un autre niveau.. En fait j'aimerais savoir pourquoi le msgbox se lance plusieurs fois alors que j'aimerais qu'il ne s'affiche qu'une seule fois..

Je m'explique. J'ai crée un msgbox qui m'informe que tant que certains champs du formalaire ne sont pas remplis, je ne peux procéder à une action.. Par exemple, si je dois passer une écriture, il faut que le journal soit sélectionné, le nom du fournisseur ou du client soit saisi et d'autres informations encore.

Voici le code:

If Range("c1") = "" Or Range("c3") = "" Or Range("c5") = "" Or Range("f3") = "" Or Range("f5") = "" Then
MsgBox "Tous les champs du formulaire ne sont pas renseignés. Veuillez les renseigner avant d'enregistrer une écriture.", vbInformation + vbOKOnly, "CHOIX DE LA CAISSE"
Range("c10").Select

ElseIf Range("c1") <> "" And Range("c3") <> "" And Range("c5") <> "" And Range("f3") <> "" And Range("f7") <> "" And Range("f5") <> "" And Range("f5") <> "" And Range("c10") = "" And Range("d10") = "" And Range("e10") = "" And Range("f10") = "" And Range("g10") = "" And Range("h10") = "" And Range("i10") = "" Then

MsgBox "Tous les champs du formulaire sont à présent remplis.", vbOKOnly + vbInformation, "INFORMATION"

End If

Merci bien !

Amicalement !

6 réponses

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
17 avril 2020 à 07:09
Bonjour,

Il suffit d'ajout un "Exit sub" après le MsgBox, ainsi le programme s'arrêtera dès qu'une cellule ne sera pas remplie.

Cdlt
0
Degsher Messages postés 72 Date d'inscription mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 1
17 avril 2020 à 11:07
Salut Frenchie ! J'ai essayé d'ajouter un exit sub après le msgbox mais le msgbox s'affiche chaque fois que je sélectionne une cellule..
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
17 avril 2020 à 11:26
C'est que vous n'aviez pas dit que votre macro était une macro évènementielle (qui réagit à la sélection d'une cellule) au lieu de l'avoir mise dans un module standard. Mais sans plus de détails, je ne peux pas en dire plus.
0
Degsher Messages postés 72 Date d'inscription mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 1
17 avril 2020 à 14:29
Oui oui effectivement ! Çà m'intrigue tout ça car à chaque sélection d'une cellule il m'affiche le même message..
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Degsher Messages postés 72 Date d'inscription mercredi 15 avril 2020 Statut Membre Dernière intervention 31 mai 2020 1
17 avril 2020 à 14:34
Comment mettre cela au module standard ??
0
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
18 avril 2020 à 05:43
Bonjour,

Et si vous mettiez l'intégralité du code à disposition pour que je puisse tester à mon tour.
0