Recherche de données dans un tableau

Bonjour,

j'ai un problème de comparaison de données entre deux tableaux et de récupération.

Pour faire simple : j'ai d'un coté un tableau avec mes principaux fournisseurs (carrefour, Total, Leroy Merlin...) et la catégorie de dépenses qui correspond (Alimentation, Essence, Travaux...)

Dans un autre tableau j'ai la liste de mes dépenses (facture leroy Merlin du 15 Septembre, facture total du 17 sept...)

Ce que je voudrais c'est que pour chaque ligne de dépenses Excel vérifie si elle correspond à un de mes fournisseur et, si oui, qu'elle note la catégorie de dépenses qui est concernée.

Le tableau en pièce jointe donne un exemple de fichier.

Merci de votre aide

Phiii

Bonjour Phiii et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Cordialement

Bonjour,

Formule

=SI(NON(ESTERR(CHERCHE($E$3;$A12;1)));$F$3;
SI(NON(ESTERR(CHERCHE($E$4;$A12;1)));$F$4;
SI(NON(ESTERR(CHERCHE($E$5;$A12;1)));$F$5;
SI(NON(ESTERR(CHERCHE($E$6;$A12;1)));$F$6;
SI(NON(ESTERR(CHERCHE($E$7;$A12;1)));$F$7)))))

Cdlt

Bonjour,
Une proposition Power Query.
Cdlt.

Bonjour à tous !

Une proposition (avec un tableau structuré) :

=SIERREUR(INDEX(Tableau1[famille];EQUIV(MAX(SIERREUR(CHERCHE(Tableau1[magasin];A12);0));SIERREUR(CHERCHE(Tableau1[magasin];A12);"");0));"Non trouvé")

Hello,

La petite dernière en vba

Option Explicit
Sub depenses_client()

Dim var_arrClient As Variant
Dim i As Long, y As Long
Dim str_client As String
Dim int_schclient As Integer

var_arrClient = Range("E3:F7")
y = 12
Do Until Range("A" & y) = ""
    For i = LBound(var_arrClient) To UBound(var_arrClient)
        str_client = var_arrClient(i, 1)
        int_schclient = InStr(1, Range("A" & y), str_client)
        If int_schclient > 0 Then
            Range("B" & y) = str_client
            Range("C" & y) = var_arrClient(i, 2)
        End If
    Next i
    y = y + 1
Loop

End Sub