Trouver référence et effacer 500 lignes en-dessous

[Mike]

Bonjour,

j'ai en colonne A une série de références différentes; J'aimerais aller me positionner sur la cellule indiquant toto (valeur unique) et effacer les 5000 lignes suivantes car non utiles;

Comment puis-je faire celà via vba ??
merci d'avance

 

[job75]

Re : Trouver référence et effacer 500 lignes en-dessous

Bonjour Mike,

Essayez la macro suivante (à placer dans le code de la feuille) :

Sub Efface()
Dim lig As Long
lig = Application.Match("toto", [A:A], 0)
Range(lig + 1 & ":" & lig + 5000).Delete
End Sub

A+

 

[Mike]

Re : Trouver référence et effacer 500 lignes en-dessous

Salut job75,

Merci bcp, c'est parfait......
Mike