Discussion :

[malabarbe]

Bonsoir,

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

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

[casefayere]

Bonsoir,
à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim x As Long
x = Len(Range("a1")) - 11
    MsgBox Right(Range("a1"), x)

[malabarbe]

Merci de m'avoir répondu,

Ok, cela supprime bien tout ce qu'il
y a avant 1.500

Mais ne supprime pas ce qu'il
y a après 1.500

C'est un bon début de solution.

[casefayere]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim x As Long
x = Len(Range("a1")) - 11
    MsgBox Left(Right(Range("a1"), x), 5)

[ucfoutu]

Bonsoir,
Difficile de deviner si ton point est un séparateur de milliers ou de décimales, dans cette affaire !!!

Si de milliers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
  Distance = "1.500 mètres (P.S.F.)"
  MsgBox Val(Replace(Distance, ".", ""))
End Sub

Si de décimales :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command1_Click()
  Distance = "1.500 mètres (P.S.F.)"
  MsgBox Format(Val(Distance), "#.000")
End Sub

[malabarbe]

Merci à vous deux,

Vos codes tournent parfaitement !
Mais différents...

Je ne voudrais pas entamer de polémiques,
mais lequel de ces deux code demande le moins
de ressources côté serveur ?

Ou le plus rapide au niveau exécution ?

En tout cas, bravo !!!

[casefayere]

Alors la, j'en sais rien, je reste basique, tu voulais du simple mais ucfoutu fait de l'éducation