Discussion :

[Daniel-Gérald]

Bonjour, j’aimerais transférer les choix de ma liste déroulante dans une table et dans des champs différents.
Ma liste déroulante à choix multiple insère les données dans un seul champ (vert ; jaune ; bleu).
J’ai essayé une requête d’analyse croisée, mais ça ne fonctionne pas.

Voir ci-dessous le résultat désirer.



Merci

[hyperion13]

Salut
A tester et à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CopierDansTable_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim itm As Variant
 
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("tblCouleurs")
 
If MaListbox.ItemsSelected.Count > 0 Then
    For Each itm In MaListbox.ItemsSelected
        rst.AddNew
        rst!Couleur = MaListbox.ItemData(itm)
        rst.Update
    Next
End If
 
rst.Close
Set rst = Nothing
dbs.Close
Set dbs = Nothing
End Sub