Discussion :

[Vincent32]

Bonjour,

Dans un userform j'ai plusieurs (5) textbox qui peuvent prendre uniquement des valeurs numériques (de 0 à 100) je souhaiterais faire en temps réel la somme de ces textbox dans une sixième textbox

pour l'instant le code que j'ai écrit me mets les valeurs les unes à la suite des autres sans additioner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub TB5b_Change()
    Somme = TB5b.Value + TB6b.Value + TB7b.Value + TB8b.Value + TB9b.Value
    TB10 = Somme
End Sub
 
Private Sub TB6b_Change()
    Somme = TB5b.Value + TB6b.Value + TB7b.Value + TB8b.Value + TB9b.Value
    TB10 = Somme
End Sub
 
Private Sub TB7b_Change()
   Somme = TB5b.Value + TB6b.Value + TB7b.Value + TB8b.Value + TB9b.Value
    TB10 = Somme
End Sub
 
Private Sub TB8b_Change()
    Somme = TB5b.Value + TB6b.Value + TB7b.Value + TB8b.Value + TB9b.Value
    TB10 = Somme
End Sub
 
Private Sub TB9b_Change()
    Somme = TB5b.Value + TB6b.Value + TB7b.Value + TB8b.Value + TB9b.Value
    TB10 = Somme
End Sub

Merci pour votre aide

[Daniel.C]

Bonjour,

Sans doute parce que la valeur d'un textbox est de type string. Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Somme = CDbl(TB5b.Value) + CDbl(TB6b.Value) + CDbl(TB7b.Value) + CDbl(TB8b.Value) + CDbl(TB9b.Value)

[Vincent32]

Bonjour Daniel,

La solution que tu me proposes ne fonctionne pas. Pour info peux tu me dire à quoi correspond CDbl

Merci pour ton aide

[Philippe Tulliez]

Bonsoir,
Ce que Daniel C, t'a donné comme explication est correcte. L'erreur que tu as vient du fait que les données des TextBox sont de type String.
cdbl est une fonction qui converti une chaine en valeur de type Double.
Tu as sans doute une erreur qui persiste parce-que certaine valeur TextBox sont de valeur Nulle et donc la conversion provoque une erreur.
Remplace cdbl par la fonction val
Exemple ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tb10.Value = Val(tb1b.Value) + Val(tb2b.Value) + Val(tb3b.Value)

[EDIT]
Tu peux aussi enlever dans le code la propriété Value qui est une propriété par défaut de l'objet TextBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

tb10 = Val(tb1b) + Val(tb2b) + Val(tb3b)

[Daniel.C]

Cdbl transforme des nombres sous forme texte en nombres numériques. Encore faut-il que tu aies des nombres dans les textboxes. Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If IsNumeric(CDbl(TB5b.Value)) Then somme = CDbl(TB5b.Value)
If IsNumeric(CDbl(TB6b.Value)) Then somme = somme + CDbl(TB6b.Value)
If IsNumeric(CDbl(TB7b.Value)) Then somme = somme + CDbl(TB7b.Value)
If IsNumeric(CDbl(TB8b.Value)) Then somme = somme + CDbl(TB8b.Value)
If IsNumeric(CDbl(TB9b.Value)) Then somme = somme + CDbl(TB9b.Value)

PS. Pour connaître le signification d'un mot, clique dessus et appuie sur F1.

[Vincent32]

La solution proposée Fonctionne parfaitement bien. Merci beaucoup,

Tu as sans doute une erreur qui persiste parce-que certaine valeur TextBox sont de valeur Nulle et donc la conversion provoque une erreur.
Remplace cdbl par la fonction val
Exemple ci-dessous
Code :Sélectionner tout - Visualiser dans une fenêtre à part
tb10.Value = Val(tb1b.Value) + Val(tb2b.Value) + Val(tb3b.Value)

[Daniel.C]

"Val" ne fonctionne que si le symbole décimal est le point.