Bonjour,
De retour de vacances je suis a nouveau devant un pb
dans ma macro qui fonctionne j'effectue une recherche avec le prénom j'ai le résultat mais mon problème est que
dans la colonne L8 j'ai des cellules de type " Prénom, NOM"
et je souhaiterai chercher indifféremment.
j'ai fais des tests avec find, xlpart
donc si quelqu'un peut m'aider ??
un grand merci
Private Sub TextBox3_Change()
Dim H As Integer
If TextBox3 = "" Then
ListBox1.Clear
ListBox1.BackColor = &HFFFFFF
Exit Sub
End If
ListBox1.Clear
With Worksheets("Tool_Dossiers")
If .Range("L8") = " " Then Exit Sub
For H = H + 1 To .Range("A65536").End(xlUp).Row - 7
If Left(.Range("L8").Cells(H, 1), Len(TextBox3)) = TextBox3 Then ListBox1.AddItem .Range("A8").Cells(H, 1)
TextBox3.BackColor = &HFFFFFF
ListBox1.BackColor = &HC0C0FF
Next H
End With
End Sub
De retour de vacances je suis a nouveau devant un pb
dans ma macro qui fonctionne j'effectue une recherche avec le prénom j'ai le résultat mais mon problème est que
dans la colonne L8 j'ai des cellules de type " Prénom, NOM"
et je souhaiterai chercher indifféremment.
j'ai fais des tests avec find, xlpart
donc si quelqu'un peut m'aider ??
un grand merci
Private Sub TextBox3_Change()
Dim H As Integer
If TextBox3 = "" Then
ListBox1.Clear
ListBox1.BackColor = &HFFFFFF
Exit Sub
End If
ListBox1.Clear
With Worksheets("Tool_Dossiers")
If .Range("L8") = " " Then Exit Sub
For H = H + 1 To .Range("A65536").End(xlUp).Row - 7
If Left(.Range("L8").Cells(H, 1), Len(TextBox3)) = TextBox3 Then ListBox1.AddItem .Range("A8").Cells(H, 1)
TextBox3.BackColor = &HFFFFFF
ListBox1.BackColor = &HC0C0FF
Next H
End With
End Sub