Discussion :

[yannoch123]

bonjour à tous , je suis nouveau sur le forum . je vous explique mon problème.
Je dispose d un code de la forme "am by P+c @d " ou "am by P c% @d" avec a,b,c,d des réels ; j'aimerais pouvoir extraire le P+c ou le P c% en fait , j'ai déjà commencé le code pour extraire les autres réels mais la je suis bloque. Je vous montre ce que j ai fait

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
Sub ext_PayOrRec()
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
Dim pos4 As Integer
 
code = "100m10y P10% @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, "P+") Or InStr(pos2 + 1, code, "P")
instrum = ?
pos4 = InStr(code, "@")
Last = Mid(code, pos4 + 1)
MsgBox "Maturite :" & maturity & vbLf & vbLf & " Tenor :" & tenor & vbLf & vbLf & "Instrument :" & instrum & vbLf & vbLf & "Last :" & Last
 
End Sub

En gros si jamais je dispose du code "10m20y P+100 @200" le but de ma procédure est d extraire chacune des informations que me st utiles et en particulier je cherche a extraire le P+100



est ce que kk un pourrait m aider je vous prie je coince et je dois avancer pour ma base de données merci d avance les amis

[Invité]

Déjà:

Code :

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

instrum = ? ' Pas String

Code :

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

instrum = "?"  'Est String

il est là ton problème ou il y en a un autre?
Je me suis arrêté là!

[yannoch123]

excuse moi je me suis mal exprime . en fait le ? c etait pour savoir si kk un pouvait m aider a le faire
en fait mon instruction instrum , je voudrais qu elle me renvoie le P+100 ou le P c% comme c est le cas pour maturite ou tenor