Bonjour
With Sheets("GestionLISTE")
For Each cell In .Range("J3:J" & .[J100].End(xlUp).Row)
If cell.Value <> "" Then list1.Item(cell.Value) = cell.Value
Next cell
piece.TextBox_delai_fournisseur1_piece = list1.Items
End With
'remplissage de la liste Delais (TextBox_delai_fournisseur2_piece)
Set list1 = CreateObject("Scripting.Dictionary")
With Sheets("GestionLISTE")
For Each cell In .Range("J3:J" & .[J100].End(xlUp).Row)
If cell.Value <> "" Then list1.Item(cell.Value) = cell.Value
Next cell
piece.TextBox_delai_fournisseur2_piece = list1.Items
End With
Vous ne pouvez pas mettre une liste dans un textbox:
piece.TextBox_delai_fournisseur1_piece = list1.Items
et :
piece.TextBox_delai_fournisseur2_piece = list1.Items
Ces lignes sont à supprimer
Bye