Transfert de données d'une listbox vers une autre listbox

[Jean P.]

Bonjour à tous,

Je bloque sur un problème.
J'ai fais un Userform dans lequel j'affiche des données (colonne A et B) dans une listbox1.
Je sélectionne une donnée et je clique sur le bouton command1 les données sont transférées vers la listbox2.

Le problème, c'est que seulement la colonne A est transférée ?

Voici le code du bouton command1:
With Me.ListBox1
For I = 0 To .ListCount - 1
If .Selected(I) Then Me.ListBox2.AddItem .List(I)
.Selected(I) = False
Next
End With

Merci pour votre aide.

 

[Kotov]

Re : Transfert de données d'une listbox vers une autre listbox

Bonjour Jean P., le forum,

Tu trouveras en pièce jointe un exemple rapide qui assure ce transfert. Je te laisse le soin de l'adapter à tes besoins, mais reste à ta disposition pour tout aide ultérieure.

En fait, j'ai alimenté un tableau T1 avec tes sélections et je le transfère au final par
Me.ListBox2.List = T1

Précision complémentaire :
N'oublies toutefois pas de déclarer tes listbox avec 2 colonnes et une largeur permettant aux données d'être apparentes,sinon tu n'auras qu'une colonne de visible.

J'ai choisi l'option des multi sélections pour les listbox, permettant ainsi de transférer plusieurs items si tu cliques sur plusieurs lignes.

Bonne journée
Kotov

 

[Jean P.]

Re : Transfert de données d'une listbox vers une autre listbox

Bonjour tous le monde et merci à Kotov,

J'ai toutefois, encore un petit problème.
Dans la listbox1, je ne veux pas permettre de sélection multiple,
donc je règle la propriété MultiSelect=0 fm MultiSelectSingle

Je clique sur le bouton de commande et le transfert ce fait, c'est OK.

Mais quand je fais une deuxième sélection, et que je clique sur le bouton de commande, la nouvelle sélection vient écraser l'ancienne.

Q1: Qu'est-ce que je dois faire pour voir toutes les sélections choisit dans la listebox2 ?

Q2: Est-ce qu'il est possible de supprimer la sélection dans la listbox1 une fois que celle-ci est trasférer dans la listbox2 ?

Merci à tous pour vos commentaires et votre aide.

 

[bqtr]

Re : Transfert de données d'une listbox vers une autre listbox

Bonjour Jean P.,Kotov

En pièce jointe un exemple qui fait ce que tu demandes, enfin j'espère.

Bonne fin de soirée

 

[bqtr]

Re : Transfert de données d'une listbox vers une autre listbox

Re,

La même chose, mais en sens inverse, de la listbox2 vers la listbox1 et trié par ordre alphabétique.

Au cas où ca pourrai intéressé quelqu'un 🙂.


A+

 

[Jean P.]

Re : Transfert de données d'une listbox vers une autre listbox

Bonjour à tous,

C'est vraiment super comme réponse.

J'ai repris ton code et ajouter un deuxième bouton qui permet de retourner les valeurs de la listbox2 vers la listbox1. (merci)

A partir de cet exemple, est-ce que l'on peut trier les valeurs dans les listbox par ordre alphabétique ?

Encore une fois BRAVO à tous le monde pour vos commentaires et votre aide.

 

[bqtr]

Re : Transfert de données d'une listbox vers une autre listbox

Re,

Regarde mon deuxième exemple, il fait ce que tu demandes (le tri alpha), tu devrais pouvoir l'adapter facilement.

A+, je dois aller bosser.

 

[Staple1600]

Re : Transfert de données d'une listbox vers une autre listbox

Bonsoir

A+, je dois aller bosser.

Alors bqtr, bon courage


(pas cool de travailler le dimanche)

 

[jeanpierre]

Re : Transfert de données d'une listbox vers une autre listbox

Bonsoir tous,

Oui, c'est vrai, Bon courage, mais on est dimanche soir, presque lundi matin...

La fonction ne s'arrête pas à notre calendrier, elle peut être un peu décalée....

Simplement pour signaler les posts inutiles....

 

[_Thierry]

Re : Transfert de données d'une listbox vers une autre listbox

Bonsoir Jean P., bqtr, Kotov, le Forum

Voici un fil qui me plait quand on parle de UserForm et de Contrôles LIstBox en particulier...

Pour le Fun voici une démo associative avec un autre membre du Forum :

Fil de Discussion :
=> DEMO Associative UserForm ListBox Drag-N-Drop Michel_M/@+Thierry

Démo :
USF_ListBox-Drag-N-Drop_aller_retour-V01.00.zip

Maintenant avec ta dernière question "Mettre les Items en Ordre", il me vient à l'esprit...

Fil de Discussion :
=> DEMO UserForm X-Méthodes pour incrémenter les Données en ListBox ou ComboBox

Démo :
USF_Data_In_ListBox-X-Methods.zip

Voilà tu as des bases de travail avec tout ça

Bonne Soirée

@+Thierry

EDITION
Bonsoir Jean Pierre, Staple..... Je ne vous ai pas vu...
(Le moteur de recherche est vraiment pas au top pour retrouver vite des ancien Fils d'où le temps de réponse)
PS Pas de Post inutile en édition ;-)

 

[jeanpierre]

Re : Transfert de données d'une listbox vers une autre listbox

Re à tous, et à toi Thierry,

L'inutile était ciblé sur un post avant le mien....

Merci de faire remonter ces discussions et les fichiers associés...

Vrai que c'est moins simple, aujourd'hui, sur certaines Recherches.... mais, contre mauvaise fortune, bon coeur, on fait avec...

Bonne fin de soirée.

Jean-Pierre

 

[Jean P.]

Re : Transfert de données d'une listbox vers une autre listbox

Bonjour à tous,

Je vous remercie pour votre aide.
Je vais étudier vos fichiers pour essayer de les comprendre pour être en mesure de les adapter.

Merci