suppression lignes

[darib52]

bonjour à tous,
une dernière p'tit question avant noël.
dans une feuille, j'ai besoin de supprimer les lignes 65 et 66, puis 137 et 138, puis 209 et 210,....., jusqu'à la dernière ligne de la feuille.

en fait l'écart est toujours le même : 72

quelle macro employée ?

merci de vos réponses.
amitiés

 

[PascalXLD]

Bonjour

essaies ceci

Sub Macro1()

Dim mesLignes As String
Dim x As Integer

For x = 65 To Range('A65536').End(xlUp).Row Step 72
    mesLignes = IIf(mesLignes = '', x & ':' & x + 1, mesLignes & ',' & x & ':' & x + 1)
Next
Range(mesLignes).Delete
End Sub

Bon courage

 

[darib52]

merci pour ta réponse.
quand je fais sur une liste partielle, (1500 lignes ) ça fonctionne.
qd je teste sur l'esemble 35000 lignes, ça bug.
???
du style
For x = 65 To Range('A65536').End(xlUp).Row Step 72

j'avoue ne pas tout comprendre.

 

[PascalXLD]

RE

En effet il faut declarer x long

Dim x as Long

 

[darib52]

le bug se déplace

Range(mesLignes).Delete