Extraire un ou plusieurs caractères

[britchouleloup]

Bonjour,

Après mes recherches infructueuses sur le forum je me permets de vous demander de l'aide.

Je souhaiterais affecter à une variable la valeur des chiffres contenu dans une cellule. Seulement cette même cellule contient aussi un nom.

exemple A1 = "1 Nom"
Je voudrais que la variable renvoie la valeur "1".

Seulement elle peut aussi être A1 = "11 Nom", et là je voudrais qu'elle renvoie "11". J'arrive à isoler le premier caractère d'une chaine, ou les deux premiers ou les trois premiers, etc... mais je n'arrive pas à faire qu'il prenne soit le premier, soit les deux premiers en fonction de la longueur du chiffre.

NB : le chiffre quel qu'il soit est forcément suivi d'un espace. Il faut donc prendre les caractères avant l'espace, mais comment s'y prendre?

Merci par avance de vos précieuses indications.

 

[Tibo]

Re : Extraire un ou plusieurs caractères

Bonjour,

Essaye avec :

=GAUCHE(A1;TROUVE(" ";A1)-1)

@+

 

[Raja]

Re : Extraire un ou plusieurs caractères

Bonjour,

Si je comprends bien, essaye la formule suivante, A1 contenant tes données :

=GAUCHE(A1;CHERCHE(" ";A1)-1)

édit : Salut Tibo

 

[britchouleloup]

Re : Extraire un ou plusieurs caractères

pardon, j'avais oublié de préciser que j'aurais souhaité en VBA

merci déjà et merci pour la future réponse

 

[kjin]

Re : Extraire un ou plusieurs caractères

Bonjour,
Au choix, à adapter selon

Sub TrouveNum()
Num = Left(Range("A1"), InStr(1, Range("A1"), " "))
MsgBox Num
End Sub

Ou

Sub TrouveNum2()
Num = Val(Range("A1"))
MsgBox Num
End Sub

A+
kjin

 

[pierrejean]

Re : Extraire un ou plusieurs caractères

Re

encore une version:

Num=CInt(Split(Range("A1")," ")(0))

 

[britchouleloup]

Re : Extraire un ou plusieurs caractères

merci bien à vous cela marche nickel

 

[myDearFriend!]

Re : Extraire un ou plusieurs caractères

Bonsoir britchouleloup, Tibo, Raja, kjin, pierrejean,

J'ajoute une autre proposition qui me semble plus simple :

    Num = Val(Range("A1"))

Cordialement,

EDITION:
Arf, désolé, kjin m'avait déjà devancé sur cette proposition.