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

bonoboas

XLDnaute Occasionnel
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 :

VB:
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
 
Dernière édition:

job75

XLDnaute Barbatruc
Bonjour bonoboas, le forum,

Puisqu'on utilise VBA on peut utiliser cette fonction, à placer impérativement dans un module standard :
VB:
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.
 

Pièces jointes

  • DerVal(1).xlsm
    19.4 KB · Affichages: 3

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof