Discussion :

[samir321]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Zekraoui_Jakani]

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

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.

[Pierre Fauconnier]

Salut

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





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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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;
...

[samir321]

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)



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