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.
 

Pièces jointes

  • test1.xlsm
    39.2 KB · Affichages: 7

Discussions similaires

Réponses
2
Affichages
129