HELP!! toggle bouton

Benjamin.Nappez

XLDnaute Nouveau
Bonjour à tous,

En VBA, je cherche à savoir où implémenter un code qui ferait qu'un toggle bouton "off" soit rouge et vert quand "on" quand on clic dessus. Et bien entendu, qu'il reprenne sa jolie couleur rouge quand il est re-off et ainsi de suite. Autrement dit comment faire un format conditionnel sur un toggle bouton selon un critère binaire qui ne donne pas un horrible bouton "on" grisé tout moche?

Voici le texte simple du bouton en question, manque le format entre les "off" et "on":

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Range("J7").Select
ActiveCell.FormulaR1C1 = "1"
Else
Range("J7").Select
Selection.ClearContents
End If
End Sub

L'idéal serait de pouvoir modifier également la bordure du bouton.

Merci par avance.
Ben
 

jp14

XLDnaute Barbatruc
Re : HELP!! toggle bouton

Bonsoir le forum

Une piste
Rajouter le code suivant dans la procédure

If ToggleButton1.Value = False Then ToggleButton1.BackColor = 65280
If ToggleButton1.Value = True Then ToggleButton1.BackColor = 255


JP
 

Discussions similaires

Réponses
1
Affichages
928

Statistiques des forums

Discussions
312 508
Messages
2 089 138
Membres
104 047
dernier inscrit
bravetta