XL 2013 Suppression de quelques lignes de tableau VBA

loBirane

XLDnaute Nouveau
VB:
Sub Suppr()
    Dim cel As Range
    Sheets("Liaisons HT").Select
    For Each cel In Range("D14:D" & Range("D" & Application.Rows.Count).End(xlUp).Row)
            cel.EntireRow.Delete
    Next cel
End Sub
Bonjour cher forum,
Je voudrais votre aide s'il vous plait.
Je souhaite, dans le fichier joint, supprimer les ligne du tableau dans la feuille liaisons HT (sauf la première ligne).
J'ai essayé le code i-dessous mais il me le fait ligne après ligne alors que je veux la suppression en une seule exécution.


Si le tableau contient plusieurs lignes, comment pourrais sélectionner toutes lignes sauf la première et ensuite les supprimer toute? L'idée étant de garder une ligne du tableau après suppression.

Merci.
 

Fichiers joints

Robert

XLDnaute Barbatruc
Bonjour Lobirane, bonjour le forum,

Peut-être comme ça :

VB:
Sub Macro1()
Dim DL As Integer
DL = Range("Tableau5").Rows.Count
Range("Tableau5").Rows(2 & ":" & DL).Delete
End Sub
 

Roblochon

XLDnaute Accro
Bonjour,

Avec:
VB:
Sub Suppr()
    Sheets("Liaisons HT").ListObjects("tableau5").DataBodyRange.Delete
End Sub
Bonne journée

P.S. Hello @Robert
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas