Formatage de chaine

[malabarbe]

Bonsoir,

Je cherche une façon simple et rapide de
formater la chaine suivante :

Distance : 1.500 mètres (P.S.F.)

Pour ne récupérer que 1.500

Sachant que (P.S.F.) peut être la ou pas

Merci de vos conseils

 

[Raja]

Re : Formatage de chaine

Bonsoir,

Essaye la formule juste pour récupérer les caractères numériques :

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

Si tu veux récupérer les valeurs numériques :

=SUBSTITUE(GAUCHE(A1;CHERCHE(" ";A1));".";"")*1

 

[malabarbe]

Re : Formatage de chaine

Merci de me répondre,

J'ai oublié de préciser que je cherche
le code en VBA !

 

[Pierrot93]

Re : Formatage de chaine

Bonjour Malabarbe, Raja

regarde le code ci dessous, ta chaine de caractères en A1, renvoie la valeur en B1 :

si ton séparateur de milliers est le point"

Range("B1").Value = Replace(Range("A1").Value, "mètres (P.S.F.)", "")

si ce n'est pas le cas

Range("B1").Value = Replace(Replace(Range("A1").Value, "mètres (P.S.F.)", ""), ".", "")

bonne journée.
@+