Discussion :

[Lighteux26]

Bonjour a toutes et tous.


J'ai des produits qui ont des codes, A, B, C, D, E, F, G
Je rentre une quantité

Je j'aimerais pouvoir enregistrer la quantite de chaque produit dans une variable avec sa quantite (Rempli dans le textbox) et son code produit, c'est a dire que si un produit est a zéro, qu'il soit ignoré.

du genre 2-ProduitA; 1-ProduitC; 9-ProduitD, et pas comme maintenant ou tout est listé, et ca n'est pas trés joli.

Exemple dans le fichier joint.

Pièce jointe 557535

je vous remercie par avance.

Cordialement, Lighteux26

[mfoxy]

Bonsoir Lighteux26,

Pourriez-vous poster votre code actuel, ainsi qu'une capture d'écran de votre userform, pour mieux ce rendre compte de votre besoin.

Je n'ouvre que très rarement, comme beaucoup de membre de ce forum, les fichier joint qui plus est lors du premier post.

Vous aurez de la sorte plus de chance de trouver réponses à vos questions.

Bav,
MFoxy

[Lighteux26]

mfoxy, le forum.

Merci pour votre réponse.

Oui pas de soucis.

Pièce jointe 557571

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 
Dim VarTxt_A_20  'As Integer
Dim VarTxt_A_21  'As Integer
Dim VarTxt_A_22  'As Integer
Dim VarTxt_A_23  'As Integer
Dim VarTxt_A_24  'As Integer
Dim VarTxt_A_25  'As Integer
Dim VarTxt_A_26  'As Integer
Dim VarTxt_A_27  'As Integer
Dim Ma_Livraison  'As Integer
 
 
Private Sub CommandButton1_Click()
Dim b
 
 
VarTxt_A_20 = ";" & Txt_A_20.Value & "-" & "Produit A"
VarTxt_A_21 = ";" & Txt_A_21.Value & "-" & "Produit  B"
VarTxt_A_22 = ";" & Txt_A_22.Value & "-" & "Produit C"
VarTxt_A_23 = ";" & Txt_A_23.Value & "-" & "Produit D"
VarTxt_A_24 = ";" & Txt_A_24.Value & "-" & "Produit E"
VarTxt_A_25 = ";" & Txt_A_25.Value & "-" & "Produit F"
VarTxt_A_26 = ";" & Txt_A_26.Value & "-" & "Produit G"
 
For b = 20 To 26
 
    If Me.Controls("Txt_A_" & b).Value = "0" Then
 
        Else
 
    End If
 
Next b
 
Ma_Livraison = VarTxt_A_20 + VarTxt_A_21 + VarTxt_A_22 + VarTxt_A_23 + VarTxt_A_24 + VarTxt_A_25 + VarTxt_A_26 + VarTxt_A_27
 
MsgBox Ma_Livraison
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub
 
Private Sub UserForm_Initialize()*
 
Dim i As Byte
 
For i = 20 To 26
    Me.Controls("Txt_A_" & i) = "0"
Next i
 
End Sub

Merci

[mfoxy]

Re,

Je suis un peu à court de temps aujourd'hui pour regarder à ton code et sortir quelque chose de correct.

Une façon de faire serait de construire votre Ma_Livraison dans une boucle, comme celle que vous avez commencez.

Si textbox = 0 on passe si textbox supérieur à 0 on ajoute à la chaîne de caractère

Je reviens demain en forme, si personne n'est passé avant vous donner une solution.

Bav,

MFoxy

[Lighteux26]

MFoxy, le forum.

Merci pour votre réponse.

Oui je me doutais bien que cela commençait de la sorte, après j'ai du mal a gérer, le fait d'avoir ces histoires de chaines de caractères, ces variables et tout cela dans un Shaker et hop, Ma_Livraison; LOL

Je n'arrive pas a incrémenter ma boucle de variables Produit

Allé je cherche.

Merci

[mfoxy]

Bonjour Lighteux26,

Si tu veux jeter un œil au fichier en attache, celui-ci devrait correspondre à ton besoin.
J'ai légèrement modifié votre Usf pour afficher , à coté des TextBox correspondantes, un Label avec leurs titres Produits.

Pour adapter le nom de vos produits, il suffit de modifier le texte (caption) des labels directement dans le Userform.

Bàv,

Mfoxy