Microsoft 365 Commande VBA pour supprimer plusieurs lignes d'un tableau structuré

fanfan38

XLDnaute Barbatruc

• 12 Février 2025

• #2

Bonjour

VB:

Sub SuppressionLigneTableau()
  for n = 19 to 16 step -1
     If [tableau1].Item(n, 1) <> "" Then [tableau1].Rows(n).delete
  next
End Sub

A+ François

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 12 Février 2025

• #3

bonjour

essaie en passant par le resize
Feuil1.ListObjects("Tableau1").ListRows(16).range.resize(4).Delete

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 12 Février 2025

• #4

fanfan38 à dit:

Bonjour

VB:

Sub SuppressionLigneTableau()
  for n = 19 to 16 step -1
     If [tableau1].Item(n, 1) <> "" Then [tableau1].Rows(n).delete
  next
End Sub

A+ François

Cliquez pour agrandir...

Bonjour @fanfan38, merci pour ton intérêt et ta réponse. Mais du coup, je passe toujours par une boucle...

 

Vote positif 0 Vote négatif

BenHarber

XLDnaute Occasionnel

• 12 Février 2025

• #5

vgendron à dit:

bonjour

essaie en passant par le resize
Feuil1.ListObjects("Tableau1").ListRows(16).range.resize(4).Delete

Cliquez pour agrandir...

Bonjour @vgendron ,
Merci pour ta réponse.
Tu as raison : il faut bien passer par la commande "Resize". 👍🏻
J'ai simplement ajusté la ligne de départ (je suppose qu'il ne faut pas compter l'entête de mon TS donc partir de la 15è ligne (données)).
Ce qui donne : Feuil1.ListObjects("Tableau1").ListRows(15).Range.Resize(4).Delete

Merci beaucoup : je vais conserver cette astuce dans ma musette !

 

Dernière édition: 12 Février 2025

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 12 Février 2025

• #6

Bonsoir à tous,

Ou aussi :

VB:

[Tableau1].ListObject.Range.Rows(16).Resize(4).Delete

La ligne d'en-têtes est la ligne 1.

A+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2025

• #7

Bonsoir à tous😉,
ma p'tite version ( les lignes sont comptées à partir de la première ligne des données)
[Tableau1].Rows("16:19").Delete

 

Dernière édition: 12 Février 2025

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2025

• #8

Re,

Une procédure générique : LstoSupprLigne TS , NumLigDeb , NumLigFin
qui, je pense, effectue toutes les vérifications nécessaires et qui permet de supprimer par exemple :

les lignes entre 16 et 19	LstoSupprLigne Sheets("Feuil1").ListObjects("Tableau1"), 16, 19
les lignes depuis la 1ère jusqu'à 19	LstoSupprLigne Sheets("Feuil1").ListObjects("Tableau1"), , 19
les lignes depuis 16 jusqu'à la dernière ligne	LstoSupprLigne Sheets("Feuil1").ListObjects("Tableau1"), 16
toutes les lignes	LstoSupprLigne Sheets("Feuil1").ListObjects("Tableau1")

nota 1 : TS est le tableau structuré, NumLigDeb est la ligne de début, NumLigFin est la ligne de fin. Dans certains cas, NumLigDeb et/ou NumLigDeb peuvent être omis.

nota 2 : les lignes sont comptées à partir de la première ligne des données

Le code à mettre dans un module ordinaire :

VB:

Sub LstoSupprLigne(TS As ListObject, Optional NumLigDeb& = 1, Optional NumLigFin& = 999999999)
Dim n&
   If TS.ListRows.Count = 0 Then Exit Sub
   If NumLigDeb > NumLigFin Then n = NumLigDeb: NumLigDeb = NumLigFin: NumLigFin = n
   If NumLigDeb < 1 Then NumLigDeb = 1
   If NumLigDeb > TS.ListRows.Count Then Exit Sub
   If NumLigFin > TS.ListRows.Count Then NumLigFin = TS.ListRows.Count
   TS.DataBodyRange.Rows(NumLigDeb & ":" & NumLigFin).Delete
End Sub

 

Dernière édition: 12 Février 2025

Vote positif 0 Vote négatif