Discussion :

[vbavba]

Je ne sais pas si c'est possible de compter le nombre de 1 dans une macro afin de connaître le résultat d'un QUIZ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub ANNULER_Click()
End
 
End Sub
 
Private Sub VALIDER_Click()
'Sub IfThenElse()
If ComboBox2 = "Migas" Then
 
    Point = 1
 
    ComboBox3 = "250000 stades"
 
    ComboBox4 = "Bisou"
 
    ComboBox5 = "Cronos"
 
    ComboBox6 = "Une fois"
 
    ComboBox7 = "Mer d'Aton"
 
    ComboBox8 = "Mésoré"
 
    Else: Point = 0
 
End If
 
'Somme des 1
Point = Sum(1)
 
MsgBox "Vous avez" & Point & "points."
 
End Sub

Si la condition est vraie, je mets un point sinon 0 donc faire la somme à la fin pour afficher dans une fenêtre le résultat.

Merci d'avance pour vos réponses.

[Lilou51]

Bonjour,

Je n'ai pas bien compris ta problématique... mais si tu veux faire une somme au fur & à mesure que tu valides une condition, ça fait :

Point =0
si macondition = true then
Point = Point + 1
end if

si macondition2 = true then
Point = Point + 1
end if

Etc...

bon courage

[vbavba]

Merci, c'est parfait.