Combobox insérer données depuis access

Version imprimable

Bonjour à tous,

Je suis nouveau sur le forum.

J'ai commencé un sujet de développement en vba sous excel (2019 et 2021) avec en lien vers une base Access.
Je ne suis pas une pointe sur vba et excel.

J'ai mis des combobox sur mon excel que je remplis en cherchant des données dans ma base Access.
Et puis je suis tombé sur le fait que l'on pouvait injecter dans une combobox des lignes avec deux entrées.

Car pour l'instant, je n'insère que des textes, et je dois reprendre ce texte pour rechercher l'id correspondante dans mes tables... soit une grosse perte de temps.

Ma première combobox je la rempli ainsi:
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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 Sub RemplirListeNouveauThemeBatimentAffaire() On Error Resume Next Dim rEnr As Recordset Dim dBase As Database ' On vide la liste déroulante Sheets(sONGLET_GESTION).ListeNouveauThemeBatAffaire.Clear Sheets(sONGLET_GESTION).ListeNouveauThemeBatAffaire.Value = "" ' On se connecte à la base avec le mot de passe Set dBase = DBEngine.OpenDatabase(sVAR_CHEMINBD, False, True, sVAR_CONNECT) ' On lance une requete Set rEnr = dBase.OpenRecordset("SELECT NumeroNomAffaire from TB_AFFAIRE ORDER BY NumeroAffaire ASC", dbOpenDynaset) Sheets(sONGLET_GESTION).ListeNouveauThemeBatAffaire.AddItem sSELECTION_AFFAIRE ' On déplace le pointeur de lecture sur le premier élément rEnr.MoveFirst ' On boucle tant que le pointeur lit quelque chose Do Sheets(sONGLET_GESTION).ListeNouveauThemeBatAffaire.AddItem (rEnr.Fields("NumeroNomAffaire").Value) ' On passe au suivant rEnr.MoveNext Loop Until rEnr.EOF = True ' On ferme rEnr.Close ' On clos la base dBase.Close ' On vide le pointeur Set rEnr = Nothing Set dBase = Nothing Sheets(sONGLET_GESTION).ListeNouveauThemeBatAffaire.ListIndex = 0 End Sub
Et je voudrai donc remplacer

Code:

Set rEnr = dBase.OpenRecordset("SELECT NumeroNomAffaire from TB_AFFAIRE ORDER BY NumeroAffaire ASC", dbOpenDynaset)

par

Code:

Set rEnr = dBase.OpenRecordset("SELECT id NumeroNomAffaire from TB_AFFAIRE ORDER BY NumeroAffaire ASC", dbOpenDynaset)

Et ensuite changer

Code:

Sheets(sONGLET_GESTION).ListeNouveauThemeBatAffaire.AddItem (rEnr.Fields("NumeroNomAffaire").Value)

Par une version ou j'insère l'id et NumeroNomAffaire

J'ai vu qu'après je dois jouer avec la largeur des colonnes, pour masquer l'id.

D'avance merci.

22/08/2023, 17h33
Philippe Tulliez

Bonjour,
Quelle est la finalité de votre projet car d'après vos explications, je ne comprends pas la raison de passer par un ComboBox.
Si vous souhaitez, insérer des données dans une feuille d'excel depuis Access, il est plus simple de passer par Power Query en invoquant une table ou une requête d'access ou utiliser directement une requête en VBA Excel dans un module.

Bonjour,
dans le doute!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub RemplirListeNouveauThemeBatimentAffaire()
Const fichier = "C:\Myrep\ACCESS\AccessTest.accdb"
Dim Cn, Sql As String: Cn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";"
 
Sql = "SELECT NumeroAffaire, NomAffaire FROM TB_AFFAIRE ORDER BY NumeroAffaire ASC;"
Dim RS As Object
Set RS = CreateObject("ADODB.Recordset")
RS.Open Sql, Cn, 1, 3
   With Sheets("sONGLET_GESTION").ListeNouveauThemeBatAffaire
        .Clear
        .ColumnCount = 2
        .BoundColumn = 1
        .ColumnWidths = "0;10"
        .Column = RS.getRows
    End With
RS.close
 
End Sub

23/08/2023, 08h54
bseb67

1 pièce(s) jointe(s)

Bonjour,

Comme dit au début, je ne suis pas une pointe sur excel/vba.
J'ai passé 10 ans sur autocad et en LISP, et maintenant 10 ans sur Revit avec un peu de C# et pas mal sous Dynamo.

J'ai un enchainement de combobox à faire :
Pièce jointe 642942

Je choisis l'affaire, puis en fonction de l'affaire choisie, je dois remplir la liste bâtiment, qui lorsque j'ai choisi le bâtiment, dois me remplir la liste thème.

Pour l'instant, je récupère le texte actif dans la liste affaire pour chercher dans la table concernée l'id de l'affaire,
Et cet id me permet de chercher l'id du bâtiment en le combinant avec le texte actif dans la liste bâtiment.

Je ne connais pas Power Query.
23/08/2023, 09h38
Thumb down

Bonjour,
Le code que je t'es fournir fait le travail sur 2 colonnes.
SELECT NumeroAffaire, NomAffaire
23/08/2023, 09h53
bseb67

Bonjour Thumb down,

Merci.

Mais comment gérer le cas où il n'y a pas de résultat pour la requête ?
Et comment faire pour ajouter une première ligne avec (-1, "Sélectionnez ...") comme donnée ?
En simulant un id à -1

Déjà tu confonds ListIndex égal -1 et id de la table qui ce trouve dans la première colonne que j'ai taillé a zéro et l'autre à 10

Code:

.ColumnWidths = "0;10"

Rien ne t'interdis de tester l

Code:

if Sheets("sONGLET_GESTION").ListeNouveauThemeBatAffaire.ListIndex>-1 then

Citation:

Et comment faire pour ajouter une première ligne avec (-1, "Sélectionnez ...") comme donnée ?

Tu te complique la vie,si un utilisateur ne sait pas que vide veut dire sélectionnez alors abrégés sa période d'essai 😭

Rien ne t'interdis de fournir une documentation.

Sur ton imprim écran je comprends tout de suite qu'il faut sélectionner un bâtiment sans qu'il soit précisé que je dois le faire 😰

Edite:

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
26
27
28
29
30
31
32
33
34
35
Sub RemplirListeNouveauThemeBatimentAffaire()
' On vide la liste déroulante
 With Sheets("sONGLET_GESTION").ListeNouveauThemeBatAffaire
         .Clear
         .ColumnWidths = "0;10"
'        .Column = OpenRecordSet("SELECT NumeroAffaire, NomAffaire FROM TB_AFFAIRE where NomAffaire=?  ORDER BY NumeroAffaire ASC;", "NomAffaire", 6)
        .Column = OpenRecordSet("SELECT NumeroAffaire, NomAffaire FROM TB_AFFAIRE  ORDER BY NumeroAffaire ASC;")
        .ColumnCount = UBound(.List, 1)
        .BoundColumn = UBound(.List, 1)
        .AddItem , 0
       .List(0, 1) = "Sélectionnez une Affaire!"
        .ListIndex = 0
    End With
End Sub
Function OpenRecordSet(Sql As String, ParamArray Param() As Variant) As Variant()
OpenRecordSet = Array("", "")
Const fichier = "C:\Myrep\ACCESS\AccessTest.accdb"
Dim Cng, prm As Object: Cn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";"
With CreateObject("ADODB.Command")
    .ActiveConnection = Cn
    .CommandType = 1
    .CommandTimeout = 500
    For i = LBound(Param) To UBound(Param) Step 2
   Set prm = CreateObject("ADODB.Parameter")
   prm.Name = Param(i): prm.Value = Param(i + 1): prm.Type = 12
    .Parameters.Append prm
    Next
    .CommandText = Sql
    With .Execute
        If Not .EOF Then OpenRecordSet = .GetRows
        .Close
    End With
End With
 
End Function

Code:

1
2
3
4
5
Private Sub ListeNouveauThemeBatAffaire_Change()
If ListeNouveauThemeBatAffaire.ListIndex > 0 Then
Debug.Print ListeNouveauThemeBatAffaire.List(ListeNouveauThemeBatAffaire.ListIndex), ListeNouveauThemeBatAffaire.Text
End If
End Sub

Le "-1" c'est pour l'associer le texte de la variable sSELECTION_AFFAIRE
Et pour les autres lignes, j'ai l'id de la table + le texte.

Avec tes exemples Thumb down : J'ai enfin compris comment faire :)
Merci encore.

J'ai fait ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 ' On boucle tant que le pointeur lit quelque chose Do With Sheets("SBS").ListeNouveauThemeBatAffaire .AddItem , 0 .List(0, 0) = (rEnr.Fields("id").Value) .List(0, 1) = (rEnr.Fields("NumeroNomAffaire").Value) End With ' On passe au suivant rEnr.MoveNext Loop Until rEnr.EOF = True With Sheets("SBS").ListeNouveauThemeBatAffaire .AddItem , 0 .List(0, 0) = -1 .List(0, 1) = sSELECTION_AFFAIRE End With
J'ai gardé le reste du code, et juste mis un ORDER BY NumeroNomAffaire DESC

ce qui fait que j'ajoute en première position la nouvelle entrée ligne par ligne et à la fin le texte de sélection.

Par contre, maintenant, quand je fais

Code:

ListeNouveauThemeBatAffaire.Value

je récupère le premier élément, soit l'id.
Comment récupérer aussi le deuxième, donc le texte ?

Je t'invites a utiliser GetRow pour charger ta combobox.

Code:

1
2
3
4
5
6
7
8
9
10
With Sheets("sONGLET_GESTION").ListeNouveauThemeBatAffaire
         .Clear
         .ColumnWidths = "0;10"
        If not  rEnr.eof then .Column = rEnr.GetRows
        .ColumnCount = UBound(.List, 1)
        .BoundColumn = UBound(.List, 1)
        .AddItem , 0
       .List(0, 1) = "Sélectionnez une Affaire!"
        .ListIndex = 0
   End With

Citation:

je récupère le premier élément, soit l'id.
Comment récupérer aussi le deuxième, donc le texte ?

Code:

1
2
3
4
5
Private Sub ListeNouveauThemeBatAffaire_Change()
If ListeNouveauThemeBatAffaire.ListIndex > 0 Then
Debug.Print ListeNouveauThemeBatAffaire.List(ListeNouveauThemeBatAffaire.ListIndex), ListeNouveauThemeBatAffaire.Text
End If
End Sub

Code:

1
2
3
with ListeNouveauThemeBatAffaire
 Msgbox "L1C0 " & .List(1,0) & " L1C1 " & .List(1,1)
End With

23/08/2023, 16h32
bseb67

Re,

en fouillant j'ai justement vu qu'il fallait que j'utilise

Code:

ListeNouveauThemeBatAffaire.List(ListeNouveauThemeBatAffaire.ListIndex, 0)

pour récupérer l'id

Code:

ListeNouveauThemeBatAffaire.List(ListeNouveauThemeBatAffaire.ListIndex, 1)

pour récupérer le texte

Merci encore pour l'aide :bravo:.

Je vais pouvoir avancer sur mon excel.

je suis un peu dans la meme situation

Bonjour

Je suis dans la meme situation que notre ami, mais moi si j'ai résolu le pbs des combobox peut etre pas de la meilleure des façons, mais ça marche par contre j'ai un autre pbs

Je ne sais pas si je suis sur le bon forum, donc n'hésitez pas a me reprendre. Mon problème: j'ai un fichier access de 12 colonnes et 80 lignes, j'ai fais une form visual studio en vb.net a laquelle j'ai associé ma base de donnée en mdb pour eviter les pbs de ole12 etc...
jusqu'a la tout va bien, j'affiche une datagridview dans laquelle je voudrais récupéré des datas en fct de 2 combobox... et la ça coince car la seule valeur que je récupère,c'est celle de la première ligne, la colonne est bonne mais pas la ligne ... je mets mon code pour vous donner une idée.

merci pour votre aide

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
Public Class Form1
    Dim OD_inches As String
    Dim weight As String
    Dim sql As String
    Dim vol_int As String
    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'CsgDataSet1.Csg_datas'. Vous pouvez la déplacer ou la supprimer selon les besoins.
        Me.Csg_datasTableAdapter.Fill(Me.CsgDataSet1.Csg_datas)
 
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        If ComboBox1.Text = "4 1/2" Then
            ComboBox2.Items.AddRange(New Object() {"9.5", "10.5", "11.6", "13.5", "15.1", "16.9", "17.7", "18.8"})
        End If
 
        If ComboBox1.Text = "5" Then
            ComboBox2.Items.AddRange(New Object() {"11.5", "13", "15", "18", "10.8"})
        End If
 
        If ComboBox1.Text = "5 1/2" Then
            ComboBox2.Items.AddRange(New Object() {"14", "15.5", "17", "20", "23"})
        End If
 
        If ComboBox1.Text = "6 5/8" Then
            ComboBox2.Items.AddRange(New Object() {"20", "24", "28", "32"})
        End If
 
        If ComboBox1.Text = "7" Then
            ComboBox2.Items.AddRange(New Object() {"17", "20", "23", "26", "29", "32", "35", "38", "41", "44"})
        End If
 
        If ComboBox1.Text = "7 5/8" Then
            ComboBox2.Items.AddRange(New Object() {"24", "26.4", "29.7", "33.7", "39", "55.3"})
        End If
 
        If ComboBox1.Text = "8 5/8" Then
            ComboBox2.Items.AddRange(New Object() {"24", "28", "32", "36", "40", "44", "49"})
        End If
 
        If ComboBox1.Text = "9 5/8" Then
            ComboBox2.Items.AddRange(New Object() {"32.3", "36", "40", "43.5", "47", "53.5", "58.4", "61.1", "71.8"})
        End If
 
        If ComboBox1.Text = "10 3/4" Then
            ComboBox2.Items.AddRange(New Object() {"32.75", "40.5", "45.5", "51", "55.5", "60.7", "65.7"})
        End If
 
        If ComboBox1.Text = "11 3/4" Then
            ComboBox2.Items.AddRange(New Object() {"42", "47", "54", "60"})
        End If
 
        If ComboBox1.Text = "13 3/8" Then
            ComboBox2.Items.AddRange(New Object() {"48", "54.5", "61", "68", "72"})
        End If
 
        If ComboBox1.Text = "16" Then
            ComboBox2.Items.AddRange(New Object() {"65", "75", "84"})
        End If
 
        If ComboBox1.Text = "18 5/8" Then
            ComboBox2.Items.AddRange(New Object() {"87.5"})
        End If
 
        If ComboBox1.Text = "20" Then
            ComboBox2.Items.AddRange(New Object() {"94", "106.5", "133"})
        End If
 
        If ComboBox1.Text = "24" Then
            ComboBox2.Items.AddRange(New Object() {"87,5"})
        End If
 
 
 
    End Sub
 
 
 
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
 
        TextBox1.Text = ComboBox1.Text
        TextBox2.Text = ComboBox2.Text
        OD_inches = TextBox1.Text
        weight = TextBox2.Text
 
 
        sql = "SELECT vol_int FROM Csg_datas WHERE OD_inches =  '" & OD_inches & "'   and weight =  " & weight & ""
 
        vol_int = DataGridView1.Rows(vol_int).Cells(10).Value.ToString
 
        TextBox3.Text = vol_int
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Application.Exit()
 
    End Sub
End Class