Macro pour supprimer les lignes

Sub zz_Sup()
For i = 700 To 1 Step -2
Cells(i, 1).EntireRow.Delete
Next
End Sub

AV

"Andrew" <a_cassels@hotmail.com> a écrit dans le message news:
062801c3656b$392dba30$a501280a@phx.gbl...
Bonjour,

J'ai un gros document excel ~= 700 lignes dont une ligne
sur deux ne sert à rien.

Est ce que vous conaissez une macro qui permettrait de
supprimer cette ligne superflue ?

Merci d'avance.

Andrew

Merci beaucoup tout le monde,

Merci AV, ça marche super bien

-----Message d'origine-----
Sub zz_Sup()
For i = 700 To 1 Step -2
Cells(i, 1).EntireRow.Delete
Next
End Sub

AV

"Andrew" <a_cassels@hotmail.com> a écrit dans le message
news:

062801c3656b$392dba30$a501280a@phx.gbl...
Bonjour,

J'ai un gros document excel ~= 700 lignes dont une ligne
sur deux ne sert à rien.

Est ce que vous conaissez une macro qui permettrait de
supprimer cette ligne superflue ?

Merci d'avance.

Andrew


.

Bonjour

Le plus simple sans te compliquer la vie
Tu ajoute une colonne "X" et tu numérotes tes 700 lignes de 1 à 700
(pas manuellement bien sûr) dans X
Tu tries tes données par ta colonne A y.c la colonne "X"
Tu resélectionne les données
Puis tu retries par la colonne X ascendant
Et voila

C'est pas très académique mais le résultat est garantit

A+
Joe

"Andrew" <a_cassels@hotmail.com> a écrit dans le message news:
062801c3656b$392dba30$a501280a@phx.gbl...
Bonjour,

J'ai un gros document excel ~= 700 lignes dont une ligne
sur deux ne sert à rien.

Est ce que vous conaissez une macro qui permettrait de
supprimer cette ligne superflue ?

Merci d'avance.

Andrew