Bonjour à tous....
Si tu écartes le "If", pourtant efficace, il y a la possibilité de passer par un tableau.
Exemple:
reponse1=InputBox("nom?","mon_nom","mon-nom")
reponse2=InputBox("prénom?","mon_prénom","mon-prénom")
reponse3=InputBox("age?","mon_age","mon-age")
Dim reponses(3)
reponses(0) = reponse1
reponses(1) = reponse2
reponses(2) = reponse3
Dim k
For k = 0 To UBound(reponses) -1
MsgBox reponses(k)
Next
Une autre possibilité, le Dictionary.
MsgBox DicDemo
Function DicDemo
Dim a, d, i, s ' Crée des variables.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", reponse1 ' Ajoute des clés et des éléments.
d.Add "b", reponse2
d.Add "c", reponse3
a = d.Items ' Obtient les éléments.
For i = 0 To d.Count -1 ' Effectue une itération sur le tableau.
s = s & "reponse: " & i & " : " & a(i) & " " &vbCrLf ' Crée la chaîne de renvoyée.
Next
DicDemo = s
End Function
je relis ton exposé...
l'utilisateur renseigne le formulaire en entier, puis il y a une vérif de chaque réponse ???
ou
l'utilisateur renseigne une question, arrêt pour vérif, puis une 2ème question, vérif.... ???
Et comment se présente-t-il, ce formulaire ???
jean-marc
jean-marc