ToggleButton et texte du bouton

2 réponses
Avatar
ALDO
Bonjour,

Je voudrais savoir comment faire pour que les ToggleButtons affiche un texte
qui se trouve dans une cellule et qui change selon le contenu.

En vous remerciant par avance.

ALDO

2 réponses

Avatar
Dédé
Salut Aldo !

Si cewla peut t'être utile ...

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
Application.ShowWindowsInTaskbar = False
ToggleButton1.Caption = Range("a1").Value
Else
Application.ShowWindowsInTaskbar = True
ToggleButton1.Caption = Range("a2").Value
End If
End Sub

Dans l'espoir d'avoir pu te donner une solution ...

Avec mes salutations les meilleures

Dédé

"ALDO" a écrit dans le message de news:
#
Bonjour,

Je voudrais savoir comment faire pour que les ToggleButtons affiche un
texte

qui se trouve dans une cellule et qui change selon le contenu.

En vous remerciant par avance.

ALDO




Avatar
ALDO
Tip top...
;-)

Merci à tous les deux...


"Dédé" a écrit dans le message de news:
#
Salut Aldo !

Si cewla peut t'être utile ...

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
Application.ShowWindowsInTaskbar = False
ToggleButton1.Caption = Range("a1").Value
Else
Application.ShowWindowsInTaskbar = True
ToggleButton1.Caption = Range("a2").Value
End If
End Sub

Dans l'espoir d'avoir pu te donner une solution ...

Avec mes salutations les meilleures

Dédé

"ALDO" a écrit dans le message de news:
#
Bonjour,

Je voudrais savoir comment faire pour que les ToggleButtons affiche un
texte

qui se trouve dans une cellule et qui change selon le contenu.

En vous remerciant par avance.

ALDO