Détection/Suppréssion sur un critère

[Marc T]

Bonjour à vous,

D'abord je tiens à remercier Yoyo et Hervé pour leur aide sur ma question précédente!

Aujourd'hui je cherche a savoir si il serait possible via une petite macro de supprimer un ensemble de ligne par rapport à un critère.

J'ai un tableau, avec plusieurs milliers de lignes et je souhaiterai que dès que la macro détecte la valeur 'Total' dans la colonne A toutes les lignes suivantes et y compris la ligne dans laquelle se trouve 'Total' jusqu'a la 65536ème se retrouvent effacées.

Comment cela pourrait-il se faire?

Merci d'avance de votre aide. Elle m'a été fort précieuse sur ma question précédente!

Marc.

 

[Hervé]

Bonjour marc

peut etre comme ceci :

Sub Bouton1_QuandClic()
Dim c As Range

Set c = Columns('A').Find('Total')
If Not c Is Nothing Then Rows(c.Row & ':65536').EntireRow.Delete
End Sub

salut

 

[Marc T]

Royal Hervé!!

Ca marche nickel...

Merci!