XL 2021 macro recherche par letre

[le___destin]

merci de m'aider
je veux que si j'écris la première lettre les noms qui commence par cette lettre dans feuille 1 colonne C s'affiche pour facile la remplir de mon tableau et ajouter le non voulu

 

[sylvanu]

Bonjour le___destin,
Après 144 messages, toujours pas de "Bonjour", c'est dommage.
Pas tout compris à votre demande, alors un essai en PJ un peu au hasard. Cela donne :

 

[le___destin]

bonjour Sylvanu et merci beaucoup
ca marche

 

[job75]

Bonjour,

Plutôt qu'un UserForm il est plus simple d'utiliser une liste de validation, le code de Feuil2 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, source As Range
Set P = Range("E9:E" & Rows.Count)
P.Validation.Delete 'RAZ
If Intersect(ActiveCell, P) Is Nothing Then Exit Sub
Set source = Sheets("Feuil1").[A7].CurrentRegion
With Sheets("Liste")
    .Columns(1).Clear 'RAZ
    If ActiveCell = "" Then Exit Sub
    source.AutoFilter 3, ActiveCell & "*" 'filtre automatique
    source.Columns(3).Copy .[A1]
    source.AutoFilter 3
    .[A1].Delete xlUp
    If .[A1] <> "" Then ActiveCell.Validation.Add xlValidateList, Formula1:="=" & .Name & "!" & .UsedRange.Columns(1).Address
End With
End Sub

A+

 

[le___destin]

Bonjour le___destin,
Après 144 messages, toujours pas de "Bonjour", c'est dommage.
Pas tout compris à votre demande, alors un essai en PJ un peu au hasard. Cela donne :
Regarde la pièce jointe 1179005

bonjours merci beaucoup
est-ce que on peux améliorer le code pour que la recherche ne soit pas sauf par la première lettre
merci d'avance

 

[sylvanu]

est-ce que on peux améliorer le code pour que la recherche ne soit pas sauf par la première lettre
merci d'avance

Je ne comprends pas. Vous voulez que la recherche s'effectue que sur la première lettre ?
Si l'utilisateur en tape une deuxième, on l'ignore ?

 

[le___destin]

Je ne comprends pas. Vous voulez que la recherche s'effectue que sur la première lettre ?
Si l'utilisateur en tape une deuxième, on l'ignore ?

je veux la recherche soit les lettre taper inclut dans la cellule
ca veux dire que si le nom Ronaldo Alano si je tape al s'affiche aussi même si ne commence pas par al

 

[sylvanu]

Essayez avec :

If UCase(cel) Like "*" & UCase(Me.TextBox1.Value) & "*" Then
    Me.ListBox1.AddItem cel
End If

Voir PJ.