Discussion :

[Elstak]

Hello,

je viens de faire quelques recherches sur le forum mais j'ai rien trouvé de satisfaisaint

je cherche parmi 51 optionbutton, lequel est coché. (les noms sont optionbutton1... optionbutton51)

j'ai testé ca mais il a pas aimé

Code :

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

1
2
3
4
5
Function TESTCHECK()
    For i = 1 To 51
        If Menu.OptionButton & i = True Then TESTCHECK = i
    Next
End Function

une ptite idée??

[SfJ5Rpw8]

c'est quoi déjà menu ...? un userform... (il me semble que tu nous en avais parlé..) dans ce cas ...

Code :

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

1
2
3
4
5
6
7
8
Function TESTCHECK()
    For i = 1 To 51
        If Menu.Controls("OptionButton" & I)  Then 
            TESTCHECK = i
             exit for
        end if
    Next
End Function

[Elstak]

Oops,

oui c'est un userform désolé

en fait y'en a 41 des optionbutton et pas 51 mais le probleme est le meme

Code :

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

1
2
3
Private Sub ChangeCouleur_Click()
    Call TESTCHECK
End Sub

j'ai modifié un peu pour les tests ! ca c'est le code qui s'execute quand je clic sur le bouton de commande et là c'est mon testcheck que j'ai changé en sub pour le test :

Code :

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

1
2
3
4
5
6
7
8
9
Sub TESTCHECK()
    For i = 1 To 41
        temp = "Menu.OptionButton" & i
        'Debug.Print temp
        If temp = True Then
            MsgBox i
        End If
    Next
End Sub

dans le debug.print j'ai le bon nom pourtant mais ca me met aucun msgbox quelque soit le command button de coché

[Elstak]

Ah yes !!

merci petit renard