Besoin macro pour supprimer lignes toutes les 52 lignes

[Douhme]

Bonjour,

J'ai besoin d'une macro qui me permet de supprimer des lignes.
Elle commence de la cellule A2 jusqu'a la cellule A7250.
Les lignes a supprimer sont de la ligne (A54:A58) toutes les 52 lignes.
Soit supprimer les lignes (A54:A58) puis les lignes (A110:A115) etc.. jusqu'à la cellule A7250.
Le fichier evolue toutes les semaines, c'est pour ca que j'ai besoin d'une macro.

Merci par avance

 

[Douhme]

Re : Besoin macro pour supprimer lignes toutes les 52 lignes

Oula si j'avais su que poser la meme questions sur 3 fourms, cela ferait tout un plat.
Je me serai abstenu.
Si cela vous tracasse autant, demandez aux admins de fermer les posts que j'ai mis puis de virer mes comptes.
Ah ces maudits français se sentant obligés de faire la morale.

Bienvenue
L'ostie crosseur

 

[jmd2]

Re : Besoin macro pour supprimer lignes toutes les 52 lignes

Meuh non

on te fait pas la morale
Par contre on aimerait des excuses, (même légères puisque tu ne savais pas)
et surtout pas des insultes genre : maudits ! ! !

 

[Cousinhub]

Re : Besoin macro pour supprimer lignes toutes les 52 lignes

Bonjour tout le monde,
n'ayant pas vu ce que les autres forums proposaient, voici ma contribution

Sub supp_lignes()
Application.ScreenUpdating = False
For j = 7222 To 52 Step -56
Cells(j, 1).Resize(5, 1).EntireRow.Delete
Next j
End Sub

En espérant que ce soit cela...

 

[Douhme]

Re : Besoin macro pour supprimer lignes toutes les 52 lignes

Merci à vous tous de m'avoir trouver la solution à ma question posé et au question précédente.
Désolé de l'avoir mis dans 3 forums et j'irai au coin pendant 1mn

Bye bye

 

[jeanpierre]

Re : Besoin macro pour supprimer lignes toutes les 52 lignes

Re, Bonsoir bhbh,

Ben, c'est-y pas mieux comme cela...?

 

[Douhme]

Re : Besoin macro pour supprimer lignes toutes les 52 lignes

Le gagnant est BhBh.
Merci pour tout