[VBA-E]trouver Optionbutton coché

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é :oops:

Code:

---

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??

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

Code:

---

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

---

Oops,

oui c'est un userform désolé :oops:

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

Code:

---

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:

---

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é :?

Ah yes !!

merci petit renard ;)