Macro pour boucler sur des OptionButtons

Version imprimable

25/05/2011, 12h33
Hellyeah13

1 pièce(s) jointe(s)

Macro pour boucler sur des OptionButtons

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

Bonjour
Merci pour la nomination intélligente

Code:

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

25/05/2011, 14h26
Hellyeah13

Merci :)

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

Bonne fin de journée,

Hellyeah