Questionnaire avec inputbox

bonjour

à titre d'entrainement , je me suis donné un exercice sur les message box , le code est tout simple mais il ne me renvois pas les valeurs

attendues

le voici :

Sub voiture()

Dim a As String
Dim b As String
Dim reponse As Integer
Dim voiture As Integer
voiture = MsgBox("la voiture est elle en trajet aller ?", vbYesNo + vbQuestion, "questions")
    If voiture = vbYes Then

    a = InputBox("quel est le numero du point de depart?", "reponse")
    Range("d20").Value = reponse
    b = InputBox("quel est le numero du point d'arrivée?", "reponse")
    Range("e20").Value = reponse

    Else
    a = InputBox("quel est le numero du point de depart?", "reponse")
    Range("f20").Value = reponse
    b = InputBox("quel est le numero du point d'arrivée?", "reponse")
    Range("g20").Value = reponse
    End If

End Sub

les numeros des point de départ et d'arrivée sont à choisir entre 0 et 9 , mais quelque soit la valeur que je choisi d'entrer , j'ai toujours

0 comme resultat dans les cellules d20,e20,f20 et g20

Merci pour toute correction

Bonjour Rocket4

C'est normal, tu entre le résultat de ton InputBox dans une variable "A" ou "B"

et tu inscrit dans ta cellule la valeur de la variable "reponse" qui n'a aucune valeur de définit !?

A+

j'avoue ne pas comprendre !

ca y est j'ai trouvé !!!!!!!!!!!!!

Sub voiture()

Dim a As integer
Dim b As integer
Dim reponse As Integer
Dim voiture As Integer
voiture = MsgBox("la voiture est elle en trajet aller ?", vbYesNo + vbQuestion, "questions")
    If voiture = vbYes Then

    a = InputBox("quel est le numero du point de depart?", "reponse")
    Range("d20").Value = a
    b = InputBox("quel est le numero du point d'arrivée?", "reponse")
    Range("e20").Value = b

    Else
    a = InputBox("quel est le numero du point de depart?", "reponse")
    Range("f20").Value = a
    b = InputBox("quel est le numero du point d'arrivée?", "reponse")
    Range("g20").Value =b
    End If

End Sub

Merci pour ta réponse BrunoM45 c'etait tout bete