Copier ma sélection dans un Label

Bonjour a toutes et tous, Forum bonjour

J'ai un USF1 avec une ListBox1 et un Label1

Une liste de nom sur ma Feuil1 baptiser (Compte) en colonne (T)

ListBox1 mis propriété sur Muliselect=1

Ma liste s'affiche bien dans le ListBox1 et je peux cocher plusieurs cases.

Je souhaiterai svp afficher (Le où les noms) sélectionnés dans le Label1

Malgré de multiples essais, je ni parviens pas.

Merci et bon début de semaine a tous

Cordialement Ray

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

Option Explicit   Private Sub UserForm_Initialize() Dim I As Integer ListBox1.Clear   For I = 1 To Sheets("Compte").[T50].End(xlUp).Row   If ListBox1.ListIndex = -1 Then ListBox1.AddItem Sheets("Compte").Cells(I, "T") End If   Next I ListBox1.List() = Range("T1:T50").Value End Sub   '***** Private Sub ListBox1_Click() Dim compt As Integer   For compt = 0 To (ListBox1.ListCount - 1)   If ListBox1.Selected(compt) = True Then Label1.Caption = ListBox1.List(compt) End If   Next compt End Sub

---

Bonjour,
Sans avoir effectué de test, dans cette partie de ton code, mis en évidence en rouge.

Code:

---

1 2 3 4 5

For compt = 0 To (ListBox1.ListCount - 1) If ListBox1.Selected(compt) = True Then Label1.Caption = ListBox1.List(compt) End If Next compt

---

Il y aurait lieu de faire une concaténation comme par exemple

Code:

---

Label1.Caption = Label1.Caption & ";" & ListBox1.List(compt)

---

Sans oublier d'initialiser au préalable la propriété Caption par une chaîne vide.

Salut Philippe Tulliez

Merci pour ta réponse c'est sympa

Mais malgré les modifs proposées ça ne fonctionne pas ou alors je n'ai pas bien compris.

Merci pour ton aide

Cdlt Ray

ton code est d'une bizarrerie:

Code:

---

1 2 3 4

ListBox1.AddItem Sheets("Compte").Cells(I, "T") ......   ListBox1.List() = Range("T1:T50").Value

---

enlève ListBox1.List() = Range("T1:T50").Value

et fais ça:

Code:

---

ListBox1.AddItem Sheets("Compte").range( "T" & I).

---

Salut rdurupt,

Merci pour ta réponse,

ça ne marche pas, certainement a cause de mon code bizarre comme tu dit.

je l'ai trouver sur le net, et j'ai regarder sur le site les tutos sur ListBox
et voila pas très réussi.

Si tu a le temps tu pourrai svp me faire quelque chose de mieux si tu veux bien.

Merci a toi, bon app

Cdlt Ray

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() Dim I As Integer ListBox1.Clear For I = 1 To Sheets("Compte").[T50].End(xlUp).Row ListBox1.AddItem Sheets("Compte").Range("T" & I) Next End Sub

---

Bonjour,

Citation:

---

Envoyé par eliot.raymond

Salut Philippe Tulliez
Mais malgré les modifs proposées ça ne fonctionne pas ou alors je n'ai pas bien compris.

---

C'est peut-être moi qui n'ai rien compris.
Ta demande initiale

Citation:

---

J'ai un USF1 avec une ListBox1 et un Label1
Une liste de nom sur ma Feuil1 baptiser (Compte) en colonne (T)
ListBox1 mis propriété sur Muliselect=1
Ma liste s'affiche bien dans le ListBox1 et je peux cocher plusieurs cases.
Je souhaiterai svp afficher (Le où les noms) sélectionnés dans le Label1

---

C'est à dire que chaque élément sélectionné dans ta liste doit se retrouver dans Label1 (à la relecture de ta question, je trouve cela curieux car je penserais plutôt à un TextBox qu'à un Label) donc je t'ai proposé de concaténer chaque élément sélectionné.

je pense que tu as bien compris et ta réponse en est la preuve, mais sa méthode pour alimenter sa liste est hasardeuse.

Re

Cela est bien excat, sauf que je n'arrivai pas a ecrire dans le label(1) ce que je selectionne
le but etant d'afficher (Le où les noms) sélectionnés dans le Label1

la remarque pour le code pas terrible est bien vrai et merci de m'avoir refait un plus clair

Je fais quelques essais pour apporter peut etre des modifications dans un autre fichier si ca marche

un peu de la bidouille pour l'instant

'***
J'ai un USF1 avec une ListBox1 et un Label1
Une liste de nom sur ma Feuil1 baptiser (Compte) en colonne (T)
ListBox1 mis propriété sur Muliselect=1
Ma liste s'affiche bien dans le ListBox1 et je peux cocher plusieurs cases.
Je souhaiterai svp afficher (Le où les noms) sélectionnés dans le Label1

je vais maintenant avec le beau petit code essayer de realiser ce qui etait ma demande, sinon tant pis.

Merci a vous deux pour l'aide apporter, bonne après midi

Cdlt Ray

Bonjour Robert,
J'avais orienté ma réponse sur la partie à concaténer sans me préoccuper du reste puisque d'après eliot.raymond cela semblait fonctionner mais tu as raison sur la méthode.