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.