multi selection dans ListBox1

Version imprimable

Bonjour,

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

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 !

1 pièce(s) jointe(s)

Bonsoir,

Exemple en PJ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub UserForm_Initialize()
  ListBox1.MultiSelect = fmMultiSelectMulti
  ListBox1.List = Sheets("BD").Range("A2:A28").Value
  a = Split(ActiveCell, " ")
  If UBound(a) >= 0 Then
    For i = 0 To Me.ListBox1.ListCount - 1
      If Not IsError(Application.Match(Me.ListBox1.List(i), a, 0)) Then Me.ListBox1.Selected(i) = True
    Next i
  End If
End Sub
 
Private Sub Ok_Click()
 For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " "
 Next i
 ActiveCell = Trim(temp)
 Unload Me
End Sub

Boisgontier
http://boisgontierjacques.free.fr

1 pièce(s) jointe(s)

Merci mais comment agencer ça dans mon code ? merci !

Voici mon code complet:

Code:

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

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
 
    ListBox1.ColumnHeads = True
    ListBox1.RowSource = "Produits!A1:A100"
 
    ListBox2.ColumnHeads = True
    ListBox2.RowSource = "Produits!B1:B100"
 
    ComboBox2.RowSource = "Clients!A1:A100"
 
End Sub

26/04/2017, 06h45
manueldejong

je suis perdu alors je cherche toujours mais sans résultat! j'ai besoin d'un spécialiste merci !
26/04/2017, 07h33
mjpmjp

bonjour,
le code de boisgontierjacques, teste les lignes sélectionnées ou non
si les lignes sont sélectionnées elles vont dans Temp qui représente une belle liste que tu vas mettre aprés "Resize...=...Temp"
en gros c'est çà...mais là j'ai pas encor bu mon caf
@+JP
26/04/2017, 07h40
manueldejong

Merci mais je n'arrive pas l'adapter dans mon code car je suis vraiment débutant de chez débutant ! Bon café !!!;) j'ai mis mon fichier pour mieux voir
26/04/2017, 09h46
BENNASR

bonjour
qu'est ce que ne va pas dans ma reponse dans cette discussion???
https://www.developpez.net/forums/d1...nregistrement/