TextBox ne calcul pas les décimales

[xhudi69]

Bonjour à toutes et à tous
Bonnes vacances 😎

Dans le petit fichier joint, dans l'UserForm, je fait les calcul des clients A,B,C etc...dont le résultat s'affiche dans le TextBox1.
j'ai essayé plusieurs solutions de formatage et en Vba, mais je n'ai toujours pas l'addition des décimales.

auriez vous une idée afin de terminer le fichier original.

Merci à vous tous.

 

[Dranreb]

Re : TextBox ne calcul pas les décimales

Bojour.
Extrait de l'aide:

Note La fonction Val ne reconnaît que le point comme séparateur décimal (.). Lors de l'utilisation d'autres séparateurs décimaux (applications internationales, par exemple), convertissez la chaîne en nombre à l'aide de la fonction CDbl.

Cordialement

 

[youky(BJ)]

Re : TextBox ne calcul pas les décimales

Bonjour Lyonnais,
Voici de retour le fichier avec la fonction comme dit Dranreb CDbl et que je salut bien au passage
Ainsi que l'événement Change a changé de place.
Bruno

 

[xhudi69]

Re : TextBox ne calcul pas les décimales

Bonjour Dranreb, youky(bj), le Forum

j'avais essayé la fonction CDbl avec l'aide, je me suis gauffré.
Merci beaucoup pour le code, c'est sympa; j'avais pensé à la fonction Ccur car j'ai un séparateur de millier, mais là aussi je butte sur la syntaxe; un petit coup de main serait le bienvenue.

Merci à vous.

Vive Belfort et allez l'OL

 

[xhudi69]

Re : TextBox ne calcul pas les décimales

Re:

Désolé, je vous joins le bon fichier

Merci à vous.

 

[Papou-net]

Re : TextBox ne calcul pas les décimales

Bonsoir xhudi69,
Bonsoir Dranreb, Youki(BJ),

En modifiant la procédure comme suit, tu obtiendras le résultat attendu :

Private Sub ComboBox1_Change()
Dim tx As Double
With Sheets("Feuil1")
drligne = .Range("a65000").End(xlUp).Row
TextBox1.Value = ""
For i = 2 To drligne
If .Range("A" & i) = ComboBox1 Then
tx = tx + .Range("B" & i)
End If
Next i
TextBox1 = Format(tx, "0.00")
End With
End Sub

Bonne soirée.

Cordialement.

 

[xhudi69]

Re : TextBox ne calcul pas les décimales

Bonsoir Papou-net, le Forum

merci de te pencher sur ce probème, mais cela ne marche pas chez moi, j'ai déjà essayé tous les formats possible mais sans résultats.
La seule manière serait avec la fonction Ccur mais je butte sur la syntaxe, c'est la fonction qui permet d'avoir le séparateur de millier.
peux-tu m'aider.

Merci à toi, pour ton travail.

 

[Papou-net]

Re : TextBox ne calcul pas les décimales

RE

Je ne demande pas mieux que de t'aider mais je ne sais que te répondre, si ce n'est que chez moi (Excel2010) ça fonctionne sans problème.

Essaie toutefois de remplacer la ligne :

TextBox1 = Format(tx, "0.00")

par :

TextBox1.Value = Format(tx, "0.00")

Par ailleurs, je te joins copie de ton fichier modifié pour tester.

Cordialement.

 

[youky(BJ)]

Re : TextBox ne calcul pas les décimales

Re
salut papou,
le format . . . .

Private Sub ComboBox1_Change()
Dim tx As Double
With Sheets("Feuil1")
drligne = .Range("a65000").End(xlUp).Row
TextBox1.Value = ""
For i = 2 To drligne
If .Range("A" & i) = ComboBox1 Then
tx = tx + .Range("B" & i)
End If
Next i
TextBox1 = Format(tx, "0 000.00 €")
End With
End Sub

Bruno

 

[xhudi69]

Re : TextBox ne calcul pas les décimales

Re:

tu m'as mis sur une piste, il y a une différence entre les deux versions d'Excel, car je viens de changer le format que tu avais mis et tout fonctionne bien maintenant 😕
j'avis bien tout tésté avec la fonction Val mais sans succès, le fait de mettre Textbox1.value a tout changer par rapport au Format, vat comprendre 🙁

En tout cas merci encore à toi, ci-joint le fichier pour voir si cette version fonctionne chez toi.

Excellente soirée.

 

[xhudi69]

Re : TextBox ne calcul pas les décimales

Re:

OUUUPSS pardon Youky(bj) on c'est croisé, toi aussi tu est sur la piste,pour rire, essaie de mette le format de cette façon et tu verras.
TextBox1.value = Format(tx, "00 000 000.00 €")
géant non.

Excellente soirée à tous les deux.

 

[Papou-net]

Re : TextBox ne calcul pas les décimales

RE

...le fait de mettre Textbox1.value a tout changer par rapport au Format, vat comprendre

Je crois savoir que VBA affecte par défaut les données à la propriété Text et non à la propriété Value des TextBox. Ceci peut expliquer cela, c'est d'ailleurs ce qui m'a incité à te donner ce conseil.

A +

Cordialement.