Probleme dans une boucle dans une user form
Résolu/Fermé
Sahmy021
yg_be
- Messages postés
- 17
- Date d'inscription
- dimanche 3 décembre 2017
- Statut
- Membre
- Dernière intervention
- 7 décembre 2017
yg_be
- Messages postés
- 20049
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 17 août 2022
A voir également:
- Probleme dans une boucle dans une user form
- Probleme dans une boucle dans une user form ✓ - Forum - VB / VBA
- User form - Conseils pratiques - Visual Basic
- Comment créer une boucle de mise en forme des cellules ✓ - Forum - VB / VBA
- Simulé la Fonction Indirect dans les User forms ✓ - Forum - VB / VBA
- Utilisation des user_form ✓ - Forum - Excel
3 réponses
Sahmy021
4 déc. 2017 à 21:12
- 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
oups je viens de voir faute de frappe dans le "txtmontant"
désolé
désolé
yg_be
4 déc. 2017 à 21:16
- Messages postés
- 20049
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 17 août 2022
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
Modifié le 4 déc. 2017 à 23:28
- 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
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
5 déc. 2017 à 01:14
- Messages postés
- 20049
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 17 août 2022
5 déc. 2017 à 01:14
peux-tu partager ton fichier?