XL 2019 Cellule égale dernière cellule de la colonne

[bonoboas]

Bonjour
Je bloque sur quelque chose de simple, je souhaiterais mettre dans la cellule H1 : "égale dernière cellule de la colonne H"
Je pense que ça commence par :

Range("H1").Formula = "=Range(H & Rows.Count).End(xlUp).Row"

Mais erreur de syntaxe

Puis-je avoir une petite aide s'il vous plaît.
Merci d'avance

 

[job75]

Bonsoir bonoboas,

[H1].FormulaArray = "=IFERROR(INDEX(H:H,LARGE(IF(H2:H10000<>"""",ROW(H2:H10000)),1)),"""")"

Ajuster 10000 à la ligne maximum possible.

A+

 

[bonoboas]

Merci Job75
ça marche super !!!

 

[job75]

Bonjour bonoboas, le forum,

Puisqu'on utilise VBA on peut utiliser cette fonction, à placer impérativement dans un module standard :

Function DerVal()
Dim r&
Application.Volatile
With Application.Caller
    r = .Parent.Cells(.Parent.Rows.Count, .Column).End(xlUp).Row
    If r = .Row Then DerVal = "" Else DerVal = .Cells(r - .Row + 1)
End With
End Function

Comme il n'y a pas d'argument cette fonction est rendue volatile.

Bonne journée.