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 : Sélectionner tout - Visualiser dans une fenêtre à part
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