Option boutton

[apdf1]

Bonjour

J'aurais besoin de vous pour code Option boutton.

Si Option boutton1 est enclencher la valeur du combobox = 1
Si Option boutton2 est enclencher la valeur du combobox = 2

Ci joint un fichier

Merci d'avance et bonne journée

Max

 

[Pierrot93]

Re : Option boutton

Bonjour Max,

pas ouvert ton fichier, pas 2007 de dispo, mais regarde peut être ceci :

Private Sub OptionButton1_Click()
If OptionButton1 Then ComboBox1.Value = 2
End Sub

ou bien ceci :

Option Explicit
Private Sub OptionButton1_Click()
If OptionButton1 Then ComboBox1.ListIndex = 2 'pour le 3ème élément
End Sub

bonne journée
@+