changer couleur d'un label selon ????

[Dennnisss]

Bonjour a tous

Hier J'ai envoyer une question concernant changer la couleur d'un label selon la donnee ecrit , j'ai eu une reponse tres satisfaisante de MYTå
et il va tres bien maintand je vous envoie sa reponse et je cherche le code pour mettre en surbrillance et en souligner la reponse en rouge seulement et non en noir voici sont codes

Merci de votre aide

Private Sub UserForm_Initialize()
Dim I As Byte
Dim Ctrl As Control
With Sheets("Feuil1")
I = 5
For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "Label" Then
Ctrl.Caption = .Cells(I, 5).Value
If Ctrl.Caption = "Reg" Then
Ctrl.ForeColor = 0
Else
Ctrl.ForeColor = 255
?????????????????????????
End If
I = I + 1
End If
Next Ctrl
End With
End Sub


Alors mercide votre aide et apprecie votre devouement

dennnisss

 

[Mytå]

Re : changer couleur d'un label selon ????

Salut Denis

Les trois possibilités dans la liste

            Ctrl.ForeColor = 255 'Couleur Rouge
            Ctrl.Font.Underline = True 'Souligné
            Ctrl.FontBold = True 'En gras

Le début du fil
https://www.excel-downloads.com/threads/changer-couleur-dun-labelcaption.74396/

Mytå