Discussion :

[yannoch123]

Bonjour j ai crreer une fonction en l occurrence celle ci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Function stkr(code As String) As Variant
Dim y, z As Variant
 
If code Like "*Capspread*" Then
z = Split(code, " ")
y = Split(z(2), "/")
 If z(2) Like "*%*" Then
stkr = Abs(Val(y(0)) - Val(y(1))) * 100
Else: stkr = Abs(Val(y(0)) - Val(y(1)))
End If
ElseIf code Like "*Floorspread*" Then
z = Split(code, " ")
y = Split(z(2), "/")
 If z(2) Like "*%*" Then
stkr = -Abs(Val(y(0)) - Val(y(1))) * 100
Else: stkr = -Abs(Val(y(0)) - Val(y(1)))
End If
Else: stkr = " "
End If
End Function
 
 
Sub teststkr()
Dim code As String
code = "3m Floorspread 2/2.5% 30s2s  4.5/ "
MsgBox "la valeur cherchee vaut " & stkr(code)
End Sub

*

totoufois apres m y etre penche je pense que l erreur provient des lignes 7 et 14 donc ds le cas ou y a un % dans mon code j ai l impression que la fonction val l interprete mal , j aimerais savoir comment reparer cettte erreur ou au moins comprendre ce que mon code a .

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function stkr(code As String) As Variant
Dim y, z As Variant
 
If code Like "*Capspread*" Then
z = Split(code, " ")
y = Split(z(2), "/")
 If z(2) Like "*%*" Then
stkr = Abs(ConvertNumérique(y(0)) - ConvertNumérique(y(1))) * 100
Else: stkr = Abs(ConvertNumérique(y(0)) - ConvertNumérique(y(1)))
End If
ElseIf code Like "*Floorspread*" Then
z = Split(code, " ")
y = Split(z(2), "/")
 If z(2) Like "*%*" Then
stkr = -Abs(ConvertNumérique(y(0)) - ConvertNumérique(y(1))) * 100
Else: stkr = -Abs(ConvertNumérique(y(0)) - ConvertNumérique(y(1)))
End If
Else: stkr = " "
End If
End Function
 
Function ConvertNumérique(v) As Double
Dim N
N = Replace(v, "%", "")
N = Replace(N, ",", ".")
If IsNumeric(N) Then ConvertNumérique = N: Exit Function
N = Replace(N, ".", ",")
If IsNumeric(N) Then ConvertNumérique = N: Exit Function
End Function

[yannoch123]

Bonjour merci pour votre aide effectivement passer par une fonction que me convertit numeriquement mes donnees de mon tableau c est une bonne idee pour contourner l erreur . merci pour votre aide .
Toutefois juste par simple curiosite , quesqui clochait au juste au niveau de l interpretation de la fonction val?

[Invité]

Val retourne du texte au format double.
le problème déjà le % qui interdit la conversion.
de plus le caractère des décimale.
en vb [.] Windows option régionale [,] val("0,10")=0 val("0.10")=0,10 (Double)

hors si la valeur est 0,10 elle devient "0,10" avec le Val("0,10") =0
val(replace("" & 0,10,",","."))=0,10

m'a fonction supprime le "%".
puis test si numérique "0.10" Windows option régionale si ok retourne sous forme double
puis test si numérique "0,10" Windows option régionale si ok retourne sous forme double
si ko dans les 2 cas retourne 0