Discussion :

[mandrake57]

Bonjour à tous, j'aimerais savoir s'il est possible de coder une macro qui permet de filtrer un tableau avec comme paraamètre les 25 dernières lignes.

Mon but et d'obtenir à la réalisation du filtre les 25 dernières lignes du tableau, malheureusement je ne sais pas faire...

Merci

[pgz]

Bonjour.

Je comprends que tu veux masquer toutes les lignes de ton tableau, sauf les 25 dernières.

Si ton tableau est sur la feuille "NomFeuille", qu'il commence en première ligne et que la colonne A est renseignée, tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub subTop25()
Dim oSh As Excel.Worksheet
Dim lDer As Long
 
Set oSh = ThisWorkbook.Worksheets("NomFeuille")
lDer = oSh.Range("A1").End(xlDown).Row
oSh.Rows("1:" & lDer).Hidden = False
 
If lDer > 25 Then
    oSh.Rows("1:" & lDer - 25).Hidden = True
End If
 
Set oSh = Nothing
End Sub

Et sinon, tu adaptes.

Cordialement,

PGZ

[mandrake57]

Merci pour cette réponse ressemble à celle que je vient d'employer. En fait je cache les lignes de mon tableau sauf les 25 dernières.

En tout cas merci pour le code je vais le comparer à celui que j'ai pondu.