Supprimer 10 dernières colonnes

denis11

XLDnaute Nouveau
Bonsoir à tous,
Lorsque je veux supprimer les 4 dernières lignes d'un tableau, j'utilise ce code :
dl = Sheets(1).Range("a65536").End(xlUp).Row
pll = dl - 4
Sheets(1).Rows(pll & ":" & dl).Delete

Je voudrai faire de même avec les 10 dernières colonnes, alors pour cela je me suis dit qu'il suffisait de changer Row par Column, mais rien ne se passe, sauf le message "erreur d’exécution 1004".
dcol = Sheets(1).Range("IV1").End(xlToLeft).Column
pl = dcol - 10
Sheets(1).Columns(pl & ":" & dcol).Delete

J'ai inversé dcol et pl, mis xlToRight (sait on jamais); mais rien non plus.

Si l'un d'entre vous pouvait me venir en aide je lui serait reconnaissant.
 

Discussions similaires

Réponses
12
Affichages
300
Réponses
13
Affichages
2 K

Statistiques des forums

Discussions
299 799
Messages
1 979 188
Membres
206 610
dernier inscrit
FINAMA