Bonjour,

J'ai fais un questionnaire avec plusieurs questions sur une feuille excel.
chaque question à trois réponse possible (oui=1, non=0 et je sais pas=0)
Ensuite je fais un total du résultat, par exemple 10 oui = 10 points...
Le seul petit problème c'est que certaines questions doivent avoir un coefficient donc je ne sais pas comment gérer ça?
Quelqu'un peut m'aider, merci



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
Sub test()
 
 
Dim i As Integer
Dim score As Integer
 
With Sheets("Attitude_général")
 
nbcasecoche = .OptionButtons.Count
 
For i = 1 To nbcasecoche
  If .OptionButtons(i) = xlOn Then
    score = score + 1
    i = i + 2
  ElseIf .OptionButtons(i + 1) = xlOn Then
    score = score + 0
    i = i + 2
  ElseIf .OptionButtons(i + 2) = xlOn Then
    score = score + 0
    i = i + 2
  End If
 
Next i
 
 
End With
 
 
Sheets("Attitude").Cells(34, 12).Value = score
 
 
End Sub