Bonjour,
Tout d'abord, tu dois prévoir une sheet qui va contenir le résultat de
ta query. Ensuite tu dois faire "pointer" ta combo vers les cellules
alimentées par ta query de cette sheet .
Je te livre mon code "brut" ci dessous.
Eric Schmitz
Set sh = Sheets("RefCodes")
lNbCodes = LoadRefCode(sh, 23, "90", aCodeALCS)
lNbCodeALCS = lNbCodes
ActiveSheet.Shapes("Drop Down 46").Select
With Selection
.ListFillRange = "RefCodes!$X$3:$X$" & Trim(CStr(lNbCodes + 2))
.LinkedCell = "$R$30"
.DropDownLines = 8
.Display3DShading = True
End With
Function LoadRefCode(sh As Excel.Worksheet, lCol As Long, sSubClass As
String, aCode() As tCode) As Long
Dim i As Integer
Dim nb As Long
Dim rs As New ADODB.Recordset
Dim sSql As String
sSql = "Select Code, Name "
sSql = sSql & " from vRefData "
sSql = sSql & " where subclass = " & sSubClass
sSql = sSql & " order by Name "
rs.ActiveConnection = conn
rs.Open sSql, , adOpenForwardOnly, adLockReadOnly
If Not rs.EOF Then
rs.MoveFirst
i = 0
While Not rs.EOF
aCode(i).Code = Trim(rs("Code").Value)
aCode(i).Name = Trim(rs("Name").Value)
sh.Cells(i + 2, lCol) = aCode(i).Code
sh.Cells(i + 2, lCol + 1) = aCode(i).Name
rs.MoveNext
i = i + 1
Wend
nb = i - 1
Else
nb = 0
End If
LoadRefCode = nb
rs.Close
Set rs = Nothing
End Function
Eric Bolly wrote:
Est-ce qu'un champion VBA pour m'aider ?
Je dois récupérer dans une liste (combo) Excel le résultat d'une requête
Access, et je patauge, mais alors....
----------------------------------------------
Eric BOLLY
Responsable Informatique et Télécommunications
SPANOGROUP - SPANOLUX S.A.
ZI de BURTONVILLE
B-6690 VIELSALM
www.spanolux.be
[EMAIL PROTECTED]
Tel: 080/292.737
Fax: 080/292.725
GSM: 0495/21.98.93
----------------------------------------------
--
New CyberCafe address: http://cybercafe.exmachina.tv
Cette liste vous est offerte par Emakina <http://www.emakina.com/>
Emakina: technologie et creativite au service de vos projets Web.
Desabonnement par email : <mailto:[EMAIL PROTECTED]>
