XL 2013 (RESOLU)renvoyer la dernière cellule visible d'une Plage

[chaelie2015]

Bonsoir forum
Je souhaite afficher dans la cellule A80 la valeur de la dernière cellule de la plage de A2: A79 qui n'est pas masqué.
Exemple : si je masque A40:A79 Donc la dernière cellule qui est affiché c'est A39 donc j'aurai dans la cellule A80 la valeur de A39=55.
A+

 

[sylvanu]

Bonsoir,
Peut être une petite fonction perso :

Function Dern()
Application.Volatile: Dim L%
For L = 80 To 1 Step -1
    If Rows(L).Hidden = False Then
        Dern = Cells(L, 1): Exit Function
    End If
Next L
End Function

 

[chaelie2015]

Re
Merci pour la réponse rapide, la fonction fonctionne très bien , mais si la feuille contient n'importe quel code comme
Private Sub Worksheet_Change(ByVal Target As Range)
Pour afficher et ou masquer les lignes
End Sub
votre fonction ne marche pas ????
a+

 

[mapomme]

Bonsoir à tous,

Une formule matricielle à valider par Ctrl+Maj+Entrée (d'après des formules utilisées par @job75 et R@chid que je salue bien bas ).

=INDEX(A:A;MAX(SOUS.TOTAL(103;DECALER(A2;LIGNE(A2:A79)-2;))*LIGNE(A2:A79)))

 

[chaelie2015]

Bonsoir tout le monde , mapomme
C'est nickel.
Bon week end