Bonjour, j'utilise le code ci-dessous pour appliquer une couleur à la propriété backcolor des labels d'un userform.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Dim ctl as Control
For Each ctl In Frame1.Controls
    If TypeOf ctl Is MSForms.Label Then
    ctl.BackColor = RGB(221, 217, 196)
   End If
Next
La procédure s'exécute sans erreur mais la couleur n'est pas appliquée, alors que si je fais pour chaque label:
Label1.Backcolor= RGB(221, 217, 196) ça marche mais je trouve ça beaucoup moins élégant et surtout plus long de devoir coder pour chaque label séparément.
Quelqu'un pourrait me dire pourquoi ça ne marche pas ? Merci.