Fonction rappellant une valeur [Résolu]

Signaler
Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Statut
Membre
Dernière intervention
4 septembre 2007
-
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
-
hello,
1/je veux faire une fonction / procédure qui donne:
nouveautotal=totalprécédent+total des données renseignées par l'utilisateur (via des txtbox) tout ça avec des integer

2/comment faire pour, lorsqu'on applique une booucle for aux index de txtbox, le traitement ne plante pas si une des txtbox n'est pas renseignée???
merci
NiikkoJavascript:Insert_Emoticon('/imgs2/smile_sad.gif');

3 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
26
Dim i As Integer

Dim total As Integer



For i = 0 To Text1.Count - 1

total = total + Val(Text1(i).Text)

Next

MsgBox total


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 106 internautes nous ont dit merci ce mois-ci

Messages postés
242
Date d'inscription
jeudi 8 janvier 2004
Statut
Membre
Dernière intervention
10 novembre 2005

Ajoutes if textbox <> "" then ...
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
26
je vois pas l'intérêt de rajouter un test puisque Val(Text1) renverra zéro de toute façon.

Daniel