Récupérer la derniere ligne de toutes les colonnes

Bonjour,

J'aimerais savoir comment récupérer la ligne max de toutes une série de colonne et garder la plus grande en variable ? Par exemple dans le fichier ça renvoie la ligne 8 . Merci pour votre aide

Bonjour pagesalex,

Essayez la formule matricielle suivante (adapter la valeur 999 en fonction de votre nombre maximum de lignes)

=MAX(SI(A1:F999<>"";LIGNE(A1:F999);""))

Re,

Pour du VBA, une fonction personnalisée (voir module1). Fonctionne même si la plage est filtrée.

Function DerLig(xrg As Range)
Dim xcol, x, n&
  On Error Resume Next
  For Each xcol In xrg.EntireColumn
    x = Application.Match(9 ^ 99, xcol, 1)
    If Not IsError(x) Then If x > n Then n = x
    x = Application.Match("zzzzz", xcol, 1)
    If Not IsError(x) Then If x > n Then n = x
  Next xcol
  DerLig = n
End Function

Slt pagesalex et le Forum,

une autre version

Sub DerniereLigne()
Dim a As Integer
a = ActiveSheet.UsedRange.Rows.Count
MsgBox a
End Sub

Bonjour,

un autre possibilité,

rw = Cells.SpecialCells(xlCellTypeLastCell).Row

Bonjour à tous aprés plusieurs essais cela fonctionne mais n'affiche pas les bonnes valeur dans mon fichier d'origine je vous le joins pour voir ce qui cause l'erreur merci beaucoup

re,

j'obtient 3 comme dernière ligne, ce n'est pas ce que tu obtient ?