Recherche caractère dans cellule via UserForm

Bonjour à tous,

Je suis débutant sur VBA et j'espère trouver de l'aide parmi vous.

J'ai fait un Userform de recherche pour l'effectif d'une société, la recherche est opérationnelle quand le terme recherché est complet, sauf que je souhaite avoir des résultats si je saisis une partie des caractère le cellule reference, exemple: si j'ai Alain DUPONT et que je recherche seulement via DUPONT j'arriverai à avoir le résultat.

J'ai une listbox de 9 colonnes qui correspondent aux données dont j'ai besoin, ci-après le code qu j'utilise :

For i = 2 To drnligne

If TextBox_Nom = Cells(i, 3) Then

ListBox1.AddItem ' ajouter une ligne vide

Me.ListBox1.List(j, 0) = ThisWorkbook.Sheets("Effectif").Cells(i, 1)

Me.ListBox1.List(j, 1) = ThisWorkbook.Sheets("Effectif").Cells(i, 2)

Me.ListBox1.List(j, 2) = ThisWorkbook.Sheets("Effectif").Cells(i, 3)

Me.ListBox1.List(j, 3) = ThisWorkbook.Sheets("Effectif").Cells(i, 4)

Me.ListBox1.List(j, 4) = ThisWorkbook.Sheets("Effectif").Cells(i, 5)

Me.ListBox1.List(j, 5) = ThisWorkbook.Sheets("Effectif").Cells(i, 6)

Me.ListBox1.List(j, 6) = ThisWorkbook.Sheets("Effectif").Cells(i, 7)

Me.ListBox1.List(j, 7) = ThisWorkbook.Sheets("Effectif").Cells(i, 8)

Me.ListBox1.List(j, 8) = ThisWorkbook.Sheets("Effectif").Cells(i, 9)

j = j + 1

End If

Next i

Merci beaucoup de votre aide.

Bonjour et bienvenue sur le forum

Tu devrais joindre ton fichier, même simplifié et avec des données "bidon"

Bye !

Bonjour gmb,

Merci pour ta réponse, le fichier est ci-joint.

Merci de votre aide.

Bonjour,

Regardes avec l'opérateur "Like", une piste pour la recherche par les noms, adapte pour les autres :

Private Sub CommandButton_Rechercher_Click()

    Dim I As Long
    Dim J As Long
    Dim drnligne As Long

    ListBox1.Clear

    With Worksheets("AllLogs")

        drnligne = .Cells(Rows.Count, 1).End(xlUp).Row

       For I = 2 To drnligne

           If .Cells(I, 3).Value Like "*" & TextBox_Nom.Text & "*" Then

               ListBox1.AddItem ' ajouter une ligne vide
               Me.ListBox1.List(J, 0) = .Cells(I, 1).Value
               Me.ListBox1.List(J, 1) = .Cells(I, 2).Value
               Me.ListBox1.List(J, 2) = .Cells(I, 3).Value
               Me.ListBox1.List(J, 3) = .Cells(I, 4).Value
               Me.ListBox1.List(J, 4) = .Cells(I, 5).Value
               Me.ListBox1.List(J, 5) = .Cells(I, 6).Value
               Me.ListBox1.List(J, 6) = .Cells(I, 7).Value
               Me.ListBox1.List(J, 7) = .Cells(I, 8).Value

               J = J + 1

           End If

       Next I

    End With

End Sub

Bonsoir Theze,

ça marche à merveille, merci infiniment !