liste excel avec un champ access

Version imprimable

19/03/2019, 14h38
Excalius

liste excel avec un champ access

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
19/03/2019, 15h41
mercatog

Bonjour

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

Citation:

Envoyé par mercatog

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:

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

Bonjour

Change ta Sub en Function

Code:

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:

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

20/03/2019, 13h51
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 ?
20/03/2019, 14h56
mercatog

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

"SELECT DISTINCT...."
20/03/2019, 15h33
Excalius

merci ça fonctionne parfaitement