Souligner un Label

Joe[PT] · 29 Novembre 2015

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) :

Code:

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

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

Code:

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 · 29 Novembre 2015

Re : Souligner un Label

Bonjour, Joe[PT], le Forum,

Comme ceci ?

Code:

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

A bientôt

Joe[PT] · 29 Novembre 2015

Re : Souligner un Label

Bonsoir DoubleZero,

Merci pour ton aide.

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

Bonne soirée

Joe

Tentative · 30 Novembre 2015

Re : Souligner un Label

Bonjour,

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

Code:

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

Tentative

DoubleZero · 30 Novembre 2015

Re : Souligner un Label

Re-bonjour, bonjour, Tentative,

Joe[PT];1520164 à dit:
...ça ne fonctionne pas malheureusement...

Zut de zut !

Le code est fonctionnel sur mon poste :

A bientôt

Tentative · 30 Novembre 2015

Re : Souligner un Label

Bonjour,

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

Tentative

Joe[PT] · 30 Novembre 2015

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 :

Code:

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 · 30 Novembre 2015

Re : Souligner un Label

Re-bonjour,

Joe[PT];1520178 à dit:
... Effectivement sur une feuille ça fonctionne, mais c'est Label dans une UserForm...

Une nouvelle façon d'agir :

A bientôt

Souligner un Label

Joe[PT]

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

Joe[PT]

XLDnaute Junior

Tentative

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Tentative

XLDnaute Occasionnel

Joe[PT]

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

Pièces jointes

Discussions similaires