bonjour
j'aimerais copier le bloc des colonnes et lignes visibles et le coller sur une autre feuille et ca marchait bien avant et maintenant j'ai ce genre de message erreur
je ne comprends pas
merci pour votre aide
voici le code
ou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 sheet_d="feu1" Set plage = Range("A1", "d10").SpecialCells(xlCellTypeVisible) plage.Select: plage.Copy Sheets(sheet_d).Select Range("A2").Select ActiveSheet.Paste
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 sheet_d="feu1" Set plage = Range("A1", "d10").SpecialCells(xlCellTypeVisible) plage.Select: plage.Copy Sheets(sheet_d).Select Range("A2").Select With Sheets(sheet_d) .Activate .Range("a2").Select .Paste End With
Partager