XL pour MAC atteindre Nom par 3 premières lettres

[sec's]

J'ai une liste de 1500 noms dans une colonne avec en tête "NOMS".
Je voudrais, à partir d'un bouton, atteindre le premier nom de ma liste à partir d'une cellule dans laquelle j'inscrirai mes 3 premières lettres.
Merci d'avance

 

[sylvanu]

Bien le bonjour Sec's et Bienvenu sur ce forum. Cela vous semblera peut être vieux jeu, mais le Bonjour est de rigueur sur ce site.
Concernant votre problème, n'est il pas plus simple de mettre un filtre sur la colonne noms. dans ce cas vous pouvez filtrer avec "Filtres textuels/Commence par" ?

 

[sylvanu]

Re,
Sinon en PJ un exemple.

 

[sec's]

Bonjour pour hier et bonjour pour aujourd'hui,
Ton fichier "ChercheNom" correspond très exactement à ce dont j'ai besoin.
Je te remercie beaucoup et te souhaite un bon week end

 

[job75]

Bonjour sec's, sylvanu,

Excel possède la commande intégrée Rechercher (touches Ctrl+F) pourquoi ne pas s'en servir ?

A+

 

[sec's]

Bonjour,
Merci mais je veux le faire à partir d'une macro.
Mon problème est résolu.
Merci et bonne journée

 

[BOISGONTIER]

Bonjour,


S'il y a des milliers de lignes, le temps de réponse ne sera pas bon.
Utiliser FIND ou explorer un Array()

Boisgontier

 

[sylvanu]

Bonjour le fil,
Sec's, Effectivement avec un array c'est plus rapide.
Pour une liste de 5000 noms, 0.36s au lieu de 0.71s.

 

[patricktoulon]

bonjour le fil
par macro au plus rapide effectivement serait de filtrer une variable tableau

juste pour le fun et un clin d'oeuil a @BOISGONTIER ( ca va lui rapeler des souvenirs)

ici on: inclu /exclu/commence par/xlpart

Option Compare Text
Sub essaiFiltre()
    Set f = Sheets("feuil1")
    clé = "Mar"
    'que les valeurs entieres qui sont EGALES !!! a   "mar"
    Tbl = Application.Transpose(f.Range("A1:A13" & f.[A65000].End(xlUp).Row).Value)
    Tbl = Filtre(Tbl, clé)
    [C1] = "XlWhole"
    If Not IsEmpty(Tbl) Then f.[C2].Resize(UBound(Tbl)) = Application.Transpose(Tbl)

    'toutes les valeurs qui CONTIENNENT !! "mar"
    Tbl = Application.Transpose(f.Range("A1:A13" & f.[A65000].End(xlUp).Row).Value)
    Tbl = Filtre(Tbl, clé, MacXlpart:=True)
    [D1] = "Xlpart ""mar"""
    If Not IsEmpty(Tbl) Then f.[D2].Resize(UBound(Tbl)) = Application.Transpose(Tbl)

    'toute les valeurs qui COMMENCE !! par "mar"
    Tbl = Application.Transpose(f.Range("A1:A13" & f.[A65000].End(xlUp).Row).Value)
    Tbl = Filtre(Tbl, clé, , commence_par:=True)
    [E1] = "Commence par ""mar"""
    If Not IsEmpty(Tbl) Then f.[E2].Resize(UBound(Tbl)) = Application.Transpose(Tbl)

    'EXCLURE toute les valeurs qui COMMENCENT!!! par "mar"
    Tbl = Application.Transpose(f.Range("A1:A13" & f.[A65000].End(xlUp).Row).Value)
    Tbl = Filtre(Tbl, clé, commence_par:=True, Include:=False)
    [F1] = "commence  par ""mar""  exclusion "
    If Not IsEmpty(Tbl) Then f.[F2].Resize(UBound(Tbl)) = Application.Transpose(Tbl)


    'EXCLURE toute les valeurs qui CONTIENNENT !!!!!! le mot  "mar"
    Tbl = Application.Transpose(f.Range("A1:A13" & f.[A65000].End(xlUp).Row).Value)
    Tbl = Filtre(Tbl, clé, MacXlpart:=True, Include:=False)
    [G1] = "XLPART ""mar"" exclusion"
    If Not IsEmpty(Tbl) Then f.[G2].Resize(UBound(Tbl)) = Application.Transpose(Tbl)



End Sub

Function Filtre(ByRef Tbl, ByVal clé As String, Optional ByRef MacXlpart As Boolean = False, Optional ByRef commence_par As Boolean = False, Optional ByRef Include As Boolean = True)
    n = 0: Dim b()
    If MacXlpart = True Then clé = "*" & clé & "*" Else clé = clé
    If commence_par = True Then clé = clé & "*"
    For i = LBound(Tbl) To UBound(Tbl)
        If Include Then
            If Tbl(i) Like clé Then n = n + 1: ReDim Preserve b(1 To n): b(n) = Tbl(i)
        Else
            If Not Tbl(i) Like clé Then n = n + 1: ReDim Preserve b(1 To n): b(n) = Tbl(i)
        End If
    Next i
    If n > 0 Then Filtre = b
End Function