donner une valeur à un optionbutton ?

[zef]

Salut,

Je cherche à donner une valeur à des OptionButton dans un Userform.
Ces valeurs sont stocker dans une feuille excel.

ex: ma valeur en F1 est "Vrai"
je souhaite que mon optionbutton soit cocher


merci

 

[@+Thierry]

Bonjour Zef

Donc un exemple simple, sur ta "Sheet1" en Range("F1") tu as un test qui retourne VRAI ou FAUX (exemple =B1=B2)

Donc si B1 est différent de B2 ton test est FALSE et of course TRUE si B1 est identique à B2...

Si tu n'as qu'un seul OptionButton tu mets ce code dans le Private Module de ton UserForm :

Private Sub UserForm_Initialize()
Dim Test As Boolean
Test = Sheets(1).Range("F1")
OptionButton1 = Test
End Sub

Si tu as Deux OptionButtons et que l'un ou l'autre doit être coché en fonction de la valeur en "F1", alors ce sera plutôt vers une solution comme celle-ci que tu devras t'orienter :

Private Sub UserForm_Initialize()
Dim Test As Boolean
Test = Sheets(1).Range("F1")
If Test = True Then
OptionButton1 = True
Else: OptionButton2 = True
End If
End Sub

Je pense que tu devrais avoir tous les éléments en main.
Bon Travail
@+Thierry

 

[zef]

super merci thierry

 

[Moa]

Il est vraiment fort, le bougre...hein!!!

Moi aussi y m'épate...hihihi

Bonne soirée à toi Thierry

@ +

Moa