XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)

[Raynaud.JF]

Bonjour, par avance merci de votre support.

Voila ce que je souhaite faire, dans mes relevés bancaire que j'extrais sous excel, chaque écriture se trouve sous le format ci-dessous

CARTE X23566TGRVFDETR CARREFOUR MARKET EFGAY26TGFZER
CARTE 222334 26/04 GAMM VERT 1323462575754Z885IOPD

Je souhaiterai pouvoir extraire le nom du Tiers par exemple CARREFOUR
Pour cela j'ai créé une bibliothèque (tablo) dans laquelle j'ai stocké tous les tiers que je connaissais

Je vais donc regarder pour chaque cellule de ma plage (pour l'exemple en pj Ligne2 col1 a Ligne7 col1 si je trouve une concordance entre le texte se trouvant dans la cellule et ce que j'ai préalablement stocké dans mon tablo

Et c'est là que je bloque, je ne sais pas comment procéder, quelle méthode de recherche dois-je mettre en place
Si il trouve une concordance se trouvant dans le tablo il copie la concordance (trouvé dans le tablo) dans la cellule à droite de la cellule qui a été lue,
si il ne trouve pas de concordance il passe a la cellule suivante pour faire un nouvelle recherche.

J’espère que ma problématique est clair,
Quelqu'un pourrait-il me venir en aide ?

 

[Phil69970]

Bonjour @Raynaud.JF

Tu as de la chance j'ai cela dans mes cartons qui fonctionne super bien 😉
J'ai commenté toute la macro

Merci de ton retour

 

[Raynaud.JF]

Bonjour @Raynaud.JF

Tu as de la chance j'ai cela dans mes cartons qui fonctionne super bien 😉
J'ai commenté toute la macro

Merci de ton retour

Bonjour Phil, Top !!! c'est exactement ce que je cherche, MERCI BEAUCOUP

 

[gbinforme]

Bonjour à tous

Tu peux aussi le faire avec cette mini fonction personnalisée à mettre dans un module et insérer sur la colonne choisie :

Public Function ident(art, lst)
Dim nom As Range
    For Each nom In lst
        If InStr(art, nom) > 0 Then ident = nom: Exit Function
    Next nom
End Function

 

[Raynaud.JF]

Bonjour à tous

Tu peux aussi le faire avec cette mini fonction personnalisée à mettre dans un module et insérer sur la colonne choisie :

Public Function ident(art, lst)
Dim nom As Range
    For Each nom In lst
        If InStr(art, nom) > 0 Then ident = nom: Exit Function
    Next nom
End Function

Bonsoir, merci pour ton retour, c'est une bonne idée aussi. C'est cool d'avoir plusieurs façon de pouvoir faire.
Merci Encore.