OptionButton et Checkbox

[GBR]

Bonjour à tous,

Une petite aide sur les contrôles.....

Je joint un petit fichier our être plus clair.


A+

 

[Evelynetfrancois]

Re : OptionButton et Checkbox

bonjour
si j ai compris ?

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
Range("H20") = "Check est activé"
End If
If CheckBox1 = False Then
Range("H20") = "rien"
End If
Range("A1").Select
End Sub
__________________________________________________
Private Sub OptionButton1_Click()
If OptionButton1 = True Then
Range("H25") = "Check est activé"
End If
Range("A1").Select
End Sub
___________________________________________________
Private Sub OptionButton2_Click()
If OptionButton2 = True Then
Range("H25") = "coucou"
End If
Range("A1").Select
End Sub

evidement si tu veux du vide tu mets Range("H25") = ""

E et F

 

[Yvon petit scarabbée du b]

Re : OptionButton et Checkbox

Bonjour GBR et Evelynetfrancois,

j'arrive un peu tard, comme j'aime pas bosser pour rien, je te joint quand même ton fichier, avec un petit plus tu trouveras le commentaire et explications du code en vert en VBA, cela peut t'aider

a++
Yvon

 

[_Thierry]

Re : OptionButton et Checkbox

Bonsoir tout le monde,

Une autre approche fissa, fissa, et bon week end !

Private Sub CheckBox1_Click()
    Range("H20") = IIf(Me.CheckBox1 = True, "Check est activé", "")
End Sub

Private Sub OptionButton1_Change()
    Range("H25") = IIf(Me.OptionButton1 = True, "Option1 est activé", "")
End Sub

@+Thierry
​

 

[GBR]

Re : OptionButton et Checkbox

Un grand merci à tous , c'est exactement ce que je cherche..

A+