XL 2013 Suppression de quelques lignes de tableau VBA

loBirane · 1 Août 2019

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.

Robert · 1 Août 2019

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

Hasco · 1 Août 2019

Bonjour,

Avec:

VB:

Sub Suppr()
    Sheets("Liaisons HT").ListObjects("tableau5").DataBodyRange.Delete
End Sub

Bonne journée

P.S. Hello @Robert

loBirane · 1 Août 2019

Robert à dit:
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

Merci Robert.
ça marche bien.

loBirane · 1 Août 2019

Roblochon à dit:
Bonjour,

Avec:

VB:

Sub Suppr() Sheets("Liaisons HT").ListObjects("tableau5").DataBodyRange.Delete End Sub

Bonne journée

P.S. Hello @Robert

C'est super. Ca marche tout comme celui de Robert.
Bonne journée à tous.

XL 2013 Suppression de quelques lignes de tableau VBA

loBirane

XLDnaute Nouveau

Pièces jointes

Robert

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

loBirane

XLDnaute Nouveau

loBirane

XLDnaute Nouveau

Discussions similaires

XL 2013 Suppression de quelques lignes de tableau VBA

loBirane

XLDnaute Nouveau

Pièces jointes

Robert

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

loBirane

XLDnaute Nouveau

loBirane

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency