Déclaration variable

[JORDAN]

Bonjour tout le monde,

J'ai un probléme de déclaration de variables ou de format de TextBox
Avec le code ci-dessous,si je déclare les variables en Integer je n'ai pas les chiffres après
la virgule dans le TextBox4 et si je les déclare en Variant, la 1ere partie de la condition IF fonctionne très
bien mais la 2ème est prise en tant que texte
Donc si j'ai 10 + 1 j'obtiens 101
Connaissez vouis un moyen de remédier à ce problème

Merci à vous

Sub ActuTBX4()
Dim Result, Result1 as integer
Result = UserForm1.TBX4.Value
If UserForm1.OptionButton1 = True Then
Result1 = Result - UserForm1.TBX2.Value
Else
Result1 = Result + UserForm1.TBX2.Value
End If
UserForm1.TBX4.Value = Result1
End Sub

 

[ngogoisidore]

Re : Déclaration variable

Bonjour Jordan,

Juste une idée, mais as tu essayé les double ?

cf code ci-dessous :

Sub ActuTBX4()
Dim Result as double
Dim Result1 as double
Result = CDbl(UserForm1.TBX4.Value)
If UserForm1.OptionButton1 = True Then
Result1 = Result - CDbl(UserForm1.TBX2.Value)
Else
Result1 = Result + CDbl(UserForm1.TBX2.Value)
End If
UserForm1.TBX4.Value = CStr(Result1)
End Sub

 

[porcinet82]

Re : Déclaration variable

Salut,

Je me permet une petite intrusion pour apporter une info à Jordan. Quand tu déclares par exemple Dim variable1, variable2 as Integer, seule la seconde variable est déclarée en Integer, la première est déclarée par défaut en Variant.

Voili, voilou,

@+

 

[JORDAN]

Re : Déclaration variable

Bonsoir Ngogoisidore, Porcinet
Merci pour ta solution en Double, ça fonctionne très bien

Pour Hasco merci de l'info, je croyais qu'en les mettant sur la même ligne
ils avaient la même déclaration et ben j'avais tout faut

Encore merci à vous deux et bonne fin de journée