Supprimer 10 dernières colonnes

[denis11]

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.

 

[vgendron]

Re : Supprimer 10 dernières colonnes

Hello

avec cette ligne de code?

Sheets(1).Range("IV1").End(xlToLeft).Offset(0, -9).EntireColumn.Resize(, 10).Delete

 

[gosselien]

Re : Supprimer 10 dernières colonnes

Bonjour,

ceci devrait aller :

Range(Columns(pl), Columns(dcol)).Delete

 

[denis11]

Re : Supprimer 10 dernières colonnes

Bonsoir à tous les deux,

Super les 2 solutions fonctionnent du "tonnerre".

Merci encore depuis que je me gratte la tête avec ça.