Valeur variable suivant Boucle sur Texbox

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

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

mfoxy, le forum.

Merci pour votre réponse.

Oui pas de soucis.

Pièce jointe 557571

Code:

---

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

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

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

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

Hello mfoxy, le forum

Superbe, merci

Aprés avoir intégrer le code dans mon classeur (Pas une mince affaire, hihi) et fais des tests, cela a l'aire de roulé, bravo.

Alors pour fignoler un peu, comme vous utilisez le .caption des labels.

Chez moi les caption des labels et comme ceci : Solo (S), serait-l possible de prendre en compte que ce qui est aprés l'espace (S)

Merci, beaucoup.

Lighteux26

Hello le forum.

Bon je pense que c'est bon.

J'ai du changer la manière d'écrire mes captions pour mes lables car avec un espace avant la parenthese je n'y arrivais pas, j'ai donc mis un tiret et ca roule.

Code:

---

1 2 3 4 5 6 7 8 9

Code = Me.Controls("lab_A_" & b).Caption p = InStr(Code, "-") 'MsgBox Mid(Code, p + 1)   If Me.Controls("Txt_PRODUIT_" & b).Value <> "0" Then Ma_Livraison = Ma_Livraison & Me.Controls("Txt_PRODUIT_" & b).Value & "-" & Mid(Code, p + 1) 'Me.Controls("lab_A_" & b).Caption Ma_Livraison = Ma_Livraison & ";" End If Next b

---

Je fais quelques test pour être sur.

Merci encore.

Le Lighteux26

Cc, mfoxy, le forum.

Je pense que tout est OK.

Je te remerci pou le coup de main et passe le post en résolu.

Cordialement.

Le Lighteux