Discussion :

[zidane2]

Bonjour
Veuillez s'il vous plait m'aider à modifier ces codes et je vous serais trés reconnaissant.

Code :

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

1
2
3
4
5
6
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text)
End If
End Sub

Code :

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

1
2
3
Private Sub Text2_Change()
Text3.Text = Val(Text2.Text) + Val(Text3.Text)
End Sub

Le problème ici est que si je mis '5' dans text1 puis je mis '5', normalement je dois obtenir '10' dans le text3; alors qu'avec ce code j'obtiens '5' puisque les valeurs sont semblables. Mais si je mis des valeurs differentes ( par exemple '4' puis '5', le code fonctionne bien.
Comment faire pour que ce code soit fonctionnel même si les valeurs sont les mêmes.
Merci

[DAUDET78]

Val (xxx) te donne une valeur numérique que tu affectes à un string, c'est pas trop catholique !

Code :

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

1
2
3
4
5
6
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
Text2.Text = Text1.Text
End If
End Sub

Code :

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

1
2
3
Private Sub Text2_Change()
Text3.Text = format$(Val(Text2.Text) + Val(Text3.Text))
End Sub

Ca devrait mieux marcher ..... (evidemment si Text2.text change)

sinon il faut faire

Code :

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

1
2
3
4
5
6
7
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
Text2.Text = Text1.Text
Text3.Text = format$(Val(Text2.Text) + Val(Text3.Text))
End If
End Sub

[DAUDET78]

Si tu veux vraiment utiliser Text2_Change

Code :

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

1
2
3
4
5
6
7
8
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
   Text2.Text =""
   Doevents
   Text2.Text = Text1.Text
End If
End Sub

Code :

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

1
2
3
Private Sub Text2_Change()
Text3.Text = format$(Val(Text2.Text) + Val(Text3.Text))
End Sub

[zidane2]

Merci pour la réponse assez vite
Malheureusement ces codes ne marchent plus.

Code :

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

1
2
3
4
5
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Text1.Text
End If
End Sub

Code :

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

1
2
3
Private Sub Text2_Change()
Text3.Text = format$(Val(Text2.Text) + Val(Text3.Text))
End Sub

Pour ce code il y'a encore un petit problème.

Code :

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

1
2
3
4
5
6
7
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
Text2.Text = Text1.Text
Text3.Text = format$(Val(Text2.Text) + Val(Text3.Text))
End If
End Sub

Si par exemple je mis '4' dans text1 et j'appuye sur 'entree' j'obtiens '8' sur text3 .
merci encore pour votre aide

[DAUDET78]

Si par exemple je mis '4' dans text1 et j'appuye sur 'entree' j'obtiens '8' sur text3 .

il y avait quoi dans text3 avant?

Rajoute KeyAscii = 0

Code :

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

1
2
3
4
5
6
7
8
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
KeyAscii = 0
Text2.Text = Text1.Text
Text3.Text = format$(Val(Text2.Text) + Val(Text3.Text))
End If
End Sub

[zidane2]

Merci DAUDET78
je vous suis trés reconnaissant!

[zidane2]

Juste un tout petit problème avec les nombres décimaux si vous permettez.
Il me parrait que si j'additionne des nombres décimaux, le code ne donne pas de bons résultats.
Merci beaucoup

[DAUDET78]

le code ne donne pas de bons résultats.

Ca, c'est bien dommage pour toi .....

• listing du code
• exemple de valeurs entrées
• exemple de résultats "erronés"

[zidane2]

Si par éxemple je mets (1.5 + 1.5 ) il me donne 2.5 pas 3.
je ne sais comment vous remercier pour ton aide précieuse DAUDET78.

[DAUDET78]

tu peux donner ton code "actuel" (je t'avais donné deux ou trois solutions différentes !)

[zidane2]

Voici le code actuel:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
KeyAscii = 0
Text2.Text = Text1.Text
Text3.Text = format$(Val(Text2.Text) + Val(Text3.Text))
End If
End Sub

[DAUDET78]

C'est un problème de séparateur décimal. Windows affiche avec un "," et Val n'accepte que "."

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
If KeyAscii = 13 Then
  KeyAscii = 0
  Text2.Text = Text1.Text
  Text3.Text = Replace(Text3.Text, ",", ".")
  Text3.Text = Format$(Val(Text2.Text) + Val(Text3.Text))
End If
End Sub
 
Private Sub Text3_DblClick()
 Text3.Text = "" ' RAZ de Text3
End Sub

[zidane2]

C'est résolu

Merci beaucoup
Vraiment vous ètes un homme trés généreux.

[zidane2]

Salut DAUDET78
C'est encore moi
Désolé du déranngement mais je commence à ètre ambitieux!!!
Je voudrai juste savoir s'il est possible de mettre ce code dans text1_change au lieu de Text1_KeyPress:

Code :

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

1
2
3
4
5
Private Sub Text1_Change() 
 Text2.Text = Text1.Text
  Text3.Text = Replace(Text3.Text, ",", ".")
  Text3.Text = Format$(Val(Text2.Text) + Val(Text3.Text))
End Sub

J'ai essayé d'appliquer ça mais le problème est que lorsque je mets 15 dans text1, il me donne automatiquement 16 dans text3. Si j'ajoute 12, il me donne 30.
Y'a t-il quelques trucs pour remedier ça? et je vous serais trés reconnaissant.

[DAUDET78]

Non, ce n'est pas possible et tu l'as bien vu.

Il faut un ordre (le retour chariot ou un bouton ou un DoubleClic... enfin un signal!) pour dire au programme : J'ai bien rempli "Text1" avec une donnée valable, fais moi l'accumulation dans "text3"

[zidane2]

merci
c'est clair
mais excusez_moi de vous demander sur le retour chariot . ma curiosité me pousse à poser cette question. C'est quoi retour chariot ?
Je m'éxcuse encore.

[DAUDET78]

La touche "Carriage Return" ou Entrée qui est codée 13 sur le clavier

[zidane2]

million thanks