Discussion :

[cagodue]

Je comprends mal comment faire pour que les items choisis dans une liste puisse revenir comme sélectionné.

J'ai une liste et je fais un ou des choix qui s'en vont dans un textbox. Je voudrais récupérer les choix dans mon textbox et les afficher sélectionné dans ma ListBox...... comment faire ? (MultiSelectMulti)

Code :

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

ListBox1.RowSource = ("Secteur")

À l'aide du code suivant, je fais apparaître ma sélection de mon ListBox dans un TextBox sur mon UserForm1

Code :

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

UserForm1.TextBox9.Value = Secteur

Maintenant, lorsque je retourne dans ma liste (qui est sur le UserForm2) comment faire pour que le texte dans le TextBox affiche comme sélectionné dans mon ListBox.

Et une dernière facile pour vous, j'en suis sur. Une fois terminé dans mon UserForm2, mon bouton quitter =

Code :

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

Unload Me

, lorsque je le fais, le curseur de souris se met à tourner, comme s'il était en attente, je dois cliquer un coup ou taper quelque chose pour que le curseur arrête de tourner.

Un gros merci

[Thautheme]

Bonjour Cagodue, bonjour le forum,

Je 'ai pas bien compris ta procédure... Quoi qu'il en soit, pour sélectionner tous les éléments d'une ListBox ayant la propriété MultiSelect = 1-fmMultiSelectMulti, le code (après à toi de voir où le placer...) ci-dessous :

Code :

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

1
2
3
For i = 0 To Me.ListBox1.ListCount - 1
    Me.ListBox1.Selected(i) = True
Next i

[cagodue]

Cette partie fonctionne bien. Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
           Secteur = Secteur & ListBox1.List(i) & vbNewLine
    End If
    Next i
 
    If Secteur = "" Then
         MsgBox "Aucun secteur de sélectionné"
    Else
    End If
UserForm1.TextBox9.Value = Secteur

Maintenant ceci rapporte la sélection dans UserForm1.TextBox9

Ce que je veux c'est que si j'ouvre à nouveau mon UserForm2 (Ou il y a mon ListBox1) qu'il récupère ce qu'il y a dans mon UserForm1.TextBox9 et l'affiche comme sélectionné dans mon ListBox1