suppression lignes

darib52 · 23 Décembre 2005

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 · 23 Décembre 2005

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 · 23 Décembre 2005

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 · 23 Décembre 2005

RE

En effet il faut declarer x long

Dim x as Long

darib52 · 23 Décembre 2005

le bug se déplace

Range(mesLignes).Delete

suppression lignes

darib52

Guest

PascalXLD

XLDnaute Barbatruc

darib52

Guest

PascalXLD

XLDnaute Barbatruc

darib52

Guest

Discussions similaires