Discussion :

[Hellyeah13]

Bonjour à tou(te)s,

Je travaille sur un fichier présentant un ensemble de questions (une centaine) avec pour chacune 4 choix possibles matérialisés par des OptionButtons.

Je souhaite attribuer une note de 1 à 4 à chaque question en fonction du choix fait par la personne qui remplit le questionnaire. Mon code est actuellement fonctionnel, mais il nécessite un If sur chaque optionbutton, avec des elseIf.

Au vu du nombre de questions (et donc d'optionbuttons), j'aimerais trouver une boucle qui me permette de checker la valeur de chaque question à l'aide d'un For.

Pensez-vous pouvoir m'aider ?

Merci d'avance ,

Cordialement,

Hellyeah

[mercatog]

Bonjour
Merci pour la nomination intélligente

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Calculer_Click()
Dim i As Byte, j As Byte
 
With Sheets("Feuil1")
    For i = 1 To 5                                                   '5 groupes
        For j = 1 To 4                                               '4 OptionButon par groupe
            If .OLEObjects("Y_" & i & "_" & j).Object Then
                .Range("V_Y" & i).Value = j
                Exit For
            End If
        Next j
    Next i
End With
End Sub

[Hellyeah13]

C'est parfait, merci beaucoup pour la réponse (intelligente également).

Bonne fin de journée,

Hellyeah