XL 2016 Plusieurs recherche sur une listbox

[dgeo27]

Bonjour,

J'ai actuellement une Listbox qui m'affiche des informations d'articles liée à Textbox1 (pour la recherche de base) pour rechercher uniquement par l'intitulé de l'article.

Private Sub TextBox1_Change()
  Dim DerLigne&, Ligne&
  ListBox1.Clear
  With Worksheets("Tarification")
    DerLigne = .Cells(Rows.Count, 2).End(xlUp).Row
    For Ligne = DerLigne To 4 Step -1
      With .Cells(Ligne, 2)
        If .Value <> 0 Then
          If InStr(LCase$(.Value), LCase$(TextBox1)) > 0 Then
            ListBox1.AddItem                                          '      colonne
            ListBox1.List(ListBox1.ListCount - 1, 0) = .Value
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Offset(, 1)
'            ListBox1.List(ListBox1.ListCount - 1, 2) = .Offset(, 2)

          End If
        End If
      End With
    Next Ligne
  End With
End Sub

J'aimerais modifier mon code (sans savoir comment ...) pour recherche via plusieurs Textbox...
Textbox1 pour les intitulés
Textbox2 pour les fournisseurs
Textbox3 pour les groupes

merci pour votre aide

 

[job75]

Bonjour dgeo27,

Suivant ce que vous voulez faire utilisez Or ou And avec le code :

If InStr(LCase(.Value), LCase(TextBox1)) Or InStr(LCase(.Offset(, 1)), LCase(TextBox2)) Or InStr(LCase(.Offset(, 2)), LCase(TextBox3)) Then

ou :

If InStr(LCase(.Value), LCase(TextBox1)) And InStr(LCase(.Offset(, 1)), LCase(TextBox2)) And InStr(LCase(.Offset(, 2)), LCase(TextBox3)) Then

A placer dans TextBox1_Change et pour TextBox2_Change, TextBox3_Change :

Private Sub TextBox2_Change()
TextBox1_Change
End Sub

A+

 

[BOISGONTIER]

Bonjour,

Exemple de recherche multi-colonnes et multi-mots avec un seul TextBox.

Option Compare Text
Dim TblBD(), Choix(), NomTableau, NbCol
Private Sub UserForm_Initialize()
  NomTableau = "tableau1"                             ' adapter
  TblBD = Range(NomTableau).Value
  ReDim Choix(1 To UBound(TblBD))
  For i = LBound(TblBD) To UBound(TblBD)
     NbCol = Range(NomTableau).Columns.Count
     For k = 1 To NbCol: Choix(i) = Choix(i) & TblBD(i, k) & "|": Next k
  Next i
  Me.ListBox1.List = TblBD
  EnteteListBox
End Sub

Private Sub TextBox1_Change()
  If Me.TextBox1 <> "" Then
     mots = Split(Me.TextBox1, " ")
     Tbl = Choix
     For i = LBound(mots) To UBound(mots)
       Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
     Next i
     n = UBound(Tbl) + 1
     If n > 0 Then
       ReDim Tbl2(LBound(Tbl) To n + 1, 1 To NbCol)
       For j = LBound(Tbl) To UBound(Tbl)
         a = Split(Tbl(j), "|")
         For k = 0 To 3: Tbl2(j, k + 1) = a(k): Next k
       Next j
       Me.ListBox1.List = Tbl2
      Else
       Me.ListBox1.Clear
      End If
    Else
      Me.ListBox1.List = TblBD
    End If
End Sub

Boisgontier

 

[dgeo27]

Sa peut être pas mal

Sur cette ligne je modifie avec quoi ?

NomTableau = "tableau1" ' adapter

Ma feuille de donnée est sur la page : Articles
et commence de A2 à F2 à ... x fois le nombre d'articles

 

[BOISGONTIER]

Il faut transformer la BD en tableau dynamique et que le nom du tableau soit Tableau1 (mettre sous forme de tableau).

(Vous pouvez faire un essai en copiant/collant votre BD sur mon fichier).

Boisgontier

 

[dgeo27]

Je vais essayer cela
Ensuite si je réussis à faire cela, sa sera toujours possible que je cherche pour compléter mon USF pour avoir un bouton pour rajouter des articles ? ou le fait que sa soit en tableau bloque tout ajouts ?
En gros idéalement mon USF doit pouvoir me montrer tous mes articles, que je puisse aussi en rajouter et au besoin modifier

 

[BOISGONTIER]

Bonsoir,


Ce programme générique fonctionne pour toute BD. Il permet d'ajouter, de modifier et de supprimer.
Il suffit de copier BD /coller sur la BD existante.

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheComboTextBoxIntuitifTableau.xls

Les colonnes à afficher dans la ListBox se spécifient dans:

ColCombo = Array(1, 2, 3) ' A adapter (1 à 6 colonnes maxi)
colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14) ' Colonnes ListBox (à adapter)
colInterro = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14) ' colonnes à interroger (adapter)


Boisgontier

 

[dgeo27]

Bon j'ai fait le plus simple donc copier coller les deux feuilles excels dans mon classeur et copier coller la présentation + codage sur un nouvel USF dans mon fichier
quelques adaptations et ok je valide sa fonctionne

reste à modifier l'ensemble à ma guise pour que le tout me convienne ^^

Merci mille fois si j'ai des erreurs je revient ne partez pas mdr

 

[dgeo27]

Pour supprimer des labels et leurs Textboxs si j'en ai besoin que de 6 par exemple je fait comment ? Je vient d'essayer de bêtement effacer et forcément sa bug... :/