Supprimer la derniere ligne dans une plage de cellules

KTM · 24 Mars 2019

Bonsoir chers tous
J'aimerais avoir un petit code qui supprime la derniere ligne de ma plage ( pas la ligne entière de la feuille)
j'ai ceci:
dl = Range("A" & Rows.Count).End(xlUp).Row …………….derniere ligne non vide
Ma plage occupe les colonnes A B C D

MERCI.

mapomme · 24 Mars 2019

Bonsoir @KTM,

Une piste:

VB:

Cells(Rows.Count, "a").End(xlUp).Resize(, 4).Delete xlShiftUp

KTM · 24 Mars 2019

SUB

mapomme à dit:
Bonsoir @KTM,

Une piste:

VB:

Cells(Rows.Count, "a").End(xlUp).Resize(, 4).Delete xlShiftUp

SUBLIME pomme êtes vous mapomme .Merci

KTM · 24 Mars 2019

mapomme à dit:
Bonsoir @KTM,

Une piste:

VB:

Cells(Rows.Count, "a").End(xlUp).Resize(, 4).Delete xlShiftUp

Fantastique code
Je voudrais savoir comment l'adapter pour supprimer la table entiere sauf la premiere ligne A11

mapomme · 24 Mars 2019

Re @KTM ,

Essayer:

VB:

Range("a2:d" & 1 + Cells(Rows.Count, "a").End(xlUp).Row).Delete xlShiftUp

Le 1+ est présent pour ne pas effacer la première ligne si la seule ligne non vide est la ligne n°1.

edit: oublié d'écrire le .Row

KTM · 24 Mars 2019

mapomme à dit:
Re @KTM ,

Essayer:

VB:

Range("a2:d" & 1 + Cells(Rows.Count, "a").End(xlUp).Row).Delete xlShiftUp

Le 1+ est présent pour ne pas effacer la première ligne si la seule ligne non vide est la ligne n°1.

edit: oublié d'écrire le .Row

OK C'EST VU. Merci pour tout.

Supprimer la derniere ligne dans une plage de cellules

KTM

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

KTM

XLDnaute Impliqué

Discussions similaires