affichage en live du cumul des valeurs saisies

Question

Bonjour à toutes et à tous

Vola j ai crée une feuille de saisie ou l utiliseur à la possibilité de saisir 20 valeurs accompagnés de commentaire etc...

je souhaite afin qu'il ouisse se controler afficher dans cette même feuille le total. total qui evolue au fur et à mesure des saisies.

Comment faire

merci pour votre aide

jannoman · Answer

&#224; l'&#233;v&#233;nement Text_ change, tu fais somme = ccur(text1.text) + ... puis label1.caption = somme

A+.
Thomas.

jannoman · Answer

P.S : fais le Text_change pour chaque Textbox de ta feuille. N'oublies pas de tester avant d'additionner, si les TExtbox contiennent des trucs num&#233;riques ; le plus simple est de g&#233;rer une collection de TExtbox :
Private sub Text1_Change (Index as Integer)
dim somme as currency
somme=0
for k = 0 to ...(ici le nb de textbox)
if isnumeric(TExt1(k).text) then
somme=somme+ccur(text1(k).text)
end if
next k
label1.caption=somme

jrivet · Answer

Salut,

J ajouterai juste Text1.UBound pour ne pas mettre en dur dans le code le nombre de textBox. (Si c est du VB6)

@+
Julien

PCPT · Answer

salut, presque d'accord ... tu n'as pas à recalculer pour des valeurs qui ne change pas. donc ni boucle, ni forcément de Ubound. mais le principe est bon... Option Explicit ' Dim cSomme As Currency ' Private Sub Form_Load() ' init Text1(0).Text = "0" cSomme = 0 ' on charge dynamiquement 19 autres txtbox Dim i As Integer For i = 1 To 19 Load Text1(i) Text1(i).Top = Text1(i - 1).Top + Text1(i).Height + 50 Text1(i).Visible = True Next i End Sub ' ' Private Sub Text1_Validate(Index As Integer, Cancel As Boolean) cSomme = cSomme + CCur( Val (Text1(Index).Text)) 'val pour format régional "," "." Me.Caption "Total actuel " & CStr(cSomme) End Sub Coloration syntaxique automatique [AFCK] reste tout de même à vérifier la saisie correcte (pas de lettre, etc...) PCPT [AFCK]

Salade007 · Answer

j ai essay&#233; mais je bog au niveau caption,
ne serait pas  .value = somme
je n'ai pas essay&#233;

je suis sur vba excel

merci pour votre aide

&#224;++++++++

PCPT · Answer

le caption n'est qu'un exemple....


je ne sais pas pour VBA, d&#233;sol&#233;.


tu peux toujours faire le test en rempla&#231;ant par 

Debug.Print "Total actuel = " & CStr(cSomme)

Affichage en live du cumul des valeurs saisies

6 réponses

Discussions similaires