Discussion :

[manueldejong]

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 !

[boisgontierjacques]

Bonsoir,

Exemple en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manueldejong]

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

Voici mon code complet:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[manueldejong]

je suis perdu alors je cherche toujours mais sans résultat! j'ai besoin d'un spécialiste merci !

[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

[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

[BENNASR]

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