Laurent313131
XLDnaute Occasionnel
Bonjour,
J'ai crée un petit code VBA qui lorsque je clique sur un bouton de contrôle, m'affiche une question dans une une msgbox vbYesNo. Quand je répond à cette 1ère question, une nouvelle msgbox apparaît avec une nouvelle question ....
En fait je voudrais que le nombre de oui s'affiche en A1 à l'issue de mes 46 questions... Pouvez vous m'aider s'il vous plaît ?
Voici le code pour les msgbox :
Public total(46)
Sub depart()
i = 1
boite_dialogue
End Sub
Sub boite_dialogue()
reponse = MsgBox("Ces derniers temps mon niveau de performance sportive / mon état de forme a diminué ?", vbQuestion + vbYesNo)
If reponse = vbYes Then
total(i) = 1
i = i + 1
Else
total(i) = 0
i = i + 1
End If
reponse = MsgBox("Je ne soutiens pas autant mon attention ?", vbQuestion + vbYesNo)
If reponse = vbYes Then
total(i) = 1
i = i + 1
Else
total(i) = 2
i = i + 1
End If
... ... ....
End sub.
J'ai crée un petit code VBA qui lorsque je clique sur un bouton de contrôle, m'affiche une question dans une une msgbox vbYesNo. Quand je répond à cette 1ère question, une nouvelle msgbox apparaît avec une nouvelle question ....
En fait je voudrais que le nombre de oui s'affiche en A1 à l'issue de mes 46 questions... Pouvez vous m'aider s'il vous plaît ?
Voici le code pour les msgbox :
Public total(46)
Sub depart()
i = 1
boite_dialogue
End Sub
Sub boite_dialogue()
reponse = MsgBox("Ces derniers temps mon niveau de performance sportive / mon état de forme a diminué ?", vbQuestion + vbYesNo)
If reponse = vbYes Then
total(i) = 1
i = i + 1
Else
total(i) = 0
i = i + 1
End If
reponse = MsgBox("Je ne soutiens pas autant mon attention ?", vbQuestion + vbYesNo)
If reponse = vbYes Then
total(i) = 1
i = i + 1
Else
total(i) = 2
i = i + 1
End If
... ... ....
End sub.