[Débutant] VBA Excel : Liste déroulante

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]

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

jpleroisse

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

tiens voila un peu de code à adapter :

Code:

---

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



:roll: :wink:

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:

---

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

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!

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

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