Bonjour,

je cherche une solution pour sélectionner plusieurs produits dans une listbox
voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
With Sheets("Récap")
derlig = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(derlig + 1, 1).Resize(1, 5) = Array(ComboBox1, ComboBox2, ListBox1.List(ListBox1.ListIndex), ListBox2.List(ListBox2.ListIndex), TextBox2.Value)
End With
With Sheets("Clients")
derlig = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(derlig + 1, 1).Resize(1, 1) = TextBox1.Value
End With
MsgBox ("Enregistrement effectué !")
Unload COMMANDE
End Sub
ce code m'aide beaucoup merci le forum ! mais je suis embêté pour faire une multi sélection dans mes listbox. merci !