code pour option button

[fr832]

bonsoir à tous,
dans un userform j'ai deux option button
option button 1"oui"
option button 2 "non"

Je souhaite afficher en L6 "oui" si l'option button est activé et en M6 "non" si l'option button est activé.

Comment dois je rédiger mon code?

dois je commencer comme ceci
If OptionButton1.Value

ou ce genre de code?
Range("L6").Value = If OptionButton1.Value


Par avance merci à tous pour vos lumières😕

 

[tbft]

Re : code pour option button

Bonsoir

je dirais sans avoir essayé
Range("L6").Value = OptionButton1.Value

mais je serais pas contre un petit bout de fichier.
serai t'il possible de me dire à quelle endroit vous comptez mettre ce?

 

[fr832]

Re : code pour option button

merci pour ta réponse amitiés

 

[Pierrot93]

Re : code pour option button

Bonjour,

essaye peut être ainsi, si j'ai bien compris, à noter dans ce code la propriété "caption" des "OptionButton" doit être renseignée par OUI et NON

Option Explicit
Private Sub OptionButton1_Change()
Range("L6").Value = IIf(OptionButton1, OptionButton1.Caption, "")
End Sub
Private Sub OptionButton2_Change()
Range("M6").Value = IIf(OptionButton2, OptionButton2.Caption, "")
End Sub

bonne journée
@+

 

[fr832]

Re : code pour option button

Bonjour pierrot,
super je te remercie j'essayé de chercher des codes mais je n'y arrivais pas, je te remercie encore pour ton aide mes amitiés et bonne journée

 

[fr832]

Re : code pour option button

bonjour à tous,
voila pierrot93 m'a trouvé la solution pour mes option boutons, ça fonctionne mais est il possible de simplifié les codes car ça cré un code trés long car j'ai en tout un vingtaine option button à faire. (Réparti dans des multipage)

Pour le moment voici un extrai de mon code

Private Sub OptionButton1_Click()
Range("J6").Value = IIf(OptionButton1, OptionButton1.Caption, "")
End Sub

Private Sub OptionButton10_Click()
Range("J10").Value = IIf(OptionButton10, OptionButton10.Caption, "")
End Sub

Private Sub OptionButton11_Click()
Range("J11").Value = IIf(OptionButton11, OptionButton11.Caption, "")
End Sub

Private Sub OptionButton12_Click()
Range("J11").Value = IIf(OptionButton12, OptionButton12.Caption, "")
End Sub

Private Sub OptionButton13_Click()
Range("J13").Value = IIf(OptionButton13, OptionButton13.Caption, "")
End Sub

Private Sub OptionButton14_Click()
Range("J13").Value = IIf(OptionButton14, OptionButton14.Caption, "")
End Sub

Private Sub OptionButton15_Click()
Range("J12").Value = IIf(OptionButton15, OptionButton15.Caption, "")
End Sub

Private Sub OptionButton16_Click()
Range("J12").Value = IIf(OptionButton16, OptionButton16.Caption, "")
End Sub

Private Sub OptionButton2_Click()
Range("J6").Value = IIf(OptionButton2, OptionButton2.Caption, "")
End Sub

Private Sub OptionButton3_Click()
Range("J7").Value = IIf(OptionButton3, OptionButton3.Caption, "")
End Sub

Private Sub OptionButton4_Click()
Range("J7").Value = IIf(OptionButton4, OptionButton4.Caption, "")
End Sub

Private Sub OptionButton5_Click()
Range("J8").Value = IIf(OptionButton5, OptionButton5.Caption, "")
End Sub

Private Sub OptionButton6_Click()
Range("J8").Value = IIf(OptionButton6, OptionButton6.Caption, "")
End Sub

Private Sub OptionButton7_Click()
Range("J9").Value = IIf(OptionButton7, OptionButton7.Caption, "")
End Sub

Private Sub OptionButton8_Click()
Range("J9").Value = IIf(OptionButton8, OptionButton8.Caption, "")
End Sub

Private Sub OptionButton9_Click()
Range("J10").Value = IIf(OptionButton9, OptionButton9.Caption, "")
End Sub

par avance merci à tous

 

[Pierrot93]

Re : code pour option button

Bonjour,

A noter, j'avais pris l'événement change des "OptionButton", afin que s'exécute également la procédure sur le contrôle qui prend la valeur inverse, les "OptionButton" s'excluant l'un l'autre...

Pour raccourcir ton code, peut être utiliser un module de classe ainsi que la propriété "tag" des contrôles pour stocker la cellule correspondante....

bonne soirée
@+

 

[fr832]

Re : code pour option button

Bonsoir pierrot,
je te remercie je vais essayer voila mon travail pour demain dimanche lol.

C'était juste une question pour réduire les codes, un merci mes amitiés😎

 

[laetitia90]

Re : code pour option button

bonjour fr832,l'ami Pierrot 😉

si difficulté pour y arriver

 

[fr832]

Re : code pour option button

laeticia 90 super un grand merci vais m'y afferer mes amitiés et bon week end, amitiés🙄