Problème format après saisie dans Userform

[Marc]

Bonsoir le forum,
après saisie dans USF de valeurs numériques, les valeurs qui s'affichent dans la feuille excel sont au format texte et donc impossible de faire les calculs.
Quelqu'un peut-il me dire si je dois mettre un format spécial dans le code VBA?

Merci de votre aide

Marc

 

[jacktati]

Salut Marc et forum

Dans un textbox tout ce que tu entres est du texte...
Pour récupérer un nombre tu dois traiter ce texte. Une solution c'est d'écrire
resultat=val(textbox1.value) si tu utilises le point comme séparateur décimal.

@+
Joyeux Noël à tous.

 

[excalibur]

bonjour marc jacktati le forum on peut l ecrire comme cela aussi Option Explicit
Private Sub TextBox1_Change()
Range('a1') = TextBox1.Value
End Sub pour faire des calculs sur des textboxs la tu peus faire TextBox3.Value = CDbl(TextBox1) + CDbl(TextBox2) ou TextBox3.Value = Val(TextBox1) + Val(TextBox2)'joyeux nôel

 

[Marc]

Salut le fil, le forum,
Où avais-je la tête??? je ne me souvenais plus de CDbl !!!Seulement, CDbl fonctionne bien mais pas avec les pourcentages. En fait, il met que les 2 premiers chiffres mais pas les décimales ni '%'.

Quelqu'un peut-il me dire ce qu'il faut mettre pour les pourcentages???

Merci de votre aide.

Joyeux Noel et passez un bon réveillon de nouvel an.

Marc

 

[jacktati]

Salut Marc

Pour un nombre à virgule flottante en précision simple:
Range('d' & L).Value = csng(txtCPS.Value)
Pour un nombre en virgule flottante en précision étendue (double precision)
Range('d' & L).Value = cdbl(txtCPS.Value)

Mais attention ces fonctions de conversion requièrent que le séparateur
décimal saisi dans tes textbox soit le même que celui défini dans le
panneau de configuration.
@+