XL 2016 supprimer des lignes d'un tableau par VBA

halecs93 · 30 Janvier 2023

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.

natorp · 30 Janvier 2023

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

xUpsilon · 30 Janvier 2023

Bonjour,

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

Bonne journée,

halecs93 · 30 Janvier 2023

xUpsilon à dit:
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 · 30 Janvier 2023

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

halecs93 · 30 Janvier 2023

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

Super.... très efficace. Merci

XL 2016 supprimer des lignes d'un tableau par VBA

halecs93

XLDnaute Impliqué

Pièces jointes

natorp

xUpsilon

XLDnaute Accro

halecs93

XLDnaute Impliqué

natorp

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

Discussions similaires