Simplifier le code de remplissage combobox et textbox avec totaux
Bonjour au forum,
Dans un userform se trouvent plusieurs textbox et combobox alignés par colonnes et par lignes et sont tous cachés sauf la première ligne.
Ce que je souhaite effectuer avec ce formulaire :
Aperçu en gros de l'UserForm
ComboboxCat ComboboxArt TextBoxInfArt TextBoxPU ComboboxMarge TextBoxVte
ComboboxCat1 ComboboxArt1 TextBoxInfArt1 TextBoxPU1 ComboboxMarge1 TextBoxVte1
ComboboxCat2 ComboboxArt2 TextBoxInfArt2 TextBoxPU2 ComboboxMarge2 TextBoxVte2
ComboboxCat3 ComboboxArt3 TextBoxInfArt3 TextBoxPU3 ComboboxMarge3 TextBoxVte3
...
...
ComboboxCat20 ComboboxArt20 TextBoxInfArt20 TextBoxPU20 ComboboxMarge20 TextBoxVte20
TextBoxTotauxPU TextBoxTotauxVte
calcul de la 1ère ligne,
Code:
1
2
3
| TextBoxVte.value=Val(TextBoxPU) * Val(ComboboxMarge)
TextBoxTotauxPU = Val(TextBoxPU)+Val(TextBoxPU1)+Val(TextBoxPU2)+...+Val(TextBoxPU20)
TextBoxTotauxVte=Val(TextBoxVte)+Val(TextBoxVte1)+Val(TextBoxVte2)+...+Val(TextBoxVte20) |
dès que TextBoxPU change la 2è ligne s'affiche et effectue le même calcul
Code:
1
2
3
4
| TextBoxVte1.value=Val(TextBoxPU1) * Val(ComboboxMarge1)
TextBoxTotauxPU = Val(TextBoxPU)+Val(TextBoxPU1)+Val(TextBoxPU2)+...+Val(TextBoxPU20)
TextBoxTotauxVte=Val(TextBoxVte)+Val(TextBoxVte1)+Val(TextBoxVte2)+...+Val(TextBoxVte20) |
dès que TextBoxPU1 change la 3è ligne s'affiche et effectue le même calcul
Code:
1
2
3
4
| TextBoxVte2.value=Val(TextBoxPU2) * Val(ComboboxMarge2)
TextBoxTotauxPU = Val(TextBoxPU)+Val(TextBoxPU1)+Val(TextBoxPU2)+...+Val(TextBoxPU20)
TextBoxTotauxVte=Val(TextBoxVte)+Val(TextBoxVte1)+Val(TextBoxVte2)+...+Val(TextBoxVte20) |
,etc. jusqu'à la 20è lignes
Comment simplifier ?
Les TextBoxTotauxPU TextBoxTotauxVte cumulent au fur et à mesures de l'apparition des lignes.
Merci pour votre aide
Stephanie
