Combobox et OptionButton

[apdf]

Bonjour,

Voila j'ai un formulaire avec un Combobox et deux OptionButton, j'aimerais actionner l'option bouton correspondant a la Combobox.

Ci joint mon fichier qui seras plus parlant

Cordialement

Max

 

[colin2]

Re : Combobox et OptionButton

Private Sub TVA_Change()
Select Case TVA.Value
Case 1
OptionButton1.Value = True
OptionButton2.Value = False
Case 2
OptionButton2.Value = True
OptionButton1.Value = False
End Select
End Sub

 

[Dull]

Re : Combobox et OptionButton

Salut adpf, le Forum

2 façons de faire mais sur ce coup tu aurait pu trouver la réponse seul en utilisant la recherche d'XLD

Private Sub TVA_Change()
OptionButton1 = IIf(TVA = 1, True, False) ' Première façon à faire de même pour le 2ème OptionButton
' If TVA =1 Then OptionButton1 = True ' Deuxième façon et même punition
End Sub

EDITION: Salut colin2

Bonne Journée

 

[apdf]

Re : Combobox et OptionButton

Bonjour Colin, Dull

Je vous remercie de votre aide et vous souhaite une bonne journée

@+
Max

 

[laetitia90]

Re : Combobox et OptionButton

bonjour apdf,colin2,Dull🙂🙂🙂
une autre facon de l'ecrire

Private Sub TVA_Change()
 Controls("OptionButton" & TVA.ListIndex + 1) = True
End Sub

 

[apdf]

Re : Combobox et OptionButton

Salut Laetitia

Je te remercie une facon plus courte.

Je souhaite une bonne journée

@+

Max

 

[Si...]

Re : Combobox et OptionButton

Salut

et ainSi... ?

Private Sub TVA_Change()
  Me("OptionButton" & TVA) = TVA
End SubPrivate

mais pour éviter l'erreur quand le combo n'affiche ni 1 ni 2 :

Private Sub TVA_Change()
    If TVA <> 1 And TVA <> 2 Then OptionButton1 = 0: OptionButton2 = 0 Else Me("OptionButton" & TVA) = TVA
End Sub