Discussion :

[Excalius]

Bonjour le forum,

J'ai besoin de votre aide, pour un projet j'ai besoin de créer des listes déroulantes dans excel, les valeurs utilisées sont présente dans un champ sous Access sauf que je ne sais pas comment lier les deux voir même si c'est possible, Merci de vos réponse.

Cordialement,

Excalius

[mercatog]

Bonjour

Est ce que tu sais importer manuellement des données à partir d'Access vers Excel?

[Excalius]

Bonjour

Est ce que tu sais importer manuellement des données à partir d'Access vers Excel?

Bonjour Mercatog,

Merci de m'aider, oui j'ai utilisé ce code pour sélectionner la plage de donnée access à rentrer dans ma liste. Ensuite je dois insérer cette sélection dans ma listeBox.

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
Public Sub chercherColonneTable(NomTable, Colonne, Direction, Result(), Optional FDir As Boolean = True)
 
    connexionBDD
 
    Dim rst As New ADODB.Recordset
    rst.Open "SELECT [" & Colonne & "] FROM [" & NomTable & "]" & IIf(FDir, " ORDER BY [" & Colonne & "] " & Direction, ""), conn, adOpenKeyset, adLockReadOnly
    If rst.RecordCount = 0 Then
        ReDim Result(0)
        Result(0) = "EMPTY"
        GoTo FinFonction
    Else
        ReDim Result(0 To rst.RecordCount - 1)
        rst.MoveFirst
        For i = 0 To rst.RecordCount - 1
            Result(i) = IIf(IsNull(rst.Fields(0).Value), "", rst.Fields(1).Value)
            rst.MoveNext
        Next
    End If
FinFonction:
    rst.Close
 
End Sub

Cordialement,

Excalius

[mercatog]

Bonjour

Change ta Sub en Function

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
Function RetrieveData(NomTable, Colonne, Direction, Result(), Optional FDir As Boolean = True)
Dim Rst As New ADODB.Recordset
Dim i As Long
 
connexionBDD
 
Rst.Open "SELECT [" & Colonne & "] FROM [" & NomTable & "]" & IIf(FDir, " ORDER BY [" & Colonne & "] " & Direction, ""), conn, adOpenKeyset, adLockReadOnly
If Rst.RecordCount = 0 Then
    ReDim Result(0)
    Result(0) = "EMPTY"
Else
    ReDim Result(0 To Rst.RecordCount - 1)
    Rst.MoveFirst
    For i = 0 To Rst.RecordCount - 1
        Result(i) = IIf(IsNull(Rst.Fields(0).Value), "", Rst.Fields(1).Value)
        Rst.MoveNext
    Next
End If
Rst.Close
RetrieveData = Result
End Function

Si ta listebox est sur un userform

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
 
Me.ListBox1.List = TaFonction RetrieveData
End Sub

[Excalius]

OK merci bcp, ça marche nikel mais je ne vais pas utiliser de userform donc je sais spas si le principe reste le même. et ensuite comment dois-je faire pour supprimer les doublons ?

[mercatog]

Est ce que tu ne peux pas gérer les doublons dans ta sql

"SELECT DISTINCT...."