problème de format

[POWO]

Bonjour à tous,

Aujourd'hui j'ai un problème de format:

Private Sub TextBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
UserForm1.TextBox5.Value = Format(UserForm1.TextBox5.Value / 100, "0.00 %")
End Sub

Le sub ci-dessus qui répond parfaitement à mon attent me permet d'obtenir une valeur que malheureusement je ne peux utiliser par la suite.

Voilà l'exemple dans lequel je l'utilise

UserForm3.Label40.Caption = UserForm1.Label22.Caption * UserForm1.TextBox2.Value * UserForm1.TextBox5.Value


le format variant/string m'empêche apriori d'effectuer mon calcul.


Si quelqu'un à une idée je suis preneur.
Encore merci pour votre aide.

a+ powo

 

[Dull]

Re : problème de format

Salut POWO, le Forum

Essaye

UserForm3.Label40.Caption = CDbl(UserForm1.Label22) * CDbl(UserForm1.TextBox2) * CDbl(UserForm1.TextBox5)

A tester

Bonne Journée

 

[POWO]

Re : problème de format

Bonjour Dull,

Merci pour ta réponse. J'ai essayé et mais apparement ça ne marche pas... pas de chance.

 

[Dull]

Re : problème de format

Re,

Essaye de remplacer CDbl par Val

A tester

Bonne Journée

 

[POWO]

Re : problème de format

Merci Dull!!! ça fonctionne parfaitement!!!!