Souligner un Label

[Joe[PT]]

Bonsoir à tous,

Je cherche à mettre un Label en souligné. Après plusieurs tentatives, je ne trouve pas de solution...

Pour l'instant j'ai ça (et qui ne fonctionne pas) :

Private Sub Label2_Click()
Label2.Font.Underline = True        'nom du label en souligné
End Sub

J'ai également essayé en ajoutant l'index :

Private Sub Label2_Click()
Label2(3).Font.Underline = True        'nom du label en souligné avec le (3) étant l'index
End Sub

Bonne soirée,

Joe

 

[DoubleZero]

Re : Souligner un Label

Bonjour, Joe[PT], le Forum,

Comme ceci ?

Option Explicit
Private Sub Label2_Click()
    ActiveSheet.Label2.Font.Underline = xlUnderlineStyleSingle
End Sub

A bientôt

 

[Joe[PT]]

Re : Souligner un Label

Bonsoir DoubleZero,

Merci pour ton aide.

Après essai : ça ne fonctionne pas malheureusement...

Bonne soirée

Joe

 

[Tentative]

Re : Souligner un Label

Bonjour,

Si tu parles d'un label dans un userform ... il faut enlever Activesheet.

Private Sub Label2_Click()
    Label2.Font.Underline = xlUnderlineStyleSingle
End Sub

Tentative

 

[DoubleZero]

Re : Souligner un Label

Re-bonjour, bonjour, Tentative,

...ça ne fonctionne pas malheureusement...

Zut de zut !

Le code est fonctionnel sur mon poste :

A bientôt

 

[Tentative]

Re : Souligner un Label

Bonjour,

Si c'est label dans la feuille, effectivement le code de DoubleZero fonctionne bien.


Tentative

 

[Joe[PT]]

Re : Souligner un Label

Bonjour à tous et merci pour votre,

Effectivement sur une feuille ça fonctionne, mais c'est Label dans une UserForm... précision importante que j'ai lamentablement oublié de vous donner.

Je viens d'essayer :

Private Sub Label2_Click()
    Label2.Font.Underline = xlUnderlineStyleSingle
End Sub

Après tout ce n'est qu'une histoire de présentation, alors je ne vais pas rester bloquer là-dessus...

Bonne journée à tous ,

Joe

 

[DoubleZero]

Re : Souligner un Label

Re-bonjour,

... Effectivement sur une feuille ça fonctionne, mais c'est Label dans une UserForm...

Une nouvelle façon d'agir :

​

A bientôt