Copier le résultat D'un Filtre avancé

Bonjour
Voici Mon code suivant qui exécute un filtre avance a partir d’une liste et copie chaque résultat vers la feuil « résultat »

Sub Test()
        Dim i As Long, DerData As Long, DerResultat As Long
        Dim ShData As Worksheet, ShResul As Worksheet
        Dim RgData As Range '-----------Plage zone de filtre avancé
        Dim RgCriter As Range '----------Zone de critére
        Set ShData = ThisWorkbook.Worksheets("Data")
        Set ShResul = ThisWorkbook.Worksheets("Resultat")
        Set RgData = ShData.Range("A4:C35")
        Set RgCriter = ShData.Range("A1:C2")
        DerData = ShData.Cells(ShData.Rows.Count, 1).End(xlUp).Row
        For i = 5 To DerData
            DerResultat = ShResul.Cells(ShResul.Rows.Count, 1).End(xlUp).Row + 1
            ShData.Range("B2").Value = ShData.Range("B" & i).Value
            RgData.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=RgCriter, 
           CopyToRange:=ShData.Range("G1"), Unique:=False
            Range(Range("G2"), Range("G2").End(xlDown)).Copy
            Sheets("Resultat").Range("A" & DerResultat).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Next i
End Sub

Svp est ce qu’il y a un moyen d’affecter directement le filtre obtenu dans la feuil résultat l’un après l’autre sans passer pas copier coller
Merci

Filtre Avancé.xlsm (25,3 Ko)

Bonjour

Ci-joint ma proposition

Cliques sur le bouton « Traitement » onglet « Data »

Testes et dis moi

Filtre Avancé.xlsm (24,8 Ko)

1 J'aime

Merci beaucoup Mr et merci Pour votre temps pour me répondre
Votre code ça marche très très bien seulement je faire d’autre modification
Je vous explique
J’ai 3 feuil « Data » « Détail » « Résultat »
Data contient des montant par jour globale
Détail continent des montant par jour détaillé
Résultat contient le travail a faire
Je souhaite remplacer ou trouvé le détail de chaque ligne feuil Data et si existe le transféré ce détail dans feuil résultat avec les informations de cette ligne dans feuil Data

J’ai commencé un petit travail mais j’ai pas pu le terminer

Merci beaucoup pour votre aideFiltre Avancé plus.xlsm (24,0 Ko)

Ci-joint une nouvelle proposition

Bouton « Traitement » onglet « Detail » à utiliser
N’ayant aucune indication sur les données sources/cibles j’ai rajouté toutes les colonnes de l’onglet « Détail » dans l’onglet « Resultat » pour dans cet onglet de la colonne A à la colonne H rapporter les données de l’onglet « Data » même colonne et de la colonne I à la colonne L les données de l’onglet « Detail » colonne A à la colonne D

Si tu souhaites une autre recopie merci de préciser la source et la cible de chaque donnée (onglet/colonne)

Testes et dis moi

Filtre Avancé plus.xlsm (31,2 Ko)

1 J'aime

Mille Merci Monsieur C’est magnifique.
Seulement si le montant existe dans Feuil Data et n’existe pas sur Feuil Detail ou bien sont détail est diffèrent que feuil data Alors je souhaite garder cette ligne dans Feuil Resultat pour que le total debit feuil Data égale total Resultat
Dans mon exemple le Libelle MM manque dans feuil Resultat pour que les totaux sont égaux

et dans feuil Resultat je n’utilse pas les colonne suivante G I J K

Mille merci monsieur

« Seulement si le montant existe dans Feuil Data et n’existe pas sur Feuil Detail ou bien sont détail est diffèrent que feuil data Alors je souhaite garder cette ligne dans Feuil Resultat pour que le total debit feuil Data égale total Resultat »

En d’autres termes cela veut dire ???

« Dans mon exemple le Libelle MM manque dans feuil Resultat pour que les totaux sont égaux »

il est absent de l’onglet « Detail »

« et dans feuil Resultat je n’utilse pas les colonne suivante G I J K »

Qui peut le plus peut le moins faut-il les supprimer ?

1 J'aime

Oui il est absent de l’onglet « Detail »
et pour les colonne c’est pas un problème
merci

Donc tout fonctionne correctement conformément à tes attentes
Merci et peut être à une autre fois

merci Mr oui ca fonction correctement
mais je pense que j’ai mal expliquer
le MM existe dans onglet détail et doit être figurer dans l’onglet Resultat

Avec ce complément

Cela devrait le faire

Dis moi

Filtre Avancé plus.xlsm (31,6 Ko)

1 J'aime

Mille merci Mr
c’est bon c’est exactement ce que je recherche

Ravi d avoir bien répondu à tes attentes
Au plaisir de te revoir sur ce forum
Bon vent

1 J'aime

Merci pour votre temps et pour votre gentillesse dans le but de partager votre savoir avec les gents
merci

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.