Suprimer 6 lignes sur 7

[anthonygg]

Bonjour,

J'aimerais garder la ligne 1 puis suprimer les 6 lignes suivantes, et donc ne garder que 1 ligne sur 7.
J'ai essayé de faire une boucle For mais ça ne marche pas.

Quelqu'un aurait un code pour faire ceci ?

 

[Pierrot93]

Re : Suprimer 6 lignes sur 7

Bonjour,

à voir si le nombre total de lignes est bien un multiple de 7...

bonne journée
@+

 

[camarchepas]

Re : Suprimer 6 lignes sur 7

Bonjour Pierrot, Anthony,

Voici une solution possible , tout dépend ensuite de ton environnement

Pour tester ce code , remplir 22 lignes

Sub test()
Dim Boucle As Long

For Boucle = 22 To 1 Step -7
 Rows(Boucle + 1 & ":" & Boucle + 6).Delete
Next
End Sub

 

[phlaurent55]

Re : Suprimer 6 lignes sur 7

Bonjour à tous,

à+
Philippe

 

[Pierrot93]

Re : Suprimer 6 lignes sur 7

Re,
bonjour camarchepas, Philippe

peut être une autre approche ainsi :

Option Explicit
Sub test()
Dim i As Long, x As Long
Application.ScreenUpdating = False
x = Cells(Rows.Count, 1).End(xlUp).Row
x = x - x Mod 7
For i = x To 1 Step -7
    Rows(i - 5).Resize(6).Delete
Next i
End Sub

bon après midi
@+