XL 2019 VBA Suppression de 10 ligne on laisse une ligne on supprime 10 lignes...

[patpat78]

Bonjour

j'essaye de faire une macro pour supprimer sur une plage variable des blocs de 10 ligne en laissant la 11 eme et ainsi de suite j'arrive a supprimer une ligne sur 2 mais c'est pas exactement ce qu'il me faut en commençant a partir de la ligne 5

auriez vous une idée ?

merci d'avance

 

[Katido]

Bonjour Patpat,

C'est juste une petite boucle, mais il faut penser que quand on a supprimé le premier bloc (les lignes 5 à 14), les lignes suivantes à supprimer ne sont pas les lignes 16 à 25, mais les lignes 6 à 15 !

Ci-joint un fichier exemple

 

[job75]

Bonsoir patpat78, Katido,

Sur un grand tableau, si l'on veut aller vite, il ne faut pas utiliser une boucle.

Utiliser une colonne auxiliaire, une formule pour filtrer et un tri pour regrouper :

Sub Supprimer()
Application.ScreenUpdating = False
Columns(1).Insert 'colonne auxiliaire
With Rows("5:" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    If .Row = 5 Then
        With .Columns(1)
            .Formula = "=LN(MOD(ROW()-5,11)=10)" 'formule pour filtrer
            .Value = .Value 'supprime les formules
            .EntireRow.Sort .Cells, xlAscending, Header:=xlNo 'tri pour regrouper et accélérer
            .SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les valeurs d'erreur
        End With
    End If
End With
Columns(1).Delete 'supprime la colonne auxiliaire
End Sub

A+

 

[job75]

Pour tester j'ai recopié le tableau A5:A15 sur 110 000 lignes.

Chez moi la macro précédente s'exécute en 0,3 seconde.

Bonne nuit.

 

[Katido]

Pas vraiment sûr qu'en ajoutant une formule dans toutes les lignes concernées, puis en faisant un tri, puis la suppression, on soit gagnant en temps s'il y a peu de lignes (moins de quelques milliers)
Au delà, je suis d'accord.

La première question à se poser est combien de lignes (ou de blocs de 10) il faut supprimer

 

[patpat78]

Bonsoir patpat78, Katido,

Sur un grand tableau, si l'on veut aller vite, il ne faut pas utiliser une boucle.

Utiliser une colonne auxiliaire, une formule pour filtrer et un tri pour regrouper :

Sub Supprimer()
Application.ScreenUpdating = False
Columns(1).Insert 'colonne auxiliaire
With Rows("5:" & Cells.SpecialCells(xlCellTypeLastCell).Row)
    If .Row = 5 Then
        With .Columns(1)
            .Formula = "=LN(MOD(ROW()-5,11)=10)" 'formule pour filtrer
            .Value = .Value 'supprime les formules
            .EntireRow.Sort .Cells, xlAscending, Header:=xlNo 'tri pour regrouper et accélérer
            .SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les valeurs d'erreur
        End With
    End If
End With
Columns(1).Delete 'supprime la colonne auxiliaire
End Sub

A+

Merci ça marche impeccable!

 

[job75]

Bonjour patpat78, Katido,

La première question à se poser est combien de lignes (ou de blocs de 10) il faut supprimer

Avec la solution que j'ai donnée il n'y a pas à se poser de question.

C'est la solution la plus rapide quel que soit le nombre de lignes à supprimer.

De plus les formats sont conservés, contrairement à la méthode utilisant des tableaux VBA.

A+