VBA conversion txt en number

bambi2929 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
bambi2929 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -
Bonsoir tout le monde,

J'ai passé près de 2h sur la conversion en vain alors que l'implémentation de mon programme ne m'a pas pris beaucoup de temps.

Voici ma question :

Je fais certains calculs qui se retrouvent chacun dans le textbox correspondant.

Ils sont donc au format texte.

Cependant, je veux les copier dans des cellules au format nombre.

J'ai utilisé les fonctions cint, cdbl, clng mais cela ne fonctionne pas quand les chiffres sont négatifs.

Ils sont mis à 0 alors que je souhaite obtenir pour tous mes résultats, quel que soit leur signe, un arrondi à 2 décimales.

Quelqu'un a t il une idée.

Merci d'avance.

6 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    Aucune raison que ça ne fonctionne pas, maintenant sans fichier on ne sait pas ce que tu fais exactement.
    Les cellules étant des Double, utilise de préférence Cdbl(), ça évitera une double conversion.

    eric
    0
  2. bambi2929 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
     
    J'ai déjà essayé avec cdbl() mais cela ne fonctionne pas.

    Voici mon code associé au userform

    Private Sub CmdCalc_Click()

    If OpBCall.Value = True Then
    Type_option = "CALL"
    Else
    Type_option = "PUT"
    End If

    S = Val(TxtPrice.Value)
    K = Val(TxtStrike.Value)
    r = Val(TxtRisk.Value)
    sigma = Val(TxtVolatility.Value)

    ' 'Greeks
    If OpBCall.Value = True Then
    If ChkDelta.Value = True Then
    TxtDelta.Value = Delta(Type_option, S, K, r, sigma, Duration())
    Range("B14").Value = CDbl(TxtDelta.Text)
    '
    End If

    If ChkGamma.Value = True Then
    TxtGamma.Value = Gamma(S, K, r, sigma, Duration())
    Range("B15").Value = CDbl(TxtGamma.Text)

    End If

    If ChkRho.Value = True Then
    TxtRho.Value = Rho(Type_option, S, K, r, sigma, Duration())
    Range("B18").Value = CDbl(TxtRho.Text)
    End If

    If ChkVega.Value = True Then
    TxtVega.Value = Vega(S, K, r, sigma, Duration())
    Range("B17").Value = CDbl(TxtVega.Text)
    End If

    If ChkTheta.Value = True Then
    TxtTheta.Value = Theta(Type_option, S, K, r, sigma, Duration())
    Range("B16").Value = CDbl(TxtTheta.Text)
    End If

    Else

    If ChkDelta.Value = True Then
    TxtDelta.Value = Delta(Type_option, S, K, r, sigma, Duration())
    Range("D14").Value = CDbl(TxtDelta.Text)
    End If

    If ChkGamma.Value = True Then
    TxtGamma.Value = Gamma(S, K, r, sigma, Duration())
    Range("D15").Value = CDbl(TxtGamma.Text)
    End If

    If ChkRho.Value = True Then
    TxtRho.Value = Rho(Type_option, S, K, r, sigma, Duration())
    Range("D18").Value = CDbl(TxtRho.Text)
    End If

    If ChkVega.Value = True Then
    TxtVega.Value = Vega(S, K, r, sigma, Duration())
    Range("D17").Value = CDbl(TxtVega.Text)
    End If

    If ChkTheta.Value = True Then
    TxtTheta.Value = Theta(Type_option, S, K, r, sigma, Duration())
    Range("D16").Value = CDbl(TxtTheta.Text)
    End If
    End If
    '

    '

    End Sub

    'DAY AND MONTH
    Private Sub UserForm_Initialize()
    For i = 1 To 31
    CmbDay.AddItem i
    If i <= 12 Then CmbMonth.AddItem i
    Next i

    End Sub

    '' CRR steps
    'Private Sub TxtStep_Change()
    'TxtStep.Value = SpbStep.Value
    'End Sub

    'B&S

    Private Sub CmdPrice1_Click()

    If OpBCall.Value = True Then
    Type_option = "CALL"
    Else
    Type_option = "PUT"
    End If

    S = Val(TxtPrice.Value)
    K = Val(TxtStrike.Value)
    r = Val(TxtRisk.Value)
    sigma = Val(TxtVolatility.Value)

    TxtPriceBandS.Value = Black_and_Scholes(Type_option, S, K, r, sigma, Duration())
    If Type_option = "CALL" Then
    Range("B13").Value = CDbl(TxtPriceBandS.Text)
    Else
    Range("D13").Value = CDbl(TxtPriceBandS.Text)
    End If

    End Sub

    ''CRR
    '
    Private Sub CmdPrice2_Click()

    If OpBCall.Value = True Then
    Type_option = "CALL"
    Else
    Type_option = "PUT"
    End If

    S = Val(TxtPrice.Value)
    K = Val(TxtStrike.Value)
    r = Val(TxtRisk.Value)
    sigma = Val(TxtVolatility.Value)

    step = Val(TxtStep.Value)

    If OpbEuro.Value = True Then
    TxtPriceBinom.Value = Binomial_E(Type_option, S, K, r, sigma, Duration(), step)
    Range("B24").Value = TxtPriceBinom.Text
    Range("B23").Value = TxtStep.Text

    ElseIf OpbUS.Value = True Then
    TxtPriceBinom.Value = Binomial_U(Type_option, S, K, r, sigma, Duration(), step)
    Range("C24").Value = TxtPriceBinom.Text
    Range("C23").Value = TxtStep.Text

    End If

    End Sub

    Et celui associé aux fonctions

    Option Base 0

    ' Black and Scholes Formula

    Function Black_and_Scholes(Type_option, S, K, r, sigma, T)

    d1 = (Log(S / K) + (r + 0.5 * sigma ^ 2) * T) / (sigma * Sqr(T))

    d2 = d1 - sigma * Sqr(T)

    c = choice(Type_option)

    Black_and_Scholes = c * (S * Normal(c * d1) - K * Exp(-r * T) * Normal(c * d2))

    End Function

    ' Normal distribution used in the Black and Scholes Formula

    Function Normal(d)
    Normal = Application.WorksheetFunction.NormSDist(d)
    End Function

    ' Choice of the Put or the Call

    Function choice(Type_option)

    If Type_option = "CALL" Then
    choice = 1

    ElseIf Type_option = "PUT" Then
    choice = -1

    End If

    End Function

    'Duration

    Function Duration()

    date_d = DateSerial(TxtYear, CmbMonth, CmbDay)

    Duration = (Date - date_d) / 365
    End Function

    ' GREEKS

    'Delta

    Function Delta(Type_option, S, K, r, sigma, T)

    d1 = (Log(S / K) + (r + sigma ^ 2) * T) / (sigma * Sqr(T))
    c = choice(Type_option)

    Delta = c * Exp(-r * T) * Normal(c * d1)

    End Function

    ' Gamma

    Function Gamma(S, K, r, sigma, T)

    d1 = (Log(S / K) + (r + sigma ^ 2) * T) / (sigma * Sqr(T))

    Gamma = (Normal(d1) * Exp(-r) * T) / (S * sigma * Sqr(T))
    End Function

    Sub TEST()
    Range("B13").Value = Gamma(76, 170, 0.05, 0.05, 2)
    MsgBox d1
    End Sub

    ' Rho

    Function Rho(Type_option, S, K, r, sigma, T)

    d2 = (Log(S / K) + (r - sigma ^ 2 / 2) * T) / (sigma * Sqr(T))

    c = choice(Type_option)

    Rho = c * (T * K * Exp(-r * T) * Normal(c * d2))

    End Function

    'Vega

    Function Vega(S, K, r, sigma, T)

    d1 = (Log(S / K) + (r + sigma ^ 2) * T) / (sigma * Sqr(T))

    Vega = S * Exp(-r * T) * Normal(d1) * Sqr(T)
    End Function

    'Theta

    Function Theta(Type_option, S, K, r, sigma, T)

    d1 = (Log(S / K) + (r + sigma ^ 2) * T) / (sigma * Sqr(T))

    d2 = d1 - sigma * Sqr(T)

    c = choice(Type_option)

    Theta = (-(S * (Normal(d1) * Exp(-r * T) * sigma)) / (2 * Sqr(T)) + _
    c * (-r) * S * Normal(d1) * Exp(-r * T)) + c * r * K * Exp(-r * T) * Normal(c * d2)
    End Function

    'Binomial Option Pricing Model

    Function Binomial_E(Type_option, S, K, r, sigma, T, N)

    ReDim Price(N + 1) As Double

    c = choice(Type_option)
    delta_bis = T / N

    u = Exp(sigma * Sqr(delta_bis))
    d = 1 / u
    Prob = (Exp(b * delta_bis) - d) / (u - d)

    For j = 0 To N
    Price(j) = Application.WorksheetFunction.Max(c * (S * u ^ j * d ^ (N - j) - K), 0)
    Next j

    For i = N - 1 To 0 Step -1
    For j = 0 To i

    Price(j) = Exp(-r * delta_bis) * (Prob * Price(j + 1) + (1 - Prob) * Price(j))

    Next j
    Next i

    Binomial_E = Price(0)

    End Function

    Function Binomial_U(Type_option, S, K, r, sigma, T, N)

    ReDim Price(N + 1)

    c = choice(Type_option)
    delta_bis = T / N

    u = Exp(sigma * Sqr(delta_bis))
    d = 1 / u
    Prob = (Exp(b * delta_bis) - d) / (u - d)

    For j = 0 To N
    Price(j) = Application.WorksheetFunction.Max(c * (S * u ^ j * d ^ (N - j) - K), 0)
    Next j

    For i = N - 1 To 0 Step -1
    For j = 0 To i

    Price(j) = Application.WorksheetFunction.Max(c * (S * u ^ j * d ^ (i - j) - K), _
    Exp(-r * delta_bis) * (Prob * Price(j + 1) + (1 - P) * Price(j)))

    Next j
    Next i

    Binomial_U = Price(0)

    End Function

    Merci beaucoup
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Tu crois que je vais passer 1/2 h à essayer de tout reconstruire (mal forcément) alors que tu as le fichier ?

      edit : https://www.cjoint.com/?DCDrduIytYN
      0
  3. JvDo Messages postés 1924 Date d'inscription   Statut Membre Dernière intervention   859
     
    Bonjour à tous,

    Je vois que tu utilises la fonction VAL() pour S, k, r, sigma.
    Es-tu en paramètres régionaux américains ou fais-tu une saisie avec le point décimal?
    Sinon, tu peux inclure un replace de la virgule décimale par un point dans le VAL.

    Cdlt
    0
  4. bambi2929 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
     
    Bonjour,

    Oui j'utilise la fonction val() pour ces paramètres car, dans les textboxs, les décimaux ne peuvent être renseignés qu'avec des points et donc, cela extrait des valeurs numériques au lieu de caractères pour faire les calculs.

    N y a t il pas un moyen, pour les textboxs qui affichent les résultats de forcer la récupération en numérique??

    Merci beaucoup.
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  7. bambi2929 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
     
    Merci à tous pour votre aide.

    Bizarrement, Cdbl() fonctionne maintenant.

    Encore une fois merci.
    0

Discussions similaires

Mb en Mo conversion et différence
CANCUNIO -
T3t3d3m0rt -

100 réponses
Question 1 Mb = ?Mo
allosme -
Kayzer54 -

6 réponses
différence entre Mo et MB
nathalie -
Phase2 -

33 réponses
Conversion Bytes à Mo
Utilisateur anonyme -
papoute76 -

8 réponses
Vitesse internet Mbit/s Mo/s
koozii -
123Info -

7 réponses