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

[BenHarber]

Bonjour Le Forum,
Une petite demande (de confirmation) SVP.

Je souhaite supprimer par macro les lignes 16 à 19 d'un tableau structuré "Tableau1".
La seule solution que j'ai trouvée est de boucler à l'envers sur les lignes à supprimer de mon TS du type :
For i = 19 to 16 Step -1
Feuil1.ListObjects("Tableau1").ListRows(i).Delete
Next i

Et a priori, je NE PEUX PAS exécuter cette commande en une seule ligne (du type "Feuil1.ListObjects("Tableau1").ListRows("16:19").Delete).

Vous confirmez ? 🤔

Merci d'avance pour vos retours...

 

[fanfan38]

Bonjour

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

 

[vgendron]

bonjour

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

 

[BenHarber]

Bonjour

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

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

 

[BenHarber]

bonjour

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

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 !

 

[job75]

Bonsoir à tous,

Ou aussi :

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

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

A+

 

[mapomme]

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

 

[mapomme]

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 :

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