Voir résultats sur tableau synoptique

Bjr à tous.

Je demande de l'aide, une formule si possible ou bien une macro pouvant débloquer mon souci.

Mon classeur à une base de données et trois autre feuilles nommée zone 1, zone 2 et zone 3.

- les nom des produits de ma base de données sont repartis dans les zones. je voudrais avoir un aperçu des résultats (décision finale) de chaque produit dans la colonne D de ma base de données.

Je ne sais comment le dire exactement, mais avec le fichier joint , je pense que vous me comprendriez .

Bonjour

Essayez ce code

Sub test()
Dim TS As ListObject
Dim ws As Worksheet
Dim lig As Integer
Dim cel As Range

Set TS = Feuil5.ListObjects(1)

For Each ws In Worksheets

    If ws.Name <> "BASE DE DONNEE (2)" Then
        For Each cel In ws.ListObjects(1).ListColumns(1).DataBodyRange
            On Error Resume Next
            lig = TS.ListColumns(1).DataBodyRange.Find(cel.value, LookIn:=xlValues, lookat:=xlWhole).Row - TS.HeaderRowRange.Row
            If lig > 0 Then
                TS.DataBodyRange(lig, 4) = cel.Offset(0, 6).Value
            End If
            lig = 0
        Next cel
    End If

Next ws
End Sub

Cordialement

Bonjour

Une formule a mettre en D3

=SIERREUR(RECHERCHEV([@[nom des plantes]];Tableau1719;7;0);SIERREUR(RECHERCHEV([@[nom des plantes]];Tableau171921;7;0);SIERREUR(RECHERCHEV([@[nom des plantes]];Tableau17;7;0);0)))

Crdlt

Bonjour

Ci joint ma solution

A+ François

oups: je n'avais pas vu les réponses précédentes. Salut Dan et Joco

RE,

Sincèrement, un grand merci à vous tous, Dan, Joco7915 et Fanfan38.

j'ai essayé toutes vos trois propositions, elles marchent CORRECTEMENT.

Problème résolu. 🙏🙏🙏

Cordialement.