Qui veut s'amuser avec moi et VBA (Oneliner Challenge)

[Tibo]

Salut,

Plutôt que de réinventer ce qui existe déjà, une solution issue d'une recherche sur le Forum :

http://www.excel-downloads.com/forum...valeur+colonne

Il y en a sans doute d'autres

@+

[Ti_]

encore plus court :
[1:1].Name = [a2]

[Hervé]

Bonjour

pour trouver la derniere valeur d'une colonne en vba :

MsgBox [A65536].End(3).Rows

salut

[Staple1600]

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

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)