Boucle Sur Labels Pour changer le Font

[salhi_haithem]

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

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

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

 

[salhi_haithem]

Re : Boucle Sur Labels Pour changer le Font

c'est bon j'ai trouvé la solution

Dim CTRL As Control

For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.Label Then
        With CTRL
            .Font.Name = "Times New Roman"
            .Font.Size = 14
            .ForeColor = &HFF8080
            .BackColor = &H80000016
        End With
    End If
Next

 

[salhi_haithem]

Re : Boucle Sur Labels Pour changer le Font

j'aimerai savoir comment appliquer le même code avec ctrl listview

Dim CTRL As Control

For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.listview Then
        With CTRL
            .Font.Name = "Times New Roman"
        End With
    End If
Next

ce code me veux pas fonctionner

 

[salhi_haithem]

Re : Boucle Sur Labels Pour changer le Font

De l'aide encore
comment faire un boucle sur les 9 listviews pour le code suivant

With ListView9
    
    If Me.CboPolice = "Times New Roman" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 10
    ElseIf Me.CboPolice = "Monotype Corsiva" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 12
     ElseIf Me.CboPolice = "Tahoma" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 10
     ElseIf Me.CboPolice = "Verdana" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 8
     ElseIf Me.CboPolice = "Arial Narrow" Then
        .Font.Name = Me.CboPolice
        .Font.Size = 11
    End If
    
End With

merci d'avance

 

[ChTi160]

Re : Boucle Sur Labels Pour changer le Font

Bonjour salhi haithem
Bonjour le fil ,Le Forum
Pas Cool sans fichier Joint !!!
Un exemple de ce que j'ai cru comprendre
Le Fichier : Regarde la pièce jointe ListView FontSize Chti160.xlsm
Bonne Journée
Amicalement
Jean Marie

 

[salhi_haithem]

Re : Boucle Sur Labels Pour changer le Font

mille merci Mr ChTi160 pour ta réponse c'est ce que je veux
un peut compliquer le code mais ça fait l'affaire