Discussion :

[eliot.raymond]

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 :

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
 
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

[Philippe Tulliez]

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

Code :

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

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 :

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

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

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

[eliot.raymond]

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

[Invité]

ton code est d'une bizarrerie:

Code :

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

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 :

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

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

[eliot.raymond]

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

[Invité]

Code :

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

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

[Philippe Tulliez]

Bonjour,

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

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é.

[Invité]

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.

[eliot.raymond]

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