Afficher tous les X lignes

[vistla]

Bonjour!

Tous les mois, mon logiciel génère un rapport de plus de 10 000 lignes et j'aimerais faire un filtre me permettant d'afficher seulement les lignes dans un intervale de 6.

Dans mon fichier exemple ci-joints, je voudrais que les lignes 1 à 5 soient gardé, mais que par la suite, les lignes 10, 16, 22, etc soit conservé. Les autres lignes pourraient soit être masquées, ou détruites.. cela n'a pas d'importance..

Je sollicite vos talents encore une fois

Merci d'avance,

Éric

 

[job75]

Re : Afficher tous les X lignes

Bonsoir vistla,

Sub SupprimeLignes()
Dim plage As Range
Set plage = Columns(1).SpecialCells(xlCellTypeConstants) 'plage contenant des constantes
If plage Is Nothing Then Exit Sub
Rows(1).Insert 'à cause de Offset(-1)...
Set plage = Intersect(Rows("7:65536"), plage.Offset(-1))
If plage Is Nothing Then Exit Sub
plage.EntireRow.Delete
Rows(1).Delete
End Sub

Sont conservées les lignes 1 à 5 et celles situées avant une ligne vide.

A+

 

[job75]

Re : Afficher tous les X lignes

Re,

Il n'y avait pas besoin d'insérer une ligne

Sub SupprimeLignes()
Dim plage As Range
Set plage = Columns(1).SpecialCells(xlCellTypeConstants) 'plage contenant des constantes
If plage Is Nothing Then Exit Sub
Set plage = Intersect(Rows("7:65536"), plage)
If plage Is Nothing Then Exit Sub
plage.Offset(-1).EntireRow.Delete
End Sub

Edit : et si l'on veut très très bref :

Sub SupprimeLignes()
[COLOR="Red"]On Error Resume Next[/COLOR]
Intersect(Rows("7:65536"), Columns(1).SpecialCells(xlCellTypeConstants)).Offset(-1).EntireRow.Delete
End Sub

A+

 

[vistla]

Re : Afficher tous les X lignes

Nickel! En plus, il y a un sommaire en bas de mon fichier et ces lignes ne sont pas effacé!

Merci beaucoup! impeccable!

 

[job75]

Re : Afficher tous les X lignes

Re,

En plus, il y a un sommaire en bas de mon fichier et ces lignes ne sont pas effacé!

Parce qu'il n'est pas en colonne A, ou alors une ligne sur 2, sinon

A+