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

job75 à dit:

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 :

VB:

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+

Cliquez pour agrandir...

Katido à dit:

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

Cliquez pour agrandir...