J'ai un classeur avec plusieurs feuilles.
Je dois appliquer un filtre automatique sur chaque feuilles avant de copier les données (de chaque feuille) pour les coller dans un nouveau classeur (avec la même répartition de feuilles).
Facile de créer une macro pour copier/coller une feuille, mais plus complexe de le faire pour plusieurs feuilles.
Si quelqu'un a une solution, n'hésitez pas !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour shasha,
voici un exemple ( il faut que les deux classeurs soit ouvert)
Sub Macro1() For Each f In Workbooks("Classeur1").Sheets 'appliquer le fitre désiré ici Workbooks("Classeur1").Sheets(f.Name).Range("A1") _ .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Workbooks("Classeur2").Sheets(f.Name).Range("A1") Next End Sub
voici un exemple ( il faut que les deux classeurs soit ouvert)
Sub Macro1()
For Each f In Workbooks("Classeur1").Sheets
'appliquer le fitre désiré ici
Workbooks("Classeur1").Sheets(f.Name).Range("A1") _
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Workbooks("Classeur2").Sheets(f.Name).Range("A1")
Next
End Sub
voici un exemple ( il faut que les deux classeurs soit ouvert)
Sub Macro1() For Each f In Workbooks("Classeur1").Sheets 'appliquer le fitre désiré ici Workbooks("Classeur1").Sheets(f.Name).Range("A1") _ .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Workbooks("Classeur2").Sheets(f.Name).Range("A1") Next End Sub
