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