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

Hervé

XLDnaute Barbatruc
Re : Qui veut s'amuser avec moi et VBA (Oneliner Challenge)

Bonjour

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

MsgBox [A65536].End(3).Rows

salut
 

Staple1600

XLDnaute Barbatruc
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)
 
Dernière édition:

Membres actuellement en ligne

Statistiques des forums

Discussions
315 098
Messages
2 116 189
Membres
112 679
dernier inscrit
Yupanki