Function FindBid1(ByVal code As String) As Variant
Dim Resu(1) As Variant, SplG() As String, Gauche As String, SplD() As String, Droite As String
On Error Resume Next
SplD = Split(code, "/")
SplG = Split(SplD(UBound(SplD) - 1), " ")
SplD = Split(SplD(UBound(SplD)), " ")
Gauche = SplG(UBound(SplG))
Droite = SplD(LBound(SplD))
If IsNumeric(Gauche) Then
Resu(1) = CDbl(Gauche)
Else
Resu(1) = ""
End If
FindBid1 = Resu
End Function
Function FindAsk1(ByVal code As String) As Variant
Dim Resu(1) As Variant, SplG() As String, Gauche As String, SplD() As String, Droite As String
On Error Resume Next
SplD = Split(code, "/")
SplG = Split(SplD(UBound(SplD) - 1), " ")
SplD = Split(SplD(UBound(SplD)), " ")
Gauche = SplG(UBound(SplG))
Droite = SplD(LBound(SplD))
If IsNumeric(Droite) Then
Resu(1) = CDbl(Droite)
Else
Resu(1) = ""
End If
FindAsk1 = Resu
End Function