Bonjour svp je dispose du code suivant
ce code me permet lorsque je dispose d un instrument financier de la forme
"1y10y @123,126 de me renvoyer les valeurs 123 et 126 et dans le cas ou il n y a pas de virgule de me renvoyer juste la valeur apres le @ toutefois j aimerais ameliore mon code afin de pouvoir egalement tenir compte du cas
ou mon instrument serait de la forme "1y10y @123,126,145" dc de pouvoir renvoyer les 3 valeur 123 126 et 145 , merci de votre aide je suis vraiment bloque
Code:
Function FindLast(ByVal code As String) As Variant
Dim pos As Integer
Dim pos1 As Integer
If code Like ("*@*") Then
If code Like ("*,*") Then
pos = InStr(code, "@")
pos1 = InStr(code, ",")
FindLast = RightNum(Mid(code, pos)) & "," & Val(Mid(code, pos1 + 1))
Else: pos = InStr(code, "@")
FindLast = RightNum(Mid(code, pos))
End If
Else: FindLast = ""
End If
End Function
ce code me permet lorsque je dispose d un instrument financier de la forme
"1y10y @123,126 de me renvoyer les valeurs 123 et 126 et dans le cas ou il n y a pas de virgule de me renvoyer juste la valeur apres le @ toutefois j aimerais ameliore mon code afin de pouvoir egalement tenir compte du cas
ou mon instrument serait de la forme "1y10y @123,126,145" dc de pouvoir renvoyer les 3 valeur 123 126 et 145 , merci de votre aide je suis vraiment bloque