Discussion :

[didier51]

Bonjour

je souhaite afficher le résultat d'une opération
"addition/soustraction de valeur TextBox"
affiche dans "Texbox5"le résultat de

Code :

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

1
2
3
4
5
6
7
 
Dim sommeTB As Double, valTB As Double, result As Double
Private Sub TextBox5_Change()
sommeTB = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
valTB = Val(TextBox1)
result = valTB - sommeTB
End Sub

en gros je souhaite que lorsque les "textbox 1,2,3,4" sont saisies
le résultat affiche instantanément dans la "textbox5"
pour poursuivre la saisie sur d'autres "textbox"

bonnes soirée

[nibledispo]

Bonjour

Ne serait-ce pas cela que tu cherches ?

Code :

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

1
2
3
4
5
6
7
 
Dim sommeTB As Double, valTB As Double, result As Double
Private Sub TextBox5_Change()
sommeTB = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
valTB = Val(TextBox1)
TextBox5.Value = valTB - sommeTB
End Sub

Pourquoi passer par valTB et sommeTB, et ne pas faire ?

Code :

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

1
2
3
4
5
 
Dim sommeTB As Double, valTB As Double, result As Double
Private Sub TextBox5_Change()
TextBox5.Value = Val(TextBox1) - (Val(TextBox2) + Val(TextBox3) + Val(TextBox4))
End Sub

Comme textbox n'accepte en principe que du texte, peut-être faut-il prévoir la conversion.
TextBox5.Value = CStr(Val(TextBox1) - (Val(TextBox2) + Val(TextBox3) + Val(TextBox4)))

Cordialement,

[Docmarti]

Bonjour nibledispo; didier51

Je n'utiliserais pas la fonction VAL comme ceci :

Code :

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

1
2
3
Private Sub TextBox5_Change()
TextBox5.Value = Val(TextBox1) - (Val(TextBox2) + Val(TextBox3) + Val(TextBox4))
End Sub

VAL est une vieille fonction du langage Basic
qui ne fonctionne pas quand le séparateur décimal régional n'est pas le point.
Il n'accepte que le point comme séparateur décimal.
Et il ne provoque pas d'erreur s'il rencontre la virgule car
'"La fonction Val arrête la lecture de la chaîne au premier caractère ne faisant apparemment pas partie d'un nombre."
Et la virgule ne fait pas partie d'un nombre pour la fonction VAL.

Donc on peut utiliser la fonction CDBL :

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
Private Sub CommandButton2_Click()
'Ceci fonctionne
TextBox5.Value = Conv_en_Cdbl(TextBox1) - (Conv_en_Cdbl(TextBox2) + Conv_en_Cdbl(TextBox3) + Conv_en_Cdbl(TextBox4))
 
End Sub
 
Function Conv_en_Cdbl(valeur)
     'Avec la fonction CDbl, le séparateur décimal régional est requis
     'Format(0, ".") donne le séparateur décimal régional
    Conv_en_Cdbl = Replace(valeur, ".", Format(0, "."))
 
    If Conv_en_Cdbl = "" Then
     Conv_en_Cdbl = 0
     Else
        If Not IsNumeric(Conv_en_Cdbl) Then
          Conv_en_Cdbl = 0
        Else
            Conv_en_Cdbl = CDbl(Conv_en_Cdbl)
        End If
    End If
 
End Function

Ou on peut utiliser la fonction VAL comme ceci :

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
Private Sub CommandButton3_Click()
 
'Ceci fonctionne
TextBox5.Value = Conv_en_Val(TextBox1) - (Conv_en_Val(TextBox2) + Conv_en_Val(TextBox3) + Conv_en_Val(TextBox4))
 
End Sub
 
Function Conv_en_Val(valeur)
    'Avec la fonction VAL, le séparateur décimal doit toujours être le point
    'Donc on remplace le séparateur régional par un point.
    Conv_en_Val = Replace(valeur, Format(0, "."), ".")
 
    If Conv_en_Val = "" Then
      Conv_en_Val = 0
      Else
            Conv_en_Val = Val(Conv_en_Val)
    End If
 
End Function

Cordialement

Docmarti

[didier51]

bonsoir

j'ais trouvé une solution à mon problème
mais je souhaite réduire la taille du code
existe 'il une fonction qui puisse regrouper toute les SUB

voir fichier

Bonne soirée

[nibledispo]

Bonjour,

Et qu'as tu trouvé comme solution ?

Pour le reste:

Il faut bien définir l'action de chaque textbox donc une sub pour chaque.

Mettre la propriété locked = true dans la textbox 5 qui reçoit le résultat afin de ne pouvoir intervenir dessus.

Que se passe-t-il si on entre une valeur négative dans textbox 1 ? Rien de particulier.

Comment l'utilisateur sait-il dans quelle textbox il entre ses données ? Mettre un label éloquent.

Cordialement,

[didier51]

bonjour

mon exemple repose sur un Nbr de personnes présentes en TextBox1
qui peu contenir des décimal
je souhaite après la saisie du nombre de personnes

que le décompte des saisies par personnes 1 , personne 2 et personne 3
s'affiche instantanément dans la TextBox5 pour un Control d' erreur en temps réel

mon souci est le code utiliser :déclaration de chaque TextBox dans une SUB

et t'il possible de regrouper toutes les déclarations concernées dans une même
fonction , ou déclaration

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 Dim sommeTB As Double, valTB As Double, result As Double
Function Cdbl_RemplaceSeperateurDecimal(valeur)
 
    Cdbl_RemplaceSeperateurDecimal = Replace(valeur, ".", Format(0, "."))
    If Cdbl_RemplaceSeperateurDecimal <> "" Then
        If IsNumeric(Cdbl_RemplaceSeperateurDecimal) Then
            Cdbl_RemplaceSeperateurDecimal = CDbl(Cdbl_RemplaceSeperateurDecimal)
        End If
    End If
 
End Function
 
 
 
Private Sub TextBox1_Change()
If TextBox1 > 0 Then
calcul
End If
End Sub
 
Private Sub TextBox2_Change()
calcul
End Sub
 
Private Sub TextBox3_Change()
calcul
End Sub
 
Private Sub TextBox4_Change()
calcul
End Sub
 
Private Sub calcul()
sommeTB = Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
valTB = Val(TextBox1)
result = valTB - sommeTB
TextBox5 = result
End Sub