Des MsgBox successives

Bonjour à tous !

Je suis nouveau ici et j'essaye d'apprendre le VBA en autodidacte du mieux que je peux.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If MsgBox("Voulez-vous vérifier la TVA sur les débits?", vbYesNo, "Vérif RAN TVA débits") = vbYes Then For i = 13 To DL If Sheets(1).Range("D" & i) = "RAN" Then Sheets(1).Range("B" & i).Select If MsgBox("La facture suivante (tiers : " & Range("B" & i) & " ) est-elle soummise à TVA sur les débits?", vbYesNoCancel, "Vérif TVA débits") = vbYes Then Sheets(1).Range("N" & i) = Sheets(1).Range("K" & i) End If If MsgBox("La facture suivante (tiers : " & Range("B" & i) & " ) est-elle soummise à TVA sur les débits?", vbYesNoCancel, "Vérif TVA débits") = vbCancel Then Exit For End If Next i End If

---

Le problème de ce code est comme je ne sais pas bien définir, pour chaque type de réponse à la MsgBox, une action, il ne marche pas. En effet, ma MsgBox s'affiche 2 fois à chaque fois. Par contre mise à part ce problème, le comportement des réponses est OK.

Merci d'avance pour votre aide.

Cordialement.

Bonjour Kuartz,

Citation:

---

ma MsgBox s'affiche 2 fois à chaque fois

---

Oui, tu l'as mis 2 fois dans le code
Il faut que tu expliques en français le comportement que tu aimerais obtenir pour qu'on puisse te guider sur la structure du code

Bonjour Kuartz, tototiti2008,

Les conditions sont mal exécutées. Ainsi tu réaffiches les MsgBox au lieu de stocker la valeur saisie par l'utilisateur.

Un exemple très simple se trouve ici.
On trouve un Select Case. Mais, cela est identique avec la structure If, ElseIF, Else et End If.

N'hésite pas à revenir vers moi. :ccool:

Cordialement,
Kimy

Bonjour,

Recupère UNE FOIS le résultat de la msgbox dans une variable
gener :

Code:

---

1 2	dim a as variant a = MsgBox("Voulez-vous vérifier la TVA sur les débits?", vbYesNo, "Vérif RAN TVA débits")

---

et ENSUITE tu peux utiliser cette variable <a> dans une condition

Code:

---

1 2 3

if a = vbYes Then ... End If

---

Cela n'affichera la box qu'une fois.