[VBA]Transfert d'une zone de liste à une autre
Bonjour,
J'ai deux zones de liste basées sur des requêtes. L'une (Liste1) récupére simplement le nom des activités situé dans une table, donc c'est juste un SELECT nom from table;
L'autre (Liste2) affiche les activités de l'enregistrement x, y, z ... en cours.
Je voudrais donc avec un bouton, pouvoir ajouter des activités de la Liste1 vers la Liste2, pour que mon enregistrement ait de nouvelles activités, ce qui reviendrait en fait à faire des insertions de données dans la table de mon enregistrement.
Petit problème, il me semble que ceci est faisable seulement si les listes sont basés sur des listes de valeur, et non des tables/requêtes. En tout cas, j'ai essayé avec ceci et ça ne marche pas (au moment où j'ai testé ce code j'avais deux valeurs à transférer d'une liste à l'autre, mais peu importe que ce soit 1 ou 2 valeurs maintenant) :
Code:
1
2
3
4
5
6
7
| Dim varItem As Variant
Dim ListItem As New Collection
For Each varItem In Liste1.ItemsSelected
Liste2.AddItem Liste1.Column(0, varItem) + ";" + Liste1.Column(1, varItem)
ListItem.Add varItem
Next varItem |
Ducoup je trouve aucun code sur le bouton pour pouvoir faire ceci.
Merci de votre aide :)
