case d'option (contrôle activeX)

[meldja]

Bonjour,
Je ne connais rien du tout au VBA et j'aimerais savoir quel code faut-il placer entre ces lignes :
Private Sub OptionButton1_Click()

End Sub
pour qu'il me renvoie la valeur 1 en cellule A1 si je clique sur la case d'option.
Avec les maîtres du VBA qui sont présents ici, je pense que ça devrait être un jeu d'enfant mais quand on connait pas, c pas évident.
Merci d'avance
Au fait, est-ce que le titre du post est correct : ça s'appelle bien contôle activeX les boutons que l'on trouve dans la barre d'outil "boîte à outils contrôle" ?)

 

[Staple1600]

Re : case d'option (contrôle activeX)

Bonjour


Tu peux tester ce code

Private Sub OptionButton1_Click()
If OptionButton1 then 
Range("A1").Value=1
Else
Range("A1").Value="" ' ou  Range("A1").Value=0
End if
End Sub

 

[joss56]

Re : case d'option (contrôle activeX)

Bonjour à tous,

Tu peux essayer range("A1")=1 dans la procédure click

 

[joss56]

Re : case d'option (contrôle activeX)

Pardon staple et bonne journée

 

[meldja]

Re : case d'option (contrôle activeX)

Merci tout les deux,
la méthode de Joss me paraît plus simple (plus à ma portée) surtout qu'avec les cases d'option, y en a toujours une qui est cochée donc le if elsse "" ne me sert à rien.
Merci à vous et bonne journée