Zone de liste - Ajouter

salut tout le monde !
dans mon programme j'ai un userform contient une zone de liste qui contient 3 colonnes (ingrédient- % - quantité)
en premier lieu les 2 premières colonnes sont remplis par l'utilisateur qui saisie l'ingrédient et son pourcentage et l'ajoute dans la zone de liste; et après qu'il atteint 100% il doit entrer la quantité totale et puis valider avec un bouton qui va faire l'opération de multiplication par chaque pourcentage de chaque produit et l'ajouter à la 3ème colonne.
voilà ce que j'ai écris et bien sure ne marche pas :calim2:

memoire = une variable publique pour le nombre de ligne de la zone de list
listeHuile = c'est la zone de liste (plusieurs ligne (d'apres l'utilisateur); 3 colonnes)
txtTotal = un textbox qui contient le poids total

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub btnValider_Click()   For i = 1 To memoire With Me.listeHuile .AddItem .List(i, 3) = .List(i, 2) * Me.txtTotal End With   Next i

---

Pouvez-vous poster copie de votre document ? Ce n'es pas très clair:

Citation:

---

les 2 premières colonnes sont remplies par l'utilisateur qui saisit l'ingrédient et son pourcentage et l'ajoute dans la zone de liste

---

En principe, on ne peut que choisir un élément d'une "listbox" préalablement remplie.

Salut

1. Créer la liste des ingrédients dans un tableau structuré

Pièce jointe 507265



2. Avec un userform contenant:

• cboProduct, combobox alimenté par le tableau;
• tboProductQty, textbox qui recevra le % de matière;
• btnAddProduct, bouton qui permettra d'ajouter le produit et son % à la listbox;
• lboProducts, listbox de 3 colonnes;
• tboQty, textbox pour la qté totale à produire;
• btnCalculate, bouton qui permet le calcul des poids pour chaque ingrédient en fonction de la qté totale désirée.

Pièce jointe 507268


3. On prépare le userform en alimentant le combobox avec les produits du tableau. Cette procédure se place dans un module standard

Code:

---

1 2 3 4 5 6

Sub Test() With UserForm1 .cboProduct.List = Range("t_Products").Value .Show End With End Sub

---

4. Au click sur le bouton pour ajouter, les données s'ajoutent à la liste. Pour le fun, il n'est plus possible d'ajouter des données lorsque l'on arrive à 100%

Code:

---

1 2 3 4 5 6 7 8

Private Sub btnAddProduct_Click() TotalQty = TotalQty + tboProductQty * 1 lboProducts.AddItem cboProduct.Value lboProducts.List(lboProducts.ListCount - 1, 1) = tboProductQty.Value cboProduct.ListIndex = -1 tboProductQty.Value = "" If TotalQty = 100 Then btnAddProduct.Enabled = False End Sub

---

5. Au clic sur le bouton de calcul, on ajoute la qté calculée par ingrédient sur la bonne ligne de la liste

Code:

---

1 2 3 4 5 6 7

Private Sub btnCalculate_Click() Dim Counter As Long   For Counter = 0 To lboProducts.ListCount - 1 lboProducts.List(Counter, 2) = lboProducts.List(Counter, 1) * tboQty / 100 Next End Sub

---

Pièce jointe 507271

Pièce jointe 507274



Bien sûr, c'est minimaliste. A toi de comprendre ce qui est mis en place. Idéalement, on ajouter de la sécurité:
Vérifier que l'on a bien saisi une valeur numérique pour le % de matière;
Vérifier que l'on a bien saisi une valeur numérique pour la qté de produit final à réaliser;
Vérifier qu'on a bien 100%, ni moins ni plus;
...

salut Pierre Fauconnier
merci beaucoup ça marche très bien
seulement j'ai un autre problème
c'est que j'ai trois listes dans mon userform (liste_Produits / liste_Ajouts / liste_Fragrances )
et avec un seule bouton (btn_Valider) j'ajoute les informations de chaque liste au tableau correspondant (les 3 tableaux sont dans une seule page)
tab_Ajouts
tab_Produits
tab_Fragrances

J'ai jamais rencontré le cas où les 3 tableau sont dans la même feuille
les listes sont de dimension (ligne <= 7, colonne=3)
la première colonne de la liste va être ajouter à la première colonne du tableau
la deuxième à la 6ème colonne du tableau
la troisième à la 2ème colonne du tableau
et aussi j'ai des conditions sur la 3, 4 et 5 ème colonne (je ne veux pas les modifiées)

Pièce jointe 507432

pour me simplifier les choses, je veux seulement le code d'une seule liste et je continuerai la suite