Trouver première valeur numérique

[Claudy]

Bonjour à tous ,
une colonne Range("A1:A125")
Je voudrais trouver et sélectionner la première valeur numérique!
Un peu dans le genre:
Range("A1:A125").find(What=cdbl).select

????
Merci d'avance
Claudy

 

[joss56]

Re : Trouver première valeur numérique

Bonjour,

En VBA ça pourrait donner quelque chose comme ça :
i=1
do while not isnumeric(cells(i,1))
i=i+1
loop
cells(i,1).select

 

[Staple1600]

Re : Trouver première valeur numérique

Bonjour à tous, Bonjour joss56


Claudy
Pourquoi une macro ?
Un solution par formule (à mettre en B1 par exemple)

=INDIRECT("A"&EQUIV(VRAI;INDEX(ESTNUM(A1:A125);0);0))

 

[Staple1600]

Re : Trouver première valeur numérique

Re


Si VBA oblige alors, en utilisant la formule précédente, on peut se permettre ceci 😉

Sub TrouverPremierNombre()
Dim x&
x = [=MATCH(TRUE,INDEX(ISNUMBER(A1:A125),0),0)]
Application.Goto Cells(x, 1), True
End Sub

 

[Claudy]

Re : Trouver première valeur numérique

Ok merci , nikel, j'adapte à mon code...et bon WK aussi...
Merci,
Claudy