Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Ti_

Nous a quitté
Repose en paix
Re : Qui veut s'amuser avec moi et VBA (Oneliner Challenge)

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

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:
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…