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.