calcul d'un textbox avec symbole %

[chcoq]

bonjour je souhaite calculer un un label qui es mis a jour selon mon fichier et un textbox qui me permet de soustraire ou additioner selon la valeur et donne le résultat dans un autre label total, ce qui fonctionne très bien mais lorsque je rentre une valeur comme -10%, j' obtient une erreur d'exécution , je souhaiterai mettre une fonction qui me permettrai de calculer la valeur quand je rentre le symbole %

 

[Fred0o]

Re : calcul d'un textbox avec symbole %

Bonjour chcoq,

Voici une modification de ton code qui me semble répondre à ton besoin.

Private Sub TextBox1_Change()
    If Right(TextBox1, 1) = "%" Then
        total = CDbl(Label1) + Val(TextBox1) / 100 * CDbl(Label1)
    ElseIf TextBox1 = "" Or TextBox1 = "-" Then
        total = 0
        Exit Sub
    Else
        total = CDbl(Label1) + CDbl(TextBox1)
    End If
End Sub

A+

 

[chcoq]

Re : calcul d'un textbox avec symbole %

merci Fred0o pour ton code qui fonctionne je viens tout juste de trouvé un autre code mais un peu plus long que le tiens
Private Sub TextBox1_Change()
Dim Check As String
Check = TextBox1
If TextBox1 = "" Or TextBox1 = "-" Then
total = 0
Exit Sub
Else
If Not IsNumeric(Check) Then
total = CDbl(Label1) + (CDbl(Label1) * Val(TextBox1) / 100)
Else
total = CDbl(Label1) + CDbl(TextBox1)
End If
End If
End Sub