salhi_haithem
XLDnaute Junior
Bonjour à tous,
J'ai Un UserForm qui contient des labels j'aimerai changer le font des labels de Times New Roman vers Tahoma ou Verdana ou arial avec un boucle
j'ai essayé ce Code mais il marche pas
j'ai essayé ce Code et il marche pas aussi
merci d'avance pour votre aide
J'ai Un UserForm qui contient des labels j'aimerai changer le font des labels de Times New Roman vers Tahoma ou Verdana ou arial avec un boucle
j'ai essayé ce Code mais il marche pas
Code:
Dim CTRL As Control
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.Label Then
CTRL.Font = "Times New Roman"
End If
Next CTRL
j'ai essayé ce Code et il marche pas aussi
Code:
For i = 0 To Me.Controls.Count - 1
If Left(Me.Controls.Item(i).Name, 5) = "Label" Then
Me.Controls.Item(i).Font = "Times New Roman"
End If
Next i
merci d'avance pour votre aide