Discussion :

[Marie207]

Exemple.xlsm

Bonjour,

Après plusieurs jours de recherche je bloque totalement, je débute dans les macros.
je souhaiterai pouvoir adapter la macro qui se trouve dans la Feuil3(Inspection) a toutes les feuilles qui seront dupliquer grâce a la macro qui se trouve dans la Feuil2(Fiche de travail). (Voir fichier ci-joint)
Dans le but de pouvoir copier toutes les lignes de ces feuilles (InspectionX) dans la feuille "Récap" lorsque "oui" figure dans la colonne "Rapport" de la feuille (Inspection)

En espérant que mon problème est suffisamment clair

merci pour votre aide qui me sera d'un grand secours

[Philippe Tulliez]

Bonjour,
En VBA deux contributions sur le sujet

• Regrouper plusieurs feuilles sur une autre. (2003-2010)
• CopyRange - Copie de liste de données (source) dans une feuille cible

La première est plus compliquée à comprendre que la seconde qui a été écrite pour sa simplicité de compréhension.
Cependant, même sans comprendre, elles sont utilisables en alimentant les arguments

Il existe également sans VBA, Power Query

Dans le but de pouvoir copier toutes les lignes de ces feuilles (InspectionX) dans la feuille "Récap" lorsque "oui" figure dans la colonne "Rapport" de la feuille (Inspection)

Je n'avais pas vu tout de suite qu'il y avait une condition pour l'exportation. Dans ce cas là, il y a une solution avec la méthode AdvancedFilter de l'objet Range

Pour info : je n'ouvre pas les fichiers joints

[révèr]

Bonjour marie,

Premièrement : Définis toutes tes bases de données sous forme de TABLEAU. Cela facilite grandement la manipulation. Pense aussi à les renommer de manière à les identifier rapidement. (t_data, t_budget... par exemple)

Secondement : Effectuer un filtre (soit via Excel si tu le peux, ou via VBA avec la méthode AutoFilter ) - Range("t_InspectionX[Rapport]").AutoFilter (à toi de compléter)

Aide Microsoft : https://docs.microsoft.com/fr-fr/off...nge.autofilter

Troisièmement : Copier les données filtrées avec la méthode Copy - Workbooks(....).Worksheets(....).ListObjects("t_InspectionX").DataBodyRange.SpecialCells(xlCellTypeVisible).Copy Destination:=... toi de compléter

Aide Microsoft : https://docs.microsoft.com/fr-fr/off...cel.range.copy

Par la suite, tu n'auras qu'à boucler sur tous les tableaux de tes feuilles.