Probleme dans une boucle dans une user form
Résolu/Fermé
Sahmy021
Messages postés
17
Date d'inscription
dimanche 3 décembre 2017
Statut
Membre
Dernière intervention
7 décembre 2017
-
4 déc. 2017 à 21:01
yg_be Messages postés 21304 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 5 déc. 2017 à 01:14
yg_be Messages postés 21304 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 5 déc. 2017 à 01:14
A voir également:
- Probleme dans une boucle dans une user form
- Facebook user - Forum Facebook
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Pc s'allume et s'éteint en boucle - Forum Matériel informatique
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Présentation d'une diapositive - Forum Bureautique
3 réponses
Sahmy021
Messages postés
17
Date d'inscription
dimanche 3 décembre 2017
Statut
Membre
Dernière intervention
7 décembre 2017
4 déc. 2017 à 21:12
4 déc. 2017 à 21:12
oups je viens de voir faute de frappe dans le "txtmontant"
désolé
désolé
yg_be
Messages postés
21304
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
4 déc. 2017 à 21:16
4 déc. 2017 à 21:16
bonsoir, n'as-tu aucune indication de la ligne de code qui provoque cette erreur?
quelques suggestions pour assainir ton code:
quelques suggestions pour assainir ton code:
Private Sub TxbMontant1_AfterUpdate()
TxbMontant1 = Format(Val(TxbMontant1.Value), "# ##0.00€")
Dim i As Integer
Dim T As Single
T = 0
For i = 1 To 15
T = T + Val(Me.Controls("TxtMontant" & i).Value)
Next i
LblTotal.Caption = Format(T, "# ##0.00€")
End Sub
Sahmy021
Messages postés
17
Date d'inscription
dimanche 3 décembre 2017
Statut
Membre
Dernière intervention
7 décembre 2017
Modifié le 4 déc. 2017 à 23:28
Modifié le 4 déc. 2017 à 23:28
re Bonjour,
je rouvre ici, en fait dans mon premier code il y avait juste une faute de frappe.
Je souhaite faire une boucle qui met la somme de plusieurs TextBox dans un label.
Au début je voulais faire une routine à rappeler des que renseigne une des texbox mais ça ne marchait pas (voir les lignes en commentaire) du coup j'ai déjà essayé de la faire normalement.
mon code :
ca à l'air de marcher sauf qu'il ne me calcula pas les chiffre après la virgule
et qd je modifie ma txbmotant1 il me met toutes les autre déjà remplie à 12....
j'y comprend rien....
je rouvre ici, en fait dans mon premier code il y avait juste une faute de frappe.
Je souhaite faire une boucle qui met la somme de plusieurs TextBox dans un label.
Au début je voulais faire une routine à rappeler des que renseigne une des texbox mais ça ne marchait pas (voir les lignes en commentaire) du coup j'ai déjà essayé de la faire normalement.
mon code :
'Sub CalculTotal(Source As TextBox, Cible As Label)
Private Sub TxbMontant1_AfterUpDate()
TxbMontant1 = Format(TxbMontant1.Value, "# ##0.00€")
Dim i As Integer
i = 1
LblTotal.Caption = 0
For i = 1 To 15
LblTotal.Caption = Format(Val(LblTotal.Caption) + Val(Controls("TxbMontant" & i).Value), "# ##0.00€")
Next i
End Sub
'Private Sub TxbMontant1_AfterUpDate()
' calcultotal TxbMontant1
'End Sub
ca à l'air de marcher sauf qu'il ne me calcula pas les chiffre après la virgule
et qd je modifie ma txbmotant1 il me met toutes les autre déjà remplie à 12....
j'y comprend rien....
yg_be
Messages postés
21304
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
5 déc. 2017 à 01:14
5 déc. 2017 à 01:14
peux-tu partager ton fichier?