Supprimer lignes paire et vider lignes paires

LPandre · 29 Mai 2009

Bonjour,
j'ai 2 souhaits :
- vider le contenu de toutes les lignes paires d'un fichier
et dans ce cas il reste une ligne entre chaque lignes impaires

- supprimer les lignes paires et là avec la macro, les lignes restantes sont "remontées". Mais dans ce cas des lignes paires sont "recréées" et je ne voudrais pas que la macro boucle sans fin.

Par avance merci.

SergiO · 29 Mai 2009

Re : Supprimer lignes paire et vider lignes paires

Bonjour LPandre,

Voici 2 codes à tester:

Code:

Sub Efface_Paire()
DL = Range("A65536").End(xlUp).Row
X = DL Mod 2
If X = 1 Then DL = DL - 1
For L = DL To 1 Step -2
Cells(L, 1).EntireRow.ClearContents
Next L
End Sub

Code:

Sub Supprime_Paire()
DL = Range("A65536").End(xlUp).Row
X = DL Mod 2
If X = 1 Then DL = DL - 1
For L = DL To 1 Step -2
Cells(L, 1).EntireRow.Delete
Next L
End Sub

@+

LPandre · 29 Mai 2009

Re : Supprimer lignes paire et vider lignes paires

Parfait ! Merci beaucoup.

Supprimer lignes paire et vider lignes paires

LPandre

XLDnaute Impliqué

SergiO

XLDnaute Accro

LPandre

XLDnaute Impliqué

Discussions similaires

Supprimer lignes paire et vider lignes paires

LPandre

XLDnaute Impliqué

SergiO

XLDnaute Accro

LPandre

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency