Optimisation recherche valeur dans ligne d'un tableau

[Jam]

Bonjour,

J'ai un tableau de 86000 lignes comportant une colonne avec un libellé.
Dans ce libellé j'ai besoin de chercher une occurence qui peut-être multiple -> 15 possibilités à aujourd'hui.
Dans un premier temps j'ai créé 15 colonnes qui testent pour chacune d'entre-elle chaque possibilité. Ca fonctionne mais c'était assez long en terme de traitements.
J'ai donc essayé d'opter pour une fonction VBA. Elle fonction, mais c'est pire en terme de vitesse (je m'y attendais un peu mais pas à ce point).

'# Pas optimisé...
Function TypeEcriture(sLibellé_Banque As String) As String
Application.Volatile
Dim i As Integer
Dim tbl As ListObject

Set tbl = Worksheets("PARAM").ListObjects("tblValeursCherchées")
For i = 1 To tbl.Range.Rows.Count
  If sLibellé_Banque Like "*" & tbl.DataBodyRange(i) & "*" Then TypeEcriture = tbl.DataBodyRange(i): Exit For
  TypeEcriture = "Rien trouvé..."
Next

End Function

Bref, je cherche un moyen de faire la même chose, formule ou vba mais de façon plus rapide si possible.

 

[Lone-wolf]

Bonsoir Jam

As-tu regarder ici?? Jacques Boisgontier

 

[Jam]

Bonjour lone-wolf,

j'ai regardé le site de Jacques, mais je n'y ai pas vu mon bonheur.
Merci néanmoins pour les idées;

 

[BOISGONTIER]

Bonjour,

Poster un échantillon du fichier.

Essai avec 60.000 lignes & 15 mots clés

JB

 

[Jam]

Merci Jacques pour l'exemple. Je vais y jeter un oeil.
Je joins un exemple de mon fichier. A voir si je peux adapter ton exemple.

 

[BOISGONTIER]

cf essai pj

JB

 

[Jam]

Bon, nickel ! Chapeau bas et merci Jacques.

J'ai juste modifié la macro pour y mettre les déclarations de variables (c'est quand même mieux ) et supprimer le 3ème membre dont je n'ai pas besoin en fait.
Petite remarque complémentaire: j'étais parti dans l'idée de faire un tableau, mais ce n'est pas compatible avec les formules matricielles.

 

[BOISGONTIER]

Sous forme de tableau

JB

 

[Jam]

Merci Jacques, mais par tableau j'entendais la version ListObject (vba)