MSGBOX QUIS'AFFICHE PLUSISEURS FOIS
Degsher
Messages postés
82
Statut
Membre
-
Frenchie83 Messages postés 2254 Statut Membre -
Frenchie83 Messages postés 2254 Statut Membre -
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 !
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 !
A voir également:
- MSGBOX QUIS'AFFICHE PLUSISEURS FOIS
- Paiement 4 fois cdiscount impossible - Forum Consommation & Internet
- Problème paiement 4 fois cdiscount ✓ - Forum Consommation & Internet
- Paypal paiement 4 fois airbnb - Forum Consommation & Internet
- Site paiement plusieur fois carte nickel forum - Forum Consommation & Internet
- Problème 4 fois sans frais paypal - Forum Consommation & Internet
6 réponses
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
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
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..
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.
Oui oui effectivement ! Çà m'intrigue tout ça car à chaque sélection d'une cellule il m'affiche le même message..
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
