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

[nibledispo]

Bonjour,

Dès lors que tu veux une réaction immediate les "sub change" s'imposent pour textbox2, 3 et 4 me semble-t-il.

Pour textbox1 (qui n'a pas besoin d'une sub "_change", il est inutile renvoyer au calcul.
Par ailleurs un nombre de personnes décimal, c'est dur pour la personne coupée en tranche.

Faire un contrôle (non testé):

Code :

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

1
2
3
4
5
 
If TextBox1 < 0 or TextBox1 <> int(TextBox1) Then
    MsgBox " saisir un entier positif"
    Set Focus = TextBox1
End If

Pour textbox 5, mettre la propriété "locked" à true afin de ne pouvoir intervenir dessus.

Enfin, comment sors-tu de ton userform ?

Cordialement,

[didier51]

pense tu avec une dose d'anesthesie et une bonne hache

je te remercie pour ta réponse mais après test

si je ne déclare pas la TextBox1 : si erreur de saisie TextBox1 oblige à supprimer les valeurs des autres TextBox pour un affichage correct

par ailleurs ceci est une fonction que je souhaite incorporer à mon fichier final
je suis débutant en VBA :3 semaines

à l'aide de recherches et de questions posées sur le forum
j'ais déjà bien avancé

mon formulaire se comporte ainsi:
saisie de la date (sans doublon)
nombre de personnes présentes
répartition d'un nombre de personnes par poste (en fonction du nombre de personnes présentes)
attribution du ou des postes par personnes (réponse des décimal Nbr de poste de 1 à 10 une personne peu être 0.2 poste1 et 0.8 au poste9)
Control de tous avec plusieurs Control par MsgBox qui se déclenche après validation avec retour sur TextBox concernée
c'est pourquoi je souhaite incorporer un Control visuel et en temps réel à certaine TextBox

bonne soirée