Private Sub UserForm_Initialize()
Dim ws_data As Worksheet
Dim lstrw As Long
Dim liste_valeur As String
Dim Référence As String
Dim Nom As String
Dim i
Dim j
Set ws_data = Worksheets(4)
Me.Label_info.Caption = Sheets("Config").Range("E21")
lstrw = ws_data.Cells(Rows.Count, 2).End(xlUp).Row
'liste_valeur = ""
ws_data.Activate 'juste pour etre sur qu'on travaille sur la bonne feuille
Me.Cbx_test.Clear
Me.Cbx_article1.Clear
With Sheets("Article").ListObjects("Tab_Articles")
For i = 1 To .ListRows.Count
Me.Cbx_test.AddItem .ListColumns("Référence").DataBodyRange(i)
Me.Cbx_article1.AddItem .ListColumns("Nom").DataBodyRange(i)
Next i
End With
''boucle
'For i = 6 To lstrw
' Référence = ws_data.Cells(i, 2)
' If InStr(liste_valeur, Référence) < 1 Then
' Cbx_test.AddItem "" & Référence
' If liste_valeur = "" Then
' liste_valeur = Référence
' Else
' liste_valeur = liste_valeur & ";" & Référence
' End If
' End If
'
' Set ws_data = Worksheets(4)
' lstrw = ws_data.Cells(Rows.Count, 2).End(xlUp).Row
' liste_valeur = ""
'
' For j = 6 To lstrw
' Nom = ws_data.Cells(i, 3)
' If InStr(liste_valeur, Nom) < 1 Then
' Cbx_article1.AddItem "" & Nom
' If liste_valeur = "" Then
' liste_valeur = Nom
' Else
' liste_valeur = liste_valeur & ";" & Nom
' End If
' End If
' Next j
'Next i
End Sub