Effectuer une recherche dans toute la listbox

[ascal44]

Bonjour à tous , je joint un fichier sur lequel je veux faire des recherche par mots dans toute la listbox.

Actuellement , je n'arrive qu'a rechercher dans la première colonne.

J'ai besoin de votre aide

 

[CBernardT]

Re : Effectuer une recherche dans toute la listbox

Bonjour ascal44,

Essaye avec une recherche dans la base de données, cela sera certainement plus simple.

 

[ascal44]

Re : Effectuer une recherche dans toute la listbox

Je fait la recherche dans la listbox pour sélectionner une bouteille de vin et la sortir de mon stock.
C'est pour cela que je veux une recherche dans la listbox.

 

[job75]

Re : Effectuer une recherche dans toute la listbox

Bonjour ascal44,

Je ne cherche pas à comprendre pourquoi vous supprimez des lignes de la ListBox...

Voyez cette macro dans le code de l'USF :

Private Sub Label7_Click() 'rechercher
Dim Region As String, lg As Long, col As Byte
Region = TextBox13
With ListBox1
  For lg = .ListCount - 1 To 0 Step -1
    For col = 0 To 19
      If UCase(.List(lg, col)) <> UCase(Region) _
        Then .RemoveItem (lg): Exit For
    Next
  Next
End With
End Sub

Il suffisait d'ajouter la boucle pour les colonnes.

Nota : ce serait peut-être mieux d'utiliser le Label8 non ?

Edit : salut Bernard

A+

 

[ascal44]

Re : Effectuer une recherche dans toute la listbox

Je fait la recherche dans la listbox pour sélectionner une bouteille de vin et la sortir de mon stock.
C'est pour cela que je veux une recherche dans la listbox.

 

[ascal44]

Re : Effectuer une recherche dans toute la listbox

Merci Job75, avec votre code la listbox se vide !?

 

[job75]

Re : Effectuer une recherche dans toute la listbox

Re,

OK j'ai compris, utilisez donc cette macro :

Private Sub Label7_Click() 'rechercher
Dim Region As String, lg As Long, col As Byte
Region = TextBox13
With ListBox1
  For lg = .ListCount - 1 To 0 Step -1
    For col = 0 To 19
      If InStr(UCase(.List(lg, col)), UCase(Region)) Then GoTo 1
    Next
    .RemoveItem (lg)
1 Next
End With
End Sub

La fonction InStr permet une recherche partielle du texte.

A+

 

[ascal44]

Re : Effectuer une recherche dans toute la listbox

Merci , cette fois ci cela fonctionne parfaitement