Supprimer des lignes dans excel

[Bob]

Salut forum
Je cherche une solution, macro par exemple, qui dans un fichier excel, supprime toutes les lignes paires, ou toutes les lignes multiples de 3, ou de 4, etc...
Cela me serait très utile pour adapter un fichier client à mon format de base.
Merci d'avance.
Boby

 

[porcinet82]

Salut Bob,

Une macro pour supprimer toutes les lignes paires :

Sub supr()
Dim i As Byte

For i = 2 To Range('A65536').End(xlUp).Row
    Rows(i).Delete
Next i
End Sub

Pour supprimer toutes les lignes impaires, il te suffit de faire commencer i à 1.

@+

 

[Hervé]

Bonjour bob, porcinet

porcinet, il manquerait pas un step 2 a tout hasard 🙂

salut

 

[porcinet82]

Salut Hervé,

Non non, il ne manque pas le Step parce que je fais ma suppression de ligne 'à l'envers', je vais de haut en bas, alors qu'il faudrait faire l'inverse. Ce qui donnerait :

Sub supr()
Dim i As Integer

For i = Range('A65536').End(xlUp).Row To 1 Step -2
    Rows(i).Delete
Next i
End Sub

@+

 

[Hervé]

re porcinet 🙂

En effet tu as raison, je n'avais pas vu que tu bouclais de haut en bas.

désolé pour cette intervention inutile.

salut

Message édité par: hervé, à: 20/01/2006 15:59