Listview recherche pertuber

Bonjour,

Mon problème est le suivant je doit réaliser une application sur excel (une base de donner) avec recherche de mot

J'ai un feuille "base" et un formulaire avec un listview, et un textbox ,1 bouton "recherche", et un bouton "afficher tout".

Mon problème est le suivant lorsque je fait une recherche avec 1 lettre j'ai les en-tête qui se rajoute dans le listview et tout les donné sont doublé voir tripler.

Le code n'est pas de moi , il est juste adapter pour mon application, donc le souci viens de moi je pense car le fichier original fonction.

Merci

bonjour,

Bonjour,

Mon problème est le suivant je dois réaliser une application sur excel (une base de donner) avec recherche de mot

J'ai une feuille "base" et un formulaire avec un listview, et un textbox ,1 bouton "recherche", et un bouton "afficher tout".

Mon problème est le suivant lorsque je fais une recherche avec 1 lettre j'ai les en-têtes qui se rajoutent dans le listview et toutes les données sont doublées voir triplées.

Le code n'est pas de moi , il est juste adapté pour mon application, donc le souci vient de moi je pense car le fichier original fonctionne.

Merci

ajoute une instruction exit for dans la boucle j et remplace le 1 par un 2 dans la boucle i

Private Sub CommandButton2_Click()
With Me.ListView1
.ListItems.Clear
For I = 2 To UBound(LISTE_CURATIF, 1)
'On Error Resume Next 'EN CAS D'ECHEC DANS LA RECHERCHE (Il est possible que cela ne soit pa nécessaire. Je n'ai pas testé)
     For j = 2 To UBound(LISTE_CURATIF, 2)
        If InStrRev(LISTE_CURATIF(I, j), Me.TextBox1.Value, -1) <> 0 Then 'Recherche du mot ou d'une partie
          .ListItems.Add , , LISTE_CURATIF(I, 1)
            For k = 2 To UBound(LISTE_CURATIF, 2)
               .ListItems(.ListItems.Count).ListSubItems.Add , , LISTE_CURATIF(I, k)
            Next k
            Exit For
        End If
     Next j
Next I
End With
End Sub

merci sa fonctionne