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

Mike · 11 Septembre 2008

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 · 11 Septembre 2008

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

Bonjour Mike,

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

Code:

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

A+

Mike · 11 Septembre 2008

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

Salut job75,

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

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

Mike

Guest

job75

XLDnaute Barbatruc

Mike

Guest

Discussions similaires

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

Mike

Guest

job75

XLDnaute Barbatruc

Mike

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency