XL 2013 suppression automatique lignes

[basnasone]

Salut tout le monde,

Je posséde un fichier excel de 2172 lignes et 5 colonnes A à E. je veux que excel me saute les 4 primières lignes et supprimer les 8 lignes suivantes et ainsi de suite.

Merci.

 

[job75]

Bonjour basnasone, bienvenue sur XLD,

Cette solution VBA suppose qu'il y a une (et une seule) ligne d'en-têtes :

Sub SupprimerLignes()
Dim tablo, i&, j&
Application.ScreenUpdating = False
With ActiveSheet.UsedRange.Offset(1) 'saute la ligne des en-têtes
    With .Resize(12 * Int(.Rows.Count / 12) + 12) 'multiple de 4 + 8 = 12
        .Columns(1).EntireColumn.Insert 'colonne auxiliaire
        tablo = .Columns(0) 'matrice, plus rapide
        For i = 1 To UBound(tablo) Step 12
            For j = i To i + 3
                tablo(j, 1) = 1 'repère
        Next j, i
        With .Columns(0)
            .Value = tablo
            .EntireRow.Sort .Cells, Header:=xlNo 'tri pour regrouper et accélérer
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            .EntireColumn.Delete
        End With
    End With
End With
End Sub

A+

 

[basnasone]

Bonjour basnasone, bienvenue sur XLD,
Cette solution VBA suppose qu'il y a une (et une seule) ligne d'en-têtes :

Sub SupprimerLignes()
Dim tablo, i&, j&
Application.ScreenUpdating = False
With ActiveSheet.UsedRange.Offset(1) 'saute la ligne des en-têtes
    With .Resize(12 * Int(.Rows.Count / 12) + 12) 'multiple de 4 + 8 = 12
        .Columns(1).EntireColumn.Insert 'colonne auxiliaire
        tablo = .Columns(0) 'matrice, plus rapide
        For i = 1 To UBound(tablo) Step 12
            For j = i To i + 3
                tablo(j, 1) = 1 'repère
        Next j, i
        With .Columns(0)
            .Value = tablo
            .EntireRow.Sort .Cells, Header:=xlNo 'tri pour regrouper et accélérer
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            .EntireColumn.Delete
        End With
    End With
End With
End Sub

A+

 

[basnasone]

merci beaucoup job75. sa marche très bien.