Discussion :

[vanima]

Bonjour tout le monde,
voila alors mon problème est que j'utilise la fonction CDbl sur une variable qui est de type string .
Je m'explique en fait la variable en general est du double mais stocke au format string dasn une base de donnée .Malheuresement cette valeur parfois est du genre : "3.5 HT" et non "3.5"
En gros je voudrais savoir s'il existe un moyen de faire :

si erreur( Cdbl(x)) alors ....

Voila merci a tous

[HPJ]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim d As Double
Dim s As String
 
s = "3.15 HT"
 
On Error Resume Next
d = CDbl(s)
If Err.Number <> 0 Then
   MsgBox "Erreur"
Else
   MsgBox "OK"
End if

[vanima]

merci