Supprimer Automatiquement Des Lignes

[paradis]

j'ai besoin sur plusieurs fichiers excel comportant prés de 65 000 lignes de supprimer 99 lignes sur 100 toutes les 100 lignes sur excel et j'aimerai le faire d'une façon trés rapide au lieu de supprimer 99 lignes manuellement

😕

merci de m'aider

 

[Baside]

Re : Supprimer Automatiquement Des Lignes

Bonjour le Forum,

Oki, mais de la 1 à 99, 101 à 199... ou autre?

Amicalement, Hervé.

 

[paradis]

Re : Supprimer Automatiquement Des Lignes

je garde la ligne 1, 101, 201, 301 etc

 

[porcinet82]

Re : Supprimer Automatiquement Des Lignes

Salut,

Voici un petit code qui fait ce que tu souhaites :

Sub test()
Dim i&
For i = 2 To Range("A65536").End(xlUp).Row
    Rows(i & ":" & i + 98).Delete Shift:=xlUp
Next i
End Sub

@+