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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 11 Novembre 2022

• #2

Bonsoir,
Peut être une petite fonction perso :

VB:

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

 

Pièces jointes

• CHARLIE valeur non masqué.xlsm

  13.4 KB · Affichages: 1

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 12 Novembre 2022

• #3

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+

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 12 Novembre 2022

• #4

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 🙂 👍).

VB:

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

 

Pièces jointes

• chaelie2015- valeur non masqué- v1.xlsx

  9.3 KB · Affichages: 8

Dernière édition: 12 Novembre 2022

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 12 Novembre 2022

• #5

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

 

Vote positif 0 Vote négatif