Effectuer une recherche dans toute la listbox

CBernardT

XLDnaute Barbatruc

• 23 Septembre 2011

• #2

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.

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 23 Septembre 2011

• #3

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Septembre 2011

• #4

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 :

Code:

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+

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 23 Septembre 2011

• #5

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.

 

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 23 Septembre 2011

• #6

Re : Effectuer une recherche dans toute la listbox

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Septembre 2011

• #7

Re : Effectuer une recherche dans toute la listbox

Re,

OK j'ai compris, utilisez donc cette macro :

Code:

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+

 

Dernière édition: 23 Septembre 2011

Vote positif 0 Vote négatif

A

ascal44

XLDnaute Occasionnel

• 23 Septembre 2011

• #8

Re : Effectuer une recherche dans toute la listbox

Merci , cette fois ci cela fonctionne parfaitement

 

Vote positif 0 Vote négatif