Fonction last_row, pages concernée

Bonjour

J ai fait une fonction "last_row" dans un complement XLAM

Function last_row(cell)
i = 5000
ouai = cell.Column
While Cells(i, ouai) = ""
    i = i - 1

Wend

last_row = i
End Function

le probleme c est que si ma cellule est sur une autre feuille, j'obtiens le résultat de la feuille où j'insere ma formule et non celle de la cellule selectionnée.

Quelqu'un a t il une idee de solution à mon proleme ?

Merci d'avance

Bonjour,

Il faudrait spécifier la feuille active ?

Function last_row(wks As Worksheet, lCol As Long) As Long
  last_row = wks.Cells(65536, lCol).End(xlUp).Row
End Function

hello,

merci pour ta réponse

Oui j y pensais mais je vais utiliser tellement de feuille differente que je voulais savoir si on peut pas avoir à éviter cela...

Dans ce cas,

wks = Workbooks.Application.ActiveSheet

Test :

Sub test()
Set wks = ActiveSheet
MsgBox last_row(wks, 3) ' colonne C
End Sub

Bonjour,

Ne pas utiliser de boucle mais la propriété "End" de la classe Range

Function lastrow(cell) As Long
    Dim sh As Worksheet

    Set sh = Range(Application.Caller.Address).Worksheet
    lastrow = sh.Cells(Rows.Count, cell.Column).End(xlUp).Row

End Function

super! merci c est top

Rechercher des sujets similaires à "fonction last row pages concernee"