Erreur d'éxecution 13
Bonjour à tous
s'il vous plait j'ai un problème avec mon programme VBA
quand j’exécute ce code, un message d'erreur "erreur d'exécution 13" s'affiche
je me suis bloquée
s'il vous plait quelqu'un m'aide à résoudre ce problème et merci d'avance.
voici mon code:
Private Sub CommandButton16_Click()
Dim tn As Double
Dim ts As Double
tn = TextBox18.Value
If OptionButton1 Then
ts = ((1 + tn) ^ (1 / 2)) - 1
TextBox15.Value = ts
End If
End Sub
Bonjour Soad20 et
Merci d'éditer ton 1er post et de mettre ton code entre balises [ CODE] et [ /CODE] (sans espace après "[")
PErso, je ferais
Tn = CDbl(Me.TextBox18.value)@+
Bonjour soad20 et bienvenue,
à tester,
tn = Cdbl(TextBox18.Value)j'ai testé vos solutions mais malheureusement elles ne marchent pas
le message d'erreur s'affiche encore
re,
peux-tu joindre ton fichier excel ?
Bonjour le fil, bonjour le forum,
La conversion en Double d'un nombre avec le point comme séparateur décimal fait planter le code. Essaie comme ça :
Private Sub CommandButton16_Click()
Dim TN As String
Dim VTN As Double
Dim ts As Double
TN = Replace(TextBox18.Value, ".", ",")
VTN = CDbl(TN)
If OptionButton1 Then
ts = ((1 + TN) ^ (1 / 2)) - 1
TextBox15.Value = ts
End If
End Submerci bien pour ta réponse
le code marche bien maintenant mais j'ai un petit problème c'est que quand j’exécute le code le résultat que j'obtiens n'est pas décimal
je veux par exemple qu'il me donne un nombre comme 0.02.. alors que je n'obtiens pas ça
merci de m'aider svp
Bonjour à tous,
@ soad20
essaie en
enlevant la ligne
TN = Replace(TextBox18.Value, ".", ",")et en remplaçant la ligne
VTN = CDbl(TN)par
VTN = CDbl(TextBox18.Value)