Supprimer 1 ligne sur 3

[Toftof43]

Bonjour,

J'ai une feuille Excel avec des données sur plsrs lignes, je voudrais faire une Macro pour sélectionner automatiquement 1 ligne sur 3 et ensuite supprimer ces lignes.
Ca doit surement être jouable ?

Merci d'avance

 

[nat54]

Re : Supprimer 1 ligne sur 3

Ca commence à quelle ligne ? jusque quelle ligne ?

 

[Toftof43]

Re : Supprimer 1 ligne sur 3

Ca commence à quelle ligne ? jusque quelle ligne ?

Mon tableau commence à la ligne 5 !

 

[nat54]

Re : Supprimer 1 ligne sur 3

désolée je pensais pouvoir t'aider mais mes connaissances sont trop restreintes 🙁

Sub Macro1()

i = 1
Do While Cells(5, 1) <> ""  ' données en colonne A
      Rows(i).Select
    i = i + 3
  

Loop
End Sub

il ne sélectionne qu'une ligne par une ligne
pas top

 

[Toftof43]

Re : Supprimer 1 ligne sur 3

Dommage que cela ne fonctionne pas ca m'aurait été bien utile !!!!

 

[Papaye]

Re : Supprimer 1 ligne sur 3

Bonjour,

Je te propose

Sub toto()

For i = 8 To Application.Range("A65536").End(xlUp).Row Step 2
Rows(i).Delete
Next i

End Sub

A essayer !

 

[Toftof43]

Re : Supprimer 1 ligne sur 3

Je ne comprend pas ta Macro ne selectionne pas les lignes ! et elles ne sont pas effacées non plus !!

 

[PascalXLD]

Re : Supprimer 1 ligne sur 3

Bonjour

En effet la macro ne selectionne pas les lignes mais elle les supprime bien

C'est mieux d'eviter le select car gain de temps

Bon courage

 

[Papaye]

Re : Supprimer 1 ligne sur 3

Rien de plus à rajouter !

 

[Toftof43]

Re : Supprimer 1 ligne sur 3

Si je veux supprimer 4 lignes sur 5 quels sont les paramètres à changer dans la Macro ?
pourquoi mettre dans la Macro i=8 ??

 

[Papaye]

Re : Supprimer 1 ligne sur 3

Ce que j'ai compris : ton titre est sur la ligne 5, les données lignes 6 et suivantes : la première ligne à supprimer est la huitième (on laisse la 6 et la 7 et on supprime la huitième).
La suivante à supprimer devait être la onzième, mais comme tu as supprimé la n°8, la onzième est devenue la dizième.
Du coup la boucle va de 2 en 2 (step 2), car à chaque fois, que tu supprimes une ligne les lignes "remontent" d'un numéro ...
Si tu veux supprimer 4 lignes sur 5, il vaut mieux faire une boucle inversée (de la fin à la ligne 5) en supprimant des "paquets" de 4 lignes, puis en remontant d'une ligne et ainsi de suite ...
C'est clair ? Ne connaissant pas ton niveau de programmation en excel, je ne sais pas si tu vois comment faire.

 

[Toftof43]

Re : Supprimer 1 ligne sur 3

OK c clair , merci beaucoup pour ton aide !

 

[Papaye]

Re : Supprimer 1 ligne sur 3

De rien ! Un "merci" c'est tellement bon !
Bon courage à toi !