Re : Qui veut s'amuser avec moi et VBA (Oneliner Challenge)
Re
Je sais que des solutions existent
Mais ce matin , j'ai pas trop d'idées de problèmes à soumettre.
La réponse Ti_ est en effet trés courte
Si quelqu'un a d'autres idées, qu'il n'hésite pas à se manifester.
Bon week-end de PAques à tous
EDITION : c'est en lisant cela que j'ai pensé à ma question
SOURCE
microsoft.public.excel.worksheet.functions | Google Groups
Code:
Public Function LastValInCol(x As Range)
LastValInCol = x.Parent.Cells(Rows.Count, x.Column).End(xlUp).Value
End Function
For a formula solution, without the disadvantages of the previously posted, I
believe the array-entered formula:
=OFFSET(A1,MAX(NOT(ISBLANK(A1:A100))*ROW(A1:A100))-1,0)
will also work regardless of the nature of the last entry.
It will also work even if there are blanks within the array.
For a function that will stop at the cell before the first blank cell in the
array, array-enter:
=INDEX(A1:A100,MATCH(TRUE,ISBLANK(A1:A100),0)-1,1)