Recherche BD et ajouter à une feuille - code à adapter
Bonjour, je n'arrive pas à adapter totalement le code de Monsieur Boisgontier à mon besoin.
J'aimerais pouvoir faire une recherche à 2 critères, soit par catégorie (peut-être par code), soit par description.
Les thèmes n'apparaissent pas au complet dans la listbox.
De la listebox, j'aimerais récupérer pour la feuille Décompte seulement le code (en B), la description (en C) et le prix (en E).
Et je ne sais pas pourquoi, le bouton b_ajout ne fonctionne pas toujours.
La feuille Produit originale comprend 4000 lignes!
Merci
Bonsoir Monsieur Boisgontier,
WOW! Tout un privilège que vous m'accordez...
Merci infiniment.
A+
Bonsoir Monsieur Boisgontier,
et si je voulais ajouter au userform une case pour ajouter les quantités dans la colonne D lorsqu'on utilise le bouton ajouter.
Quelle serait la modification à ajouter au code?
'Cells(ligne, 4) = Me.TextBox1.Value(i, 3)Merci
Bonjour,
Cela change le scénario. Il n'y a plus de sélection multiple.
Boisgontier
Bonsoir,
Avant que vous me répondiez, j'avais fait un tentative en ajoutant cette ligne Cells(ligne, 4) = Me.TextBox1.Value au code, et cela semble bien marcher!
Je ne saurais vous dire la différence entre votre dernière proposition et ma tentative!
Pourquoi, il ne serait plus possible d'avoir la sélection multiple?
Private Sub B_ajout_Click()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then
ligne = [b65000].End(xlUp).Row + 1
Cells(ligne, 2) = Me.ListBox1.List(i, 0)
Cells(ligne, 3) = Me.ListBox1.List(i, 1)
Cells(ligne, 5) = Me.ListBox1.List(i, 4)
Cells(ligne, 4) = Me.TextBox1.Value
End If
Next i
For i = 0 To Me.ListBox1.ListCount - 1
Me.ListBox1.Selected(i) = False
Next i
TextBox1 = ""
ComboBox1 = ""
ComboBox2 = ""
End Sub