XL 2016 VBA - comment distinguer les valeurs alpha / numériques

[Hub]

Bonjour à tous,

Dans une même cellule, la valeur affichée pourra selon le cas être :
1000 K/h
30 mm
213,69 cm²
ect

Comment séparer la valeur numérique de son unité ?
Le but étant de récupérer la valeur numérique pour la ré-utiliser.

Dans l'onglet Formule - Texte il y a de nombreuses possibilités et sauf erreurs de ma part, il n'y a pas ce que je cherche

D'avance merci pour vos suggestions,

@+

 

[MP59]

Bonjour HUB
en prenant le premier espace comme critère de ventilation
=CNUM(GAUCHE(A1;TROUVE(" ";A1)-1))
MP59

 

[Hub]

merci pour ta réponse MP59,

j'ai fait différent essais, sans succès !
je joint un fichier, ce sera plus explicite.

@+

 

[eriiic]

Bonjour,

tu as oublié l'espace dans " "
eric

 

[Hub]

Ok merci, évidemment ca fonctionne mieux avec un espace.

Cette valeur "épurée" et ensuite reprise et traitée par une macro.
Ca pose quelques soucis.
La solution serait de reformuler directement la fonction CNUM en code VBA.

Avez vous une idée comment faire ???

@+

 

[Yurperqod]

Bonjour le forum

Une autre formule
=STXT(A1;1;TROUVE(" ";A1)-1)*1

Et une macro pour extraire le nombre

Sub Macro()
ActiveCell.Offset(0, 1) = Split(ActiveCell.Text)(0) * 1
End Sub

 

[Hub]

Ok, merci Yupergod

Sinon en VBA, comment s'y prendre ?

 

[Yurperqod]

J'ai mis un exemple de macro dans mon message d'avant

 

[Hub]

Ouaah, je n'avais pas vu...

J'essaye de l'insérer dans ma macro
en cas de soucis, je reviens vers toi

et encore merci

 

[eriiic]

Bonjour,

Dim valeur as Double
valeur=Val([A1])

eric

 

[Hub]

Merci à tous,

La solution de Yurpergod comme celle d'Eric fonctionne parfaitement et correspondent à mon attente

encore merci et @+