Discussion :

[Kuartz]

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.

[tototiti2008]

Bonjour Kuartz,

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

[Kimy_Ire]

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.

Cordialement,
Kimy

[Djohn92]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if a = vbYes Then
...
End If

Cela n'affichera la box qu'une fois.