Bonjour,

J'ai un problème qui est le suivant:

Dans une zone de liste j'ai une série de nom. Je peux en selectionner plusieurs à la fois. J'aimerais en cliquant sur un bouton que les noms que j'ai selectionné s'affichent dans une table.

Voici le début de mon code, mais il ne marche pas :

Avec : CmdCreer --> Un bouton
ListePresta --> Le nom de la zone de liste
Presta --> Le nom de la table où je veux mettre les noms de la liste box selectionnés.
Code --> Le champs de ma table où doivent être mis les nom
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub CmdCreer_Click()
 
For Each a In ListePresta.ItemsSelected
   codepresta = ListePresta.ItemData(a)
   DoCmd.RunSQL "Insert into Presta(code)select""codepresta"""
 
Next
 
End Sub
Merci de votre aide