Microsoft 365 VBA Copier différentes valeurs suivant plusieurs conditions

[akira21]

Bonjour,

J'ai besoin d'un coup de main pour copier des valeurs d'une feuille à une autre suivant plusieurs conditions.

Dans la Feuill1 si le code SAP se trouvant en colonne A correspond à la colonne H de la feuille Cockpit et que le chargement n'est pas validé dans la colonne Q de la feuille Cockpit alors affiché dans la Feuil1 la date de la feuille Cockpit colonne B ainsi que le Code Chgt de la colonne F.
Cela doit se reproduire sur la 1ere ligne du Code SAP de la Feuil1 suivant le code.

J'arrive à récupérer les Codes Chgt en utilisant la fonction Filtre mais j'aimerai avoir la date en plus.

=TRANSPOSE(FILTRE(Cockpit!$F$7:$F$1500;($A32<>$A31)*(Cockpit!$Q$7:$Q$1500=0)*(Cockpit!$J$7:$J$1500>0)*(Cockpit!$H$7:$H$1500=$A32);""))

J'ai mis un exemple dans la Feuil1 du résultat voulu.

Merci de votre aide

 

[Rouge]

Bonjour,

N'ayant pas office 365, je ne peux pas travailler avec les formules que vous avez déjà créées.
Alors voici une solution en VBA.

Cdlt

 

[akira21]

Bonjour,

Un grand merci c'est exactement le résultat qu'il me faut

Je vous souhaite une bonne journée