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.
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.