Private Sub UserForm_Click() 'creation procedure evenementielle sur le formulaire
End Sub
Private Sub UserForm_Initialize() 'pour charger les données d'Actions dès que j'appelle le formulaire
Dim i As Integer 'declaration de la variable
'initialisation de la variable
i = 2
'cells est un peu comme range, i de la variable en 1 ligne donc A1
Do While Worksheets("Nomenclature").Cells(i, 2) <> "" 'cells i=1 donc première ligne, 1 pour la colonne
CbxAction.AddItem Worksheets("Nomenclature").Cells(i, 2)
'incrémentation de la variable
i = i + 1
Loop
i = 2
'cells est un peu comme range, i de la variable en 1 ligne donc A1
Do While Worksheets("Nomenclature").Cells(i, 1) <> "" 'cells i=1 donc première ligne, 1 pour la colonne
CbxMatiere.AddItem Worksheets("Nomenclature").Cells(i, 1)
'incrémentation de la variable
i = i + 1
Loop
End Sub