ListBox a ajouter sur une Démo de Thierry

Bebere à dit:

bonsoir

tu déplaces les données de la colonne B dans la 1ère colonne vide
et tu changes B dans '= .Range("B" & K)' par la lettre de la colonne remplie avec les données de la colonne B

Private Sub UserForm_Initialize()

Dim VarPlageList As String
Dim K As Integer

Sheets("Facture").Activate
TextBoxQuantite.Visible = False
CommandButton4.Visible = False

With ListBox2
.ColumnCount = 2
.ColumnWidths = "2cm;0cm"
End With

With Sheets("List_Fournisseur")
For K = 2 To .Range("A65536").End(xlUp).Row
ListBox2.AddItem .Range("A" & K)
ListBox2.List(ListBox2.ListCount - 1, 1) = .Range("B" & K)'içi
Next
End With

End Sub

à bientôt

Cliquez pour agrandir...