Comparatif voiture

[Dav.42]

Bonjours
J'ai un tableau dont une cellule sur deux horizontalement contient des options de voiture et verticalement est reservé pour le nom des voitures.
Je veux faire un userform ou je rentre le nom de la voiture dans une textbox ensuite je clique sur suivant elle ce met dans la 1ère colonne en dessou
de la dernière entrée et un autre userform s'affiche en posant la question de la cellule B1 dans une textbox et j'ai le choix de repondre 'oui' ou 'non'
en boutton option.

J'aimerais quand je clique sur 'suivant' qu'il mette la réponse dans la meme ligne en B
et qu'il re-affiche le userform avec dans la textbox la cellule d1 et quand je valide que la réponse ce mette en D sur la meme ligne....
ainsi de suite une cellule sur 2 jusqu'a Z2.

Comment puis-je faire? Sans créer un userform pour chaque question!
Merci, j'espère que j'ai été clair. sinon dite moi ou je peux vous apporter des précision.

Dav.42

 

[JYLL]

Bonjour,

Voici une solution qui peut faire l'affaire, la tester et me demander des modifications au cas ou;

Amicalement

JYLL

Sub Interrogation()

Dim Questions(15) As String
Dim Réponses(15) As String

Questions(1) = 'question 1'
Questions(2) = 'question 2'

For i = 1 To 15
Réponses(i) = InputBox(Questions(i), 'Saisie')
Cells(i, 1) = Réponses(i)
Next i

End Sub