bonjour, 

J'aimerais réaliser une macro qui pose des questions aux utilisateurs avec réponse "oui" ou "non" et en fonction des réponses agis plus ou moins de facon differentes. Mais avec le code que j'ai utilisé une fois que le premier messagebox est positif, tout les autres le sont malgré le fait de repondre négativement

Extrait de mon code:

Dim Rep As Integer

Dim PriceD As Integer

Dim EtatV As Integer

Rep = MsgBox("TRANSIT A EFFECTUER?", vbYesNo + vbQuestion, "TRANSIT")

        If Rep = vbYes Then

            Range("C18").Select

            ActiveCell.FormulaR1C1 = "OUI"

            Range("E18").Select

            ActiveCell.FormulaR1C1 = InputBox("ENTREZ LA VILLE EN TRANSIT", "VILLE TRANSIT")

            Range("I18").Select

            ActiveCell.FormulaR1C1 = InputBox("ENTREZ LE PAYS TRANSIT", "PAYS TRANSIT")

        Else

            Range("C18").Select

            ActiveCell.FormulaR1C1 = "NON"

        End If

PriceD = MsgBox("FRAIS DHL?", vbYesNo + vbQuestion, "DHL")

        If Rep = vbYes Then

                Range("U8").Select

                ActiveCell.FormulaR1C1 = InputBox("ENTREZ LE MONTANT DES FRAIS DHL", "FRAIS DHL")

            Else

                Range("V8").Select

            End If

EtatV = MsgBox("VEHICULE PRET POUR ENLEVEMENT?", vbYesNo + vbQuestion, "ETAT VEHICULE")

            If Rep = vbYes Then

                Range("V8").Select

                ActiveCell.FormulaR1C1 = "PRET"

            Else

                Range("V8").Select

                ActiveCell.FormulaR1C1 = "PAS PRET"

            End If

Bonsoir naka1oneshot, bienvenue sur XLpages.com

A première vue, il s'agit simplement d'un petit manque d'attention à mon avis...

Dans ton code, tu as :

PriceD = MsgBox("FRAIS DHL?", vbYesNo + vbQuestion, "DHL")
        If Rep = vbYes Then

Je pense que faudrait plutôt tester la variable PriceD et non Rep à cet endroit :

If PriceD = vbYes Then

Le problème se reproduit à nouveau un peu plus loin avec la variable EtatV (à modifier également).

Voilà, j'espère que ça pourra t'aider.

Bien cordialement,

Merci beaucoup en plus je me suis vraiment cassé la tête pour une erreur pareil. Merci mille fois.