Private Sub UserForm_Activate()
Dim Etiquette_PT() As New Classe1
Dim Poste_Technique As Control
Dim MaxPosX, PosX, PosY As Integer
Dim i As Integer
' Réactiver le rafraichissement d'écran
Application.ScreenUpdating = True
'Initialisation des positions
PosX = -125
PosY = 15
'CREATION DES COMBOBOX
ReDim Preserve Etiquette_PT(nb_Poste)
For i = 1 To nb_Poste
Set ctrl = Me.Controls.Add("Forms.Label.1")
With ctrl
.Caption = PT(i)
.Left = 10
.Top = PosY + 20
.Width = 200
.Font.Size = 10
.Font.Bold = False
.MousePointer = 10
End With
PosX = 10
PosY = PosY + 20
Set Etiquette_PT(i).C_Etiquette_PT = ctrl 'init du module de classe
Next i
End Sub