Discussion :

[bseb67]

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 :

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
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 :

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

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

par

Code :

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

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

Et ensuite changer

Code :

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

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.

[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.

[Thumb down]

Bonjour,
dans le doute!

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
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

[bseb67]

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 :


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.

[Thumb down]

Bonjour,
Le code que je t'es fournir fait le travail sur 2 colonnes.
SELECT NumeroAffaire, NomAffaire

[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

[Thumb down]

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 :

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

.ColumnWidths = "0;10"

Rien ne t'interdis de tester l

Code :

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

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

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 :

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
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 :

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

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

[bseb67]

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 :

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
' 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 :

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

ListeNouveauThemeBatAffaire.Value

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

[Thumb down]

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

Code :

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

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

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

Code :

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

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 :

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

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

[bseb67]

Re,

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

Code :

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

ListeNouveauThemeBatAffaire.List(ListeNouveauThemeBatAffaire.ListIndex, 0)

pour récupérer l'id

Code :

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

ListeNouveauThemeBatAffaire.List(ListeNouveauThemeBatAffaire.ListIndex, 1)

pour récupérer le texte

Merci encore pour l'aide .

Je vais pouvoir avancer sur mon excel.

[Pierrelec]

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 :

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
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