Option Explicit
Dim BtnTexte(1 To 9) As New BtnTexteClass
Dim BtnCouleur(1 To 48) As New BtnCouleurClass
Dim BtnFond(1 To 9) As New BtnFondClass
Dim Ctrl As Control
Private Sub UserForm_Initialize()
Dim x As Byte
Dim y As Byte
Dim z As Byte
x = 0
y = 0
z = 0
For Each Ctrl In Controls
If Left(Ctrl.Name, 4) = "CBtn" Then
x = x + 1
Set BtnTexte(x).BtnTexte = Ctrl
End If
If Left(Ctrl.Name, 4) = "Fond" Then
z = z + 1
Set BtnFond(z).BtnFond = Ctrl
ElseIf Left(Ctrl.Name, 4) = "Comm" Then
y = y + 1
Set BtnCouleur(y).BtnCouleur = Ctrl
End If
Next
End Sub