Discussion :

[ptitsoleil87]

Bonjour à tous,
j'aimerai en fait dans une cellule excel mettre une liste déroulante contenant des données d'une table de ma bd access.
Mais je ne sais déjà si c'est possible, et si oui, comment faire.
Pouvez vous m'aider? D'avance, merci à tous.[/quote]

[leroissejp]

Bonjour,
Si c'est une Liste déroulante intrduite avec Données / Liste, celà n'est pas possible.

jpleroisse

[leroissejp]

Re,
J'ai répondu un peu vite, si les données d'un champ de ta Base de Données sont importées dans une colonne, alors là c'est possible.

jpleroisse

[SfJ5Rpw8]

tiens voila un peu de code à 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
22
23
24
25
Sub MajListe()
Dim wrkJet As Workspace
Dim dbsStat As Database
Dim req As DAO.Recordset
Dim cb As ComboBox
Const stFBD = "d:\Mabase.mdb" 'Fichier base de données
Set cb = Worksheets("Feuil2").OLEObjects("ComboBox1").Object
cb.Clear
 
Const MaReq = "SELECT Lib FROM MATable" ' Requête à adapter selon base de donnee
' Crée un objet Workspace Microsoft Jet.
  Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
   ' Ouvre un objet Database de la base de données
 Set dbsStat = wrkJet.OpenDatabase(stFBD, False)
 
Set req = dbsStat.OpenRecordset(MaReq)
While Not req.EOF
    cb.AddItem req!Lib ' A Adapter ...
    req.MoveNext
Wend
 dbsStat.Close
 Set req = Nothing
 Set dbsStat = Nothing
 Set wrh = Nothing
End Sub

Const stFBD = "d:\Mabase.mdb" 'Fichier base de données => defini la base de données access utilisée

Set cb = Worksheets("Feuil2").OLEObjects("ComboBox1").Object ==> ComboBox .. à remplir

Const MaReq = "SELECT Lib FROM MATable" ' Requête à adapter selon => requête SQL , à appliquer...


cb.AddItem req!Lib ' A Adapter ... => champ à rajouter dans combo

[leroissejp]

Bonjour,
Si ta combobox a été placée avec la barre d'outils commandes.
Perso j'utilise cette méthode.

Dans Références, tu coches Microsoft DAO 3.51 Object Library et
Microsoft ActiveX Data Objects 2.0 Library.

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
 
Sub ImporterDonnées()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String
ConnectionString = "Provider = Microsoft.Jet.OLEDB.3.51;" & " Data Source = C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"
adoConnection.Open ConnectionString
adoRecordSet.Open "Publishers", adoConnection
 
Do Until adoRecordSet.EOF
 
Worksheets("Feuil1").ComboBox1.AddItem adoRecordSet!Name  
Worksheets("Feuil1").ComboBox1.ListIndex = 0
 
adoRecordSet.MoveNext
Loop
 
adoRecordSet.Close
adoConnection.Close

jpleroisse

[ptitsoleil87]

Merci beaucoup à tous.
Seulement, je crois que je me suis mal exprimé, désolé.
En fait, dans excel, on a possibilité de mettre une liste de choix, par l'intermédiaire de ce chemin "Données", "Validation", puis dans les options "Autoriser", si on selectionne liste, alors ca crée une liste déroulante dans une cellule. Seulement on nous demande la source. Et ma source, en l'occurence, j'aimerai que ca soit un champ de ma base de données. Mais je ne sais pas comment le faire.
D'avance, merci pour votre patience et votre aide!

[leroissejp]

Bonjour,
Je pense t'avoir donné la réponse , tu dois importer le champ de ta BD dans une colonne et ensuite placer cette colonne en paramètres à la liste déroulante.

jpleroisse

[leroissejp]

Re,
Pour compléter ma réponse, il n'est pas intéressant d'utiliser une liste déroulante crée avec données/Validation etc..., car tu as les donnée obligatoirement sur ta feuille. Utilise plutôt une liste déroulante placée avec la barre d'outils Commandes et le code que je t'ai mis plus haut.

jpleroisse