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) :
Ducoup je trouve aucun code sur le bouton pour pouvoir faire ceci.
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
Merci de votre aide![]()
Partager