Discussion :

[chloecm]

Bonjour,

Je suis à la recherche de la formule qui permet de sélectionner la dernière ligne d'une zone filtrée.

Merci
Chloé

[Pierre Fauconnier]

Salut.

Une fonction comme celle-ci, par exemple

Code :

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

1
2
3
4
5
6
Function getLastVisibleRow(Source As Range) As Long
  Dim LastRange As Range
 
  Set LastRange = Source.SpecialCells(xlCellTypeVisible).Areas(Source.SpecialCells(xlCellTypeVisible).Areas.Count)
  getLastVisibleRow = LastRange.Rows.Count + LastRange.Row - 1
End Function

[boisgontierjacques]

Bonjour,

Pour une BD commençant en A1, donne le no de la dernière ligne filtrée:

=MAX((SOUS.TOTAL(3;INDIRECT("A"&LIGNE(2:10000)))<>0)*LIGNE(2:10000))
Valider avec maj+ctrl+entrée

Code :

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

1
2
3
4
5
6
 
Sub positionneDernier()
  If [_filterdatabase].Resize(, 1).SpecialCells(xlCellTypeVisible).Count - 1 > 0 Then
    [_filterdatabase].End(xlDown).Select
  End If
End Sub

Boisgontier