XL 2016 supprimer des lignes d'un tableau par VBA

halecs93

XLDnaute Occasionnel
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.

1675064790839.png
 

Pièces jointes

  • COMMANDE TEST v9.xlsm
    32.6 KB · Affichages: 2
Solution
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

natorp

XLDnaute Accro
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
 

Pièces jointes

  • COMMANDE TEST v9.xlsm
    41.3 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
311 735
Messages
2 082 024
Membres
101 873
dernier inscrit
excellllll