Macro changement d'état d'une cellule

[Gil_Se]

Bonjour à tous.
Je souhaite intégrer dans ma feuille un bouton qui change l'état de ma cellule sélectionnée:
1 clic sur le bouton et le contenu de la cellule passe en souligné
1 second clic et le contenu de la cellule passe en non souligné
1 clic supplémentaire et le contenu de la cellule passe de nouveau en souligné
Etc...
Merci d'avance de votre aide.
Gilles

 

[GPLIONEL]

Re : Macro changement d'état d'une cellule

Bonjour Gil

un exemple de ce qui est possible :

Sub Macro1()

If Selection.Font.Underline = xlUnderlineStyleSingle Then
Selection.Font.Underline = xlUnderlineStyleNone
Else
Selection.Font.Underline = xlUnderlineStyleSingle
End If
End Sub

 

[Gil_Se]

Re : Macro changement d'état d'une cellule

Cela fonctionne très bien.
Merci Lionel
Gilles