Amelioration code VBA

Version imprimable

Bonjour
svp je dispose du code vba suivant
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub ext_STRorCOL() Dim code As String Dim maturity As String Dim instrum As String Dim tenor As String Dim Last As String Dim pos1 As Integer Dim pos2 As Integer Dim pos3 As Integer code = "100m10y 20ws @123" pos1 = InStr(code, "m") maturity = Left(code, pos1) pos2 = InStr(pos1 + 1, code, "y") tenor = Trim(Mid(code, pos1 + 1, pos2 - pos1)) pos3 = InStr(pos2 + 1, code, "wc") Or InStr(pos2 + 1, code, "ws") instrum = Mid(code, pos2 + 1, pos3 - pos2 + 1) pos1 = InStr(code, "@") Last = Mid(code, pos1 + 1) MsgBox "Maturite :" & maturity & vbLf & vbLf & " Tenor :" & tenor & vbLf & vbLf & "Instrument :" & instrum & vbLf & vbLf & "Last :" & Last End Sub
j aimerais pouvoir l ameliorer afin de pouvoir extraire un chiffre tel que mon code serait de la forme
code = "100m10y 20ws @123 vs 200" dc j aimerais extraire le chiffre qui vient apres le vs (ca peut etre n importee quel chiffre , entier , decimal....

est ce que kk un ^pourrait m aider je vous prie

Bonjour

Code:

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
Dim code As String
Dim Split1
Dim M As String
code = "100m10y P10% @123"
If InStr(code, "m") Then
    Split1 = Split(code, "m")
    maturity = Trim("" & Split1(0)) & "m"
    code = Trim("" & Split1(1))
End If
If InStr(code, "y") Then
    Split1 = Split(code, "y")
    tenor = Trim("" & Split1(0)) & "y"
    code = Trim("" & Split1(1))
End If
If InStr(UCase(code), "P") Then
    Split1 = Split(code, "P")
    M = "P" & Trim("" & Split1(1))
    If InStr(M, "@") Then
        Split1 = Split(M, "@")
 
         instrum = Trim("" & Split1(0))
       Last = Trim("" & Split1(1))
    End If
 
End If
MsgBox "Maturite :" & maturity & vbLf & vbLf & " Tenor :" & tenor & vbLf & vbLf & "Instrument :" & instrum & vbLf & vbLf & "Last :" & Last

14/03/2013, 09h55
yannoch123

rdurup merci beaucoup pour ton aide , en fait je voulais juste un peu de details , tu supprimes dans un premier temps tous les espaces via Trim
ensuite tu split mon code de sorte a bien decomposer chaque membre, mais j ai pas tres bien compris pk y a autant de boucles conditionnels??

Je test toujours si la condition est rempli mai si tu est sur que le contenu ne change pas ou peut !
De plus je fais un tableau par l’instruction Split (Varian) :
Trim("" & Split1(0)) a pour objet effectivement de supprimer les espace mais aussi de convertir en string
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim code As String Dim Split1 Dim M As String code = "100m10y P10% @123" Split1 = Split(code, "m") maturity = Trim("" & Split1(0)) & "m" code = Trim("" & Split1(1)) Split1 = Split(code, "y") tenor = Trim("" & Split1(0)) & "y" code = Trim("" & Split1(1)) Split1 = Split(code, "@") instrum = Trim("" & Split1(0)) Last = Trim("" & Split1(1)) MsgBox "Maturite :" & maturity & vbLf & vbLf & " Tenor :" & tenor & vbLf & vbLf & "Instrument :" & instrum & vbLf & vbLf & "Last :" & Last