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

Dragonslow · 8 Septembre 2022

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.

JHA · 8 Septembre 2022

Bonjour à tous,

Un essai par formule matricielle

VB:

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

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

JHA

sylvanu · 8 Septembre 2022

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

VB:

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 · 8 Septembre 2022

Bonjour à tous,

Un essai par formule matricielle

VB:

=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 · 9 Septembre 2022

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é.

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

Dragonslow

XLDnaute Nouveau

Pièces jointes

JHA

sylvanu

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Dragonslow

XLDnaute Nouveau

Discussions similaires