Bonjour à tous !

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

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.