Fonction rappellant une valeur [Résolu]

Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Statut
Membre
Dernière intervention
4 septembre 2007
- - Dernière réponse : Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
- 24 juil. 2005 à 16:49
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');
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
21
3
Merci
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

Dire « Merci » 3

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

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

Daniel