XL 2010 Listbox à choix multiples: comment renvoyer en vba les choix dans le tableau?

[cgpa]

Bonjour le forum,

J'ai créé un userfom avec entre autres données une liste à choix multiples. Tout fonctionne sauf pour renvoyer la sélection multiple de la listbox3 dans une seule cellule du tableau.
Selon mon fichier, j’aimerais que les choix sélectionnés apparaissent sur la feuille "ventes" en colonne H. Si ce n'est pas possible, les choix peuvent se retrouver chacun dans une colonne séparée.
Le but final est de servir de base à un publipostage d'étiquettes (mais là, pas de problème).
Quelqu'un peut-il corriger mon code svp (code du Userfom2) ?
Un tout grand merci.
En pj le fichier très allégé.
Bonne journée!

 

[Rossoneri83]

Bonjour,

dans un choix multiples pour une listbox, tu est obligé de passer par une boucle pour récupérer toutes les valeurs sélectionnés çà devrait donner le code suivant

With Me.ListBox3
Dim valeur As String
 
  For i = 0 To ListBox3.ListCount - 1
      If .Selected(i) = True Then
      valeur = valeur & .List(i) & " "
      End If
  Next i
 Cells(ligne, 8).Value = valeur
 
End With

Bonne journée

 

[cgpa]

Bonjour,

dans un choix multiples pour une listbox, tu est obligé de passer par une boucle pour récupérer toutes les valeurs sélectionnés çà devrait donner le code suivant

With Me.ListBox3
Dim valeur As String
 
  For i = 0 To ListBox3.ListCount - 1
      If .Selected(i) = True Then
      valeur = valeur & .List(i) & " "
      End If
  Next i
 Cells(ligne, 8).Value = valeur
 
End With

Bonne journée

Un tout grand merci, Rossoneri83: cela fonctionne parfaitement!

 

[vgendron]

Hello le fil

je me suis permis de modifier tes plages nommées avec une formule decaler...
pour éviter d'avoir les entetes de tes colonnes dans les listbox
sinon, pour la boucle, c'est la meme que proposée par rossoneri83

 

[cgpa]

Hello le fil

je me suis permis de modifier tes plages nommées avec une formule decaler...
pour éviter d'avoir les entetes de tes colonnes dans les listbox
sinon, pour la boucle, c'est la meme que proposée par rossoneri83

Merci beaucoup vgendron. Je me demandais justement comment faire et voilà la solution. C'est bien plus lisible ainsi.

 

[cgpa]

Merci beaucoup vgendron. Je me demandais justement comment faire et voilà la solution. C'est bien plus lisible ainsi.

Et serait-ce abuser de savoir comment jouer sur les largeurs des colonnes présentes dans la combobox1 de userfom2?

 

[vgendron]

avec la propriété column width?
tu peux les définir directement dans les propriétés du control (comme tu as fait pour définir les rowsource)
en séparant les valeurs d'un ; ===> 100;200;300;400;500 (pas sur qu'il existe un autosize..)

 

[cgpa]

Merci beaucoup vgendron. Je me demandais justement comment faire et voilà la solution. C'est bien plus lisible ainsi.

avec la propriété column width?
tu peux les définir directement dans les propriétés du control (comme tu as fait pour définir les rowsource)
en séparant les valeurs d'un ; ===> 100;200;300;400;500 (pas sur qu'il existe un autosize..)

Merci! Depuis hier soir, j'effectue une recherche pour pouvoir trier la combobox1 du userform 2 sur le contenu de la 2ème colonne (le nom du client). Je ne trouve pas la réponse. Quand je lance l'userform et que je tap la première lettre du nom du client (colonne 2), cela ne renvoie rien. Actuellement, c'est la première colonne qui effectue l'affichage (le code client). Comme il y aura plusieurs centaines d'entrées, en colonne 2, ce sera plus facile de voir apapraitre les noms plutôt que les numéros de client. Cela fonctionne si je renomme la plage List_clients en supprimant la colonne du code client de la liste, mais j'ai pourtant besoin de ce code client pour le renvoyer sur la feuille "ventes" à partir de l'userform (et s'il n'est plus dnas la plage nommée, je le perds). Est-ce possible? Sinon, il me restera à déplacer la colonne "code client" pour que celle du nom soit en premier dans la plage nommée, cela fonctionne,m ais ma feuille "clients" est désorganisée. Avez-vous une idée, car je ne trouve pas sur le forum ni sur le web. Merci!

 

[ChTi160]

Bonjour cgpa
Bonjour le Fil ,le Forum
pas évident de reproduire ce que tu demandes un fichier avec ce que tu as et ce que tu veux !
il doit être possible de récupérer la Liste en fonction de la recherche dans la Deuxième Colonne!
Bonne journée
jean marie

 

[vgendron]

Va faire un tour par ici: tu devrais sans doute trouver ton bonheur

Formulaire liste multi-colonnes

 

[cgpa]

Merci!

Va faire un tour par ici: tu devrais sans doute trouver ton bonheur

Formulaire liste multi-colonnes

Merci Vgendron. C'est une fameuse bible que vous proposez là. J'y ai trouvé ce qui peut répondre à mes attentes mais vraisemblablement je ne suis pas capable de tout adapter à ma situation. Je bug sur la formule pour lui dire où se trouve la base de donnée, puis sur le renvoi vers la feuille. Accepteriez-vous de jeter un oeil sur l'userform 2 ?

 

[ChTi160]

Bonjour
j'ai supprimé dans un premier temps

Application.Goto.

et ca semble fonctionner !
jean marie

 

[cgpa]

Bonjour
j'ai supprimé dans un premier temps

Application.Goto.

et ca semble fonctionner !
jean marie

Merci beaucoup Jean-Marie, effectivement cel fonctionne. Il me reste un dernier souci pas trop grave. Avec cette nouvelle formule, j'ai perdu le code client quelque part et je ne vois pas comment modifier le vba. Les plages sont nommées. Ce qui m'importe surtout, c'est maintenant de pouvoir utiliser la textbox 13 qui propose un choix sur base du nom du client dans la listbox4. Mais il me serait quand même utile d'avoir le code client qui apparaisse (pas nécessairement dans l'userfom2) et surtout qu'il soit renvoyé sur la feuille des ventes. Faut-il que je déplace la colonne du code client sur ma feuille "clients"? J'ai trouvé!

 

[ChTi160]

Re
un fichier modifié
qui semble répondre à ta demande !
affichage du Code Client dans ListBox .
jean marie
Edit : j'avais pas vu le "j'ai trouvé !"

 

[cgpa]

Re
un fichier modifié
qui semble répondre à ta demande !
affichage du Code Client dans ListBox .
jean marie
Edit : j'avais pas vu le "j'ai trouvé !"

Merci beaucoup ChTi160!