Supprimer lignes paire et vider lignes paires

[LPandre]

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]

Re : Supprimer lignes paire et vider lignes paires

Bonjour LPandre,

Voici 2 codes à tester:

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

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]

Re : Supprimer lignes paire et vider lignes paires

Parfait ! Merci beaucoup.