Bonjour JB, Michel, Salim, le Forum
Il n'y a jamais de honte à poser une question poliment.
Donc, en plus des réponses de Salim et Michel qui concerne le Mode Design du UserForm par la fenêtre propriété, on peut aussi faire la même chose par programmation en Mode Run Time.
Imaginons un UserForm avec un Label1 et un CommandButton1 et un CommandButton2...
Le Bouton 1 va mettre le label en Time New Roman, taille 14, gras, Italic, et surligné.... Tandis que le Bouton 2 remettra le Label dans son état d'origine (les paramètres sont conservés par des Variables)
Option Explicit
Private TheFont As String
Private TheSize As Byte
Private TheBold As Boolean
Private TheItalic As Boolean
Private TheUnder As Boolean
Private Sub UserForm_Initialize()
With Me.Label1
'Je récupère les paramêtres du mode Design
TheFont = .Font.Name
TheSize = .Font.Size
TheBold = .Font.Bold
TheItalic = .Font.Italic
TheUnder = .Font.Underline
.Caption = "Je suis le Label1"
End With
End Sub
Private Sub CommandButton1_Click()
With Me.Label1.Font
.Name = "Times New Roman"
.Size = 14
.Bold = True
.Italic = True
.Underline = True
End With
End Sub
Private Sub CommandButton2_Click()
With Me.Label1.Font
.Name = TheFont
.Size = TheSize
.Bold = TheBold
.Italic = TheItalic
.Underline = TheUnder
End With
End Sub
Voilà c'est juste un petit exemple de ce que l'on peut faire avec un UserForm en RunTime...
Bon Après Midi
@+Thierry
