Discussion :

[mosquitout]

Bonjour,
Sur une feuil, je cherche à afficher dans un label la somme du contenu de 10 zones texte lorsqu'une d'entre elle est modifiée.
Voici le bout de pgm:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Pht_KeyPress(Index As Integer, KeyAscii As Integer)
Dim i As Byte
Dim Total As String
 
Total = 0
For i = 0 To 9
     Total = Total + Pht(i).Text
Next
label(31).Caption = Total
End Sub

C'est dans le label(31) que je cherche à afficher le résultat mais la syntaxe n'est pas bonne car rien ne s'affiche quelqu'un aurai une idée ?

[Delbeke]

Le code parait bon, une petite amélioration serait de definir total comme un numérique

[kikouu]

Salam,

Je viens de tester ce code et ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Pht_KeyPress(Index As Integer, KeyAscii As Integer)
Dim i As Byte
Dim Total As String
 
Total = 0
For i = 0 To 1
     Total = Val(Total) + Val(pht(i).Text)
Next
Label.Caption = Total
End Sub

Néanmoins, quand on clique sur le textbox il affiche la somme précédente.

[mosquitout]

Oui, c'est mieux avec Val ( ) mais truc bizarre, le dernier chiffre saisi n'est pas compter !? C.a.d que si je saisi 125, il m'affiche "12" puis je rajoute 1254, il m'affiche "124". De même quand je saisi dans une 2ieme zone par exemple "8", alors j'ai comme resultat "1254".

[kroukse]

salut,
essay de mettre ton code dans l'evenement change du text.!!

[mosquitout]

Yes ! ca marche Merci

[mosquitout]

Oups, j'avais oublié les virgules ...
Je bloque pour les faire apparaitre correctement. Avec VAL, elles ne sont pas prisent en compte, en revanche le "point" oui. Mais se sont des virgules que je voudrais permettre à la saisie et là je vois pas comment passer ce pb.
Voilà ce que le code donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Pht_KeyPress(Index As Integer, KeyAscii As Integer)
Dim AllowedKeys As String
 
AllowedKeys = "0123456789,." & Chr(8)
  If KeyAscii = 46 Then  
     KeyAscii = 44       
  End If
  If InStr(AllowedKeys, Chr(KeyAscii)) = 0 Then
     KeyAscii = 0         
  End If
End Sub

Là je remplace donc la saisie éventuelle du point par une virgule.
et sur l'évènement "change", je fais mon calcul puis affichage.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Pht_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Dim i As Byte
Dim Total As Double
 Total = 0
 For i = 0 To 9
        Total = Val(Total) + Val(Pht(i).Text)
 Next
 label(31).Caption = (Total)
End Sub

Mais comme écrit là, les virgules ne sont pas prisent en compte.
J'ai essayé avec Cstr avant d'afficher Total mais ca ne change rien

[SfJ5Rpw8]

peu être avec un replace .. pour remplacer les , par des .