Biffer/débiffer l'intitulé d'un bouton ActiveX

[Magic_Doctor]

Bonjour à tous,

Tout est dans l'intitulé.
Je voudrais biffer et débiffer la "caption" d'un bouton ActiveX :

l'intitulé du bouton n'est pas biffé, on clique sur le bouton, l'intitulé est biffé ; on reclique sur le bouton, l'intitulé est débiffé.


Ci-joint un exemple, je l'espère explicite.

Merci d'avance pour tout conseil.

 

[Hulk]

Re : Biffer/débiffer l'intitulé d'un bouton ActiveX

Hello,

Regarde le fichier joint.. La macro du bouton.

Bonne soirée !

 

[Magic_Doctor]

Re : Biffer/débiffer l'intitulé d'un bouton ActiveX

Merci Hulk,

Ça marche très bien !

Très bonne fin de soirée

 

[job75]

Re : Biffer/débiffer l'intitulé d'un bouton ActiveX

Bonjour Magic Doctor, le forum, salut Hulk,

Exécution directe :

With Sheets("Hoja1").Bouton 'With Bouton si ce code est dans Hoja1
   .Font.Strikethrough = Not .Font.Strikethrough
End With

A+

 

[Magic_Doctor]

Re : Biffer/débiffer l'intitulé d'un bouton ActiveX

Merci job75 pour ton intervention.

Profitant de la variable "compt", j'avais, de mon côté, rédigé ceci :

compt = IIf(IsNumeric(Evaluate("Compteur")), Evaluate("Compteur"), 0)
compt = IIf(compt < 2, compt + 1, 1)
ActiveWorkbook.Names.Add Name:="Compteur", RefersTo:=compt, Visible:=False

Worksheets(1).Bouton.Font.Strikethrough = IIf(compt = 1, False, True)

Bonne fin d'après-midi.