XL 2021 macro recherche par letre

le___destin · 18 Septembre 2023

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 · 18 Septembre 2023

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 :

sylvanu · 18 Septembre 2023

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 · 18 Septembre 2023

bonjour Sylvanu et merci beaucoup

ca marche

job75 · 18 Septembre 2023

Bonjour,

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

VB:

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 · 19 Septembre 2023

sylvanu à dit:
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 · 19 Septembre 2023

le___destin à dit:
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 · 19 Septembre 2023

sylvanu à dit:
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 · 19 Septembre 2023

Essayez avec :

VB:

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

Voir PJ.

XL 2021 macro recherche par letre

le___destin

XLDnaute Occasionnel

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

le___destin

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

le___destin

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

le___destin

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires