XL 2016 supprimer des lignes d'un tableau par VBA

xUpsilon à dit:

Bonjour,

Voir l'instruction Range().Delete (documentation microsoft ici). Dans ton cas, il faudra préciser xlShiftUp.

Bonne journée,

Cliquez pour agrandir...

natorp à dit:

Bonjour tout le monde

un essai en pièce-jointe :

VB:

Sub Delete()
  Dim r As Range
 
  Set r = Range("a:a").Find(what:="TOTAL", LookIn:=xlValues, lookat:=xlWhole)
  If Not r Is Nothing Then Range("a16:a" & r.Row - 1).EntireRow.Delete
End Sub

Cordialement, Gérard

Cliquez pour agrandir...