Concatener une zone de liste

Résolu/Fermé
Eric - 14 févr. 2022 à 12:50
 Eric - 21 févr. 2022 à 12:16
Bonjour à tous.
Svp je viens auprès de vous pour solliciter une aide.
Ça fait des heures que j'essaie en vain de concaténer les données d'une zone de liste.
Voici en annexe ma base de données:

https://www.cjoint.com/c/LBolWs5yuMO

veuillez ouvrir le formulaire "Ajoutercommande"
A gauche il y a une liste des produit
Cliquez sur le produit, saisissez la quantité puis cliquez sur "ajouter produit" (faites la même chose pour les trois produits )

Voici maintenant ma préoccupation:
J'aimerais qu'à chaque fois je clique sur le bouton "valider facture" à son événement "sur souris appuyée", que la zone de texte nommée " txt_prod_qte" affiche chaque produit et sa quantité
Quelqu'un peut-il m'aider svp??
A voir également:

1 réponse

yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 Ambassadeur 1 554
14 févr. 2022 à 22:13
bonjour,

une façon de faire, c'est, au moment de traiter "ajouter produit", d'adapter le texte qui sera ensuite affiché dans la zone de texte nommée " txt_prod_qte".

une autre façon de faire, ce serait d'extraire les infos de la table "commandes" pour construire le texte souhaité.
1
Eric_3280 Messages postés 22 Date d'inscription jeudi 11 avril 2019 Statut Membre Dernière intervention 15 février 2022
15 févr. 2022 à 10:31
Merci. J'essaie alors
0
Bonjour
Voici le code qui me permet de concaténer ma zone de liste
Mais le problème en est que ce code concatène uniquement les données de la première colonne.
Alors que moi je veux concaténer les éléments de la deuxième et la quatrième colonne (produit et quantité séparé par une virgule ex. " souri4, clavier 3, caméra2, etc"

Comment corriger ce code svp


Private Sub ShowItems()
Dim sList As String
Dim nIndex As Integer

For nIndex = 0 To ListBox1.ListCount - 1
sList = sList & ListBox1.ItemData(nIndex) & ","
Next
sList = Left$(sList, Len(sList) - 1)

MsgBox sList
End Sub
0
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > Eric
20 févr. 2022 à 20:10
peux-tu partager ton fichier avec le code inclus?
0
Eric > yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024
21 févr. 2022 à 11:12
Bonjour
Voici mon mon fichier ouvrez le formulaire "ajoutecommande"
Ajouter les produit et les quantité, puis cliquez sur "OK " il vous affichera juste la 1ere colonne. Alors que moi je veux qu'il m'affiche la deuxième et la quatrième colonne (destination et quantité)

Cordialement

https://www.cjoint.com/c/LBvketq3mGP
0
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > Eric
21 févr. 2022 à 11:47
ListBox1.ItemData(nIndex)
te donne la valeur de la colonne liée.

pour avoir les valeurs des colonnes 2 et 4, fais plutôt ainsi:
txtlisteproduitdemandes.Column(1, NumIndex)

txtlisteproduitdemandes.Column(3, NumIndex)
0