XL 2016 supprimer des lignes d'un tableau par VBA

[halecs93]

Bonjour,

Je finalise mon classeur, et encore merci pour l'aide apportée sur le forum.

Je n'arrive pas à coder un VBA associer au bouton "nouvelle commande" qui permettrait de supprimer certaines lignes de mon tableau (cf. illustration).

Quelq'un(e) aurait une solution ?

Merci beaucoup.

 

[xUpsilon]

Bonjour,

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

Bonne journée,

 

[halecs93]

Bonjour,

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

Bonne journée,

Merci... je comprends en petite partie la syntaxe, mais je ne vois pas comment définir précisément les lignes à supprimer

 

[natorp]

Bonjour tout le monde

un essai en pièce-jointe :

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

 

[halecs93]

Bonjour tout le monde

un essai en pièce-jointe :

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

Super.... très efficace. Merci