Recherche dans userform

[lioneldu47]

Bonjour le forum,​

J'ai un petit problème avec une macro. Je cherche à faire une recherche intuitive dans un userform mais la macro que j'ai crée ne fonctionne pas.
Voir fichier joint.
Mon but est de pouvoir saisir dans recherche qu'une partie d'un nom et d'avoir tous les noms contenant cette partie.
Par exemple en tapant D j'aurais tous les noms qui contiennent la lettre D.

Merci pour votre aide.😎

 

[DL_13]

Re : Recherche dans userform

Bonjour,

dans le

Private Sub T1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Remplace

With CLIENTS.[B7:B5000]

par

With Sheets("Clients").[B7:B5000]

Bonne Journée

 

[stefan373]

Bonjour lioneldu47 et le forum.

J' ais bricolé cela avec du code qui n' est pas à moi, mais cela a l'air de fonctionner. 🙂

A +

Edit pourquoi faire simple quand on peut faire compliqué. 😱
Mais je pense que le désir est uniquement la lettre de départ et pas la lettre comprise dans tout le mot.🙂

 

[Fo_rum]

Re : Re: Recherche dans userform

Bonjour,

code à minima

Private Sub T1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    L1.Clear
    If T1 = "" Then Exit Sub
    Dim C As Range
    With Sheets("Clients")
        For Each C In .Range("B7:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
            If C Like "*" & T1 & "*" Then L1.AddItem C.Value
        Next
    End With
    L1 = ""
End Sub

 

[lioneldu47]

Re : Re: Recherche dans userform

Merci tout le monde pour vos réponses toujours aussi rapide. En fesant un mix j'arrive au résultat attendu.
a +