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
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
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)
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
« 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 ?