Recherche multi critère

Bonjour le Forum,

Je reviens vers vous pour une question de recherche via une TexBox et affiche le résultat dans une ListBox

Lorsque j'écris une lettre dans "TxtNom", j'ai bien l'article correspondant qui s'affiche mais à la 2ème lettre elle s'efface.

Je joint le fichier

Quelqu'un peut-il m'aider

D'avance merci

Amicalement

Crole18

Bonjour

le mieux tu change la valeur de Like

If Feuil6.Cells(j, 3) Like UCase(Me.TxtNom) & "*" Then

A+

Maurice

Bonjour Maurice,

Merci pour ta réponse

J'ai essayé mais rien ne s'affiche dans ma listBox

en fait la première lettre affiche le ou les articles et à la deuxième lettre du mot

tout s'efface

Merci quand même

Amicalement

Bruno

Bonjour

petite rectife

If UCase(Feuil6.Cells(j, 3).Value) Like UCase(Me.TxtNom) & "*" Then

A+

Maurice

Je te remercie énormément cela fonctionne à merveille

Bonne journée

Amicalement

Bruno

Bonjour

moi je préfère faire comme ca a toi de voir

Private Sub UserForm_Initialize()

End Sub

Private Sub UserForm_Activate()
    InitListe
End Sub

Private Sub InitListe()
Dim J&
LstArticle.Clear
With Feuil6
    For J = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
        If UCase(.Cells(J, 3).Value) Like UCase(Me.TxtNom) & "*" Then
            'on compl?te la listebox des valeurs trouv?es
            LstArticle.AddItem .Cells(J, 3)
        End If
    Next J
End With
End Sub

Private Sub TxtNom_Change()
    InitListe
End Sub

Private Sub CmdQuitter_Click()
    Unload Me
End Sub

A+

Maurice

Re bonjour Maurice,

J'ai essayé ton code mais cela génère une erreur

J'ai mis une capture de l'erreur sur la feuille excel

bien à toi

Bonjour,

Recherche multi-colonnes multi-mots

Ceuzin

super! merci à toi archer bonne journée à toi

A+

Bruno

Rechercher des sujets similaires à "recherche multi critere"