Bonjour,
J'ai un code en vba (usf) qui m'affiche des données de mes factures clients.
Dans la feuille excel "facture" en :
colonne 1 = n° facture
colonne 2 = nom
colonne 3 = prénom
ect..
Pour le moment la recherche grâce à la barre fonctionne mais uniquement si je recherche un numéro de facture (qui sont trier déjà dans l'odre)
donc cela me sert presque à rien... J'aimerais modifier le code sans devoir tout recoder car mon programme fonctionne et est très gros.
Ce que j'aimerais :
C'est de modifier la recherche par le NOM et non pas par le n° de la facture ou alors en MULTI recherche pourquoi pas...
Lorsque j'essaie et que je modifie la ligne : With .Cells(Ligne, 1) par : With .Cells(Ligne, 2)
Oui sa fonctionne donc sa recherche par nom mais sa supprime complétement les n° de facture de ma listbox
Voici le code :
Merci
J'ai un code en vba (usf) qui m'affiche des données de mes factures clients.
Dans la feuille excel "facture" en :
colonne 1 = n° facture
colonne 2 = nom
colonne 3 = prénom
ect..
Pour le moment la recherche grâce à la barre fonctionne mais uniquement si je recherche un numéro de facture (qui sont trier déjà dans l'odre)
donc cela me sert presque à rien... J'aimerais modifier le code sans devoir tout recoder car mon programme fonctionne et est très gros.
Ce que j'aimerais :
C'est de modifier la recherche par le NOM et non pas par le n° de la facture ou alors en MULTI recherche pourquoi pas...
Lorsque j'essaie et que je modifie la ligne : With .Cells(Ligne, 1) par : With .Cells(Ligne, 2)
Oui sa fonctionne donc sa recherche par nom mais sa supprime complétement les n° de facture de ma listbox
Voici le code :
VB:
If Me.OptionButton3.Value = True Then 'FactureTextBox1
ListBox1.Clear
With Worksheets("Facture")
DerLigne = .Cells(Rows.Count, 2).End(xlUp).Row
For Ligne = DerLigne To 3 Step -1
With .Cells(Ligne, 1)
If .Value <> 0 Then
If InStr(LCase$(.Value), LCase$(TextBox1)) > 0 Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = .Value
ListBox1.List(ListBox1.ListCount - 1, 1) = .Offset(, 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Offset(, 3)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Offset(, 4)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Offset(, 5)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Offset(, 6)
ListBox1.List(ListBox1.ListCount - 1, 6) = .Offset(, 7)
ListBox1.List(ListBox1.ListCount - 1, 7) = .Offset(, 8)
End If
End If
End With
Next Ligne
End WithMerci