XL 2019 Extraire un mot dans une zone de texte pour attribuer un code

[Dragonslow]

Bonjour à tous,
Cela fait un moment que je bloque pour trouver une formule qui permettrait de récupérer un compte auxiliaire (onglet lexiq) suivant un mot clé d'un libellé de banque (le nom d'un fournisseur). Est-ce que quelqu'un pourrait m'aider car je tris suivant le fournisseur et fais des copier/coller.
Merci pour votre aide.

 

[sylvanu]

Bonjour Dragonslow, et bienvenu sur XLD,
En formule je n'ai pas trouvé, alors une petite fonction perso en PJ :

Function CompteAux(C$)
    Dim L%: L = 2
    With Sheets("LEXIQ")
        While .Cells(L, 1) <> ""
            If InStr(1, C & " ", .Cells(L, 1)) > 1 Then
                CompteAux = .Cells(L, 2): Exit Function
            End If
            L = L + 1
        Wend
    End With
    CompteAux = "Non référencé"
End Function

La syntaxe est =CompteAux(B2)
( pensez à activer les macros lorsqu'XL vous le demandera )

 

[JHA]

Bonjour à tous,

Un essai par formule matricielle

=INDEX(Compte;EQUIV(INDEX(Liste;EQUIV(VRAI;ESTNUM(TROUVE(Liste;B2));0));Liste;0))

Voir les 2 plages nommées "Liste" et "Compte"

JHA

 

[Dragonslow]

Bonjour à tout les 2,
Ces 2 options fonctionnent à merveille !
Je vais opter pour la formule matricielle car la macro, je vais avoir du mal à l'appliquer sur l'ensemble de mon fichier et la faire évoluer. Je suis un peu novice en macro..
Merci à vous deux de m'avoir aidé.