Comptage de Oui dans MsgBox

[Laurent313131]

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.

 

[PascalXLD]

Re : Comptage de Oui dans MsgBox

Bonjour

juste comme ceci peut-être

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 j=j+1


reponse = MsgBox("Je ne soutiens pas autant mon attention ?", vbQuestion + vbYesNo)


If reponse = vbYes Then j = j+1


... ... ....

Range("A1")=j

End sub.

 

[kjin]

Re : Comptage de Oui dans MsgBox

Bonjour,
Le plus simple pour éviter d'écrire les questions dans le code, est de les mettre par exemple ici dans la feuille1 lignes A1:A46
Le résultat s'affiche à la fin et est écris en B1 de la même feuille

Sub boite_dialogue()
total = 0
reponse = 1
Do
Question = MsgBox(Sheets(1).Range("A" & reponse), vbYesNo)
    If Question = vbYes Then
        total = total + 1
    End If
    reponse = reponse + 1
Loop Until reponse = 47
MsgBox total
Sheets(1).Range("B1") = total
End Sub

A+
kjin

 

[Laurent313131]

Re : Comptage de Oui dans MsgBox

Merci pour vos réponses. En fait je dois obligatoirement écrire les 46 questions dans le code ... J'ai donc essayé la 1ère méthode mais ça ne marche pas !

 

[kjin]

Re : Comptage de Oui dans MsgBox

Re,
Alors simplement comme ça, comme dèjà indiqué par Pascal

Sub boite_dialogue()
Application.ScreenUpdating = False 'désactivation du raffraichissement écran
total = 0
question = MsgBox("blabla1", vbYesNo)
If question = 6 Then total = total + 1
question = MsgBox("blabla2", vbYesNo)
If question = 6 Then total = total + 1
question = MsgBox("blabla3", vbYesNo)
If question = 6 Then total = total + 1
'...la suite jusqu'à 46
Application.ScreenUpdating = True
Sheets(1).Range("A1") = total

End Sub

A+
kjin

 

[PascalXLD]

Re : Comptage de Oui dans MsgBox

Re

Même idée en plus court

Sub boite_dialogue()
Application.ScreenUpdating = False 'désactivation du raffraichissement écran
total = 0
If MsgBox("blabla1", vbYesNo) = vbYes Then total = total + 1
If MsgBox("blabla2", vbYesNo) = vbYes Then total = total + 1
If MsgBox("blabla3", vbYesNo) = vbYes Then total = total + 1
'...la suite jusqu'à 46
Application.ScreenUpdating = True
Sheets(1).Range("A1") = total

End Sub

 

[kjin]

Re : Comptage de Oui dans MsgBox

Re,
Bonsoir Pascal
Bin, oui c'est plus court...aussi, on est pas le chef pour rien non plus !
Bravo
A+
kjin

 

[Laurent313131]

Re : Comptage de Oui dans MsgBox

Bonsoir,

Merci Pascal ca

 

[Laurent313131]

Re : Comptage de Oui dans MsgBox

Bonsoir,

Merci Pascal ça marche parfaitement. Peux tu m'expliquer les passages en gras ?. Leur fonction plus précisément afin que je comprenne la logique... Merci beaucoup.

Sub boite_dialogue()
Application.ScreenUpdating = False 'désactivation du raffraichissement écran
total = 0
If MsgBox("blabla1", vbYesNo) = vbYes Then total = total + 1
If MsgBox("blabla2", vbYesNo) = vbYes Then total = total + 1
If MsgBox("blabla3", vbYesNo) = vbYes Then total = total + 1
'...la suite jusqu'à 46
Application.ScreenUpdating = True
Sheets(1).Range("A1") = total

End Sub

 

[PascalXLD]

Re : Comptage de Oui dans MsgBox

RE

Dans ce cas là ça ne sert à rien

Cela sert quand on ecrit dans des cellules ou des tris cela ne se rafraichit pas pendant la macro mais une fois fini