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

job75

XLDnaute Barbatruc

• 7 Juin 2019

• #2

Bonsoir bonoboas,

VB:

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

Ajuster 10000 à la ligne maximum possible.

A+

 

Vote positif 0 Vote négatif

B

bonoboas

XLDnaute Occasionnel

• 7 Juin 2019

• #3

Merci Job75
ça marche super !!!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juin 2019

• #4

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

Vote positif 0 Vote négatif