VBA : changer propriétés police de Labels

Bonjour

Dans le fichier ultra simplifié ci-joint, je n'arrive pas à comprendre le petit exercice suivant : dans l'USF 4 labels et je souhaite changer certaines de leurs propriétés par vba ...

La taille de la police et la caption, ça fonctionne, mais alors le changement de police lui-même, ça semble fonctionner avec Calibri seulement, mais pas les autres....

For i = 1 To 4
    With Me.Controls("Label" & i)
        .Caption = "Label" & Sheets(1).Cells(i + 1, 1)
        .Font.Name = Sheets(1).Cells(i + 1, 2)
        .Font.Size = Sheets(1).Cells(i + 1, 3)
    End With
Next i

Merci d'avance

Bonjour,

TReste comme ceci

Private Sub UserForm_Initialize()
  For i = 1 To 4
    With Me.Controls("Label" & i)
      .Caption = "Label" & Sheets(1).Cells(i + 1, 1)
      .Font.Name = Sheets(1).Cells(i + 1, 2)
      .Font.Charset = 2
      .Font.Size = Sheets(1).Cells(i + 1, 3)
    End With
  Next i
End Sub

Bonjour,

Quand on interroge la propriété d'un label on peut voir la police d'écriture dans " Font"

Donc j'aurai uitlisé : .Font= Sheets(1).Cells(i + 1, 2)

et non .Font.Name = Sheets(1).Cells(i + 1, 2)

un peitit test avec un label et une combobox pour le changement de police.

Super

Merci beaucoup à vous deux

Bonne soirée