Discussion :

[Swiper]

Alors me voici encore avec un petit problème lié aux filtres.

Nous sommes dans une feuille filtrée avec des lignes masquées(qui n'appartiennent pas à la selection) et d'autres visibles(qui appartiennent à la selection).

J'ai réussi à ne selectionner que les cellules filtrées avec "SpecialCells(xlCellTypeVisible)". Le problème c'est que dans cette selection je voudrais choisir les 50 derniers, et là ca bloque.

J'ai essayé ".Offset(-50,0)" mais cela prend en compte les lignes masquées, même le ".row - 50", mais cela me donne le numéro de ligne de 50 de moins mais avec les lignes masquées prises en compte.

En fait, je voudrais avoir le numéro de ligne de la 50ème opération en partant de la fin et ensuite cacher les cellules du dessus.

Comment puis-je procéder ?

[tirex28]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Afficher50Derniers()
    Dim xFilt As Range, xAll As Range, i As Long, j As Long
    Set xAll = ActiveSheet.AutoFilter.Range
    Set xFilt = xAll.Columns(1).SpecialCells(xlCellTypeVisible)
    For i = xAll.Cells(xAll.Cells.Count).Row To 1 Step -1
        If Not Intersect(xAll.Cells(i, 1), xFilt) Is Nothing Then
            j = j + 1
            If j = 50 Then Exit For
        End If
    Next
    MsgBox xAll.Cells(i, 1).Row
End Sub

La msgbox te renvoie le numero de ligne du 50e enregistrement affiché en partant de la fin.

Cordialement,

Tirex28/