OVH Cloud OVH Cloud

code pour togglebutton

2 réponses
Avatar
ctmv
bonjour à tous,
j'ai créé un controle activex "togglebutton" dans une feuille excel et je
voudrais faire ceci :
lorsque le bouton est enfoncé, dès que je clique sur une cellule de la
feuille, un mot s'inscrit dedans
et si le bouton n'est pas enfoncé, rien ne se passe.
quelqu'un à t il une idée de comment je dois m'y prendre ?
merci d'avance pour vos suggestions.

2 réponses

Avatar
michdenis
Bonjour Ctmv,

Dans la feuille module où se déroule l'action, copie ceci :
à toi d'adapter le nom tu togglebutton et le texte que tu veux voir
inscrire dans la cellule.
'---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Me.ToggleButton1.Value = -1 Then
Target.Value = "Bonjour"
End If

End Sub
'---------------------


Salutations!


"ctmv" a écrit dans le message de news:
bonjour à tous,
j'ai créé un controle activex "togglebutton" dans une feuille excel et je
voudrais faire ceci :
lorsque le bouton est enfoncé, dès que je clique sur une cellule de la
feuille, un mot s'inscrit dedans
et si le bouton n'est pas enfoncé, rien ne se passe.
quelqu'un à t il une idée de comment je dois m'y prendre ?
merci d'avance pour vos suggestions.
Avatar
jps
ouos, pas lu cette réponse de notre michel international et grand chasseur
de phoques de surplus que je salue au passage : il s'agissait donc d'un
togglebutton...
jps (qui n'avait pas testé tous les contrôles)


"michdenis" a écrit dans le message de news:
eo$
Bonjour Ctmv,

Dans la feuille module où se déroule l'action, copie ceci :
à toi d'adapter le nom tu togglebutton et le texte que tu veux voir
inscrire dans la cellule.
'---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Me.ToggleButton1.Value = -1 Then
Target.Value = "Bonjour"
End If

End Sub
'---------------------


Salutations!


"ctmv" a écrit dans le message de news:

bonjour à tous,
j'ai créé un controle activex "togglebutton" dans une feuille excel et je
voudrais faire ceci :
lorsque le bouton est enfoncé, dès que je clique sur une cellule de la
feuille, un mot s'inscrit dedans
et si le bouton n'est pas enfoncé, rien ne se passe.
quelqu'un à t il une idée de comment je dois m'y prendre ?
merci d'avance pour vos suggestions.