XL 2016 copy/paste filtered merged cells

said123

XLDnaute Nouveau
Bonjour, comme indique le nom, je veux faire un filtre sur un feuil excel, copier tous les cellules filtrées et les coller dans un autre workbook.
Voilà le code que j'ai fait mais il ne fonctionne pas parce que j'ai des cellules fusionnées

Dim Extract, Duplicate As Worksheet
Set Extract = Workbooks(fileTable(2)).Sheets("Suivi")
Set Duplicate = Workbooks(fileTable(1)).Sheets("Suivi filtered")
Extract.Range(Extract.Cells(1, 1), Extract.Cells(NbECU, j)).SpecialCells(xlCellTypeVisible).Copy
Duplicate.Cells(1, 1).PasteSpecial

NB: NbECU: nombre de ligne non vide
j: dernière colonne
 

Discussions similaires

Réponses
2
Affichages
655

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll