Discussion :

[monfiston]

bonjour

j'ai une liste de listbox, elle comprend plus de 40 colonnes

avant je procédais de la sorte

j’exécutais une requette sql dans ma base de données Access en vba
j'écrivais le résultat dans une feuille de calcul
puis je remplissais une listbox

ça fonctionnait très bien mais il fallait presque 2 secondes pour exécuter cette macro


j'ai donc décider de tester autre chose

j'exécute une requette sql dans ma base de données Access en vba
j'écris directement le résultat dans ma listbox

il faut 0.45 secondes, excellent

sauf que je n'ai pas les entêtes de colonnes!!!

vous avez une idée?

Code :

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

1
2
3
4
5
TexteSQL_liste_feuille_atdec = "SELECT [date_création],[produit],[lignes],[ref],[lot],[description défaut],[Nbre_pièces_ATDEC],[cloture],[action ligne] ,[action qualité 1],[résultat qualité 1],[action qualité 2],[résultat qualité 2],[action qualité 3],[résultat qualité 3],[action qualité 4],[résultat qualité 4],[action qualité 5],[résultat qualité 5],[action qualité 6],[résultat qualité 6],[N°feuille_atdec],[Palette1 lot],[Palette2 lot],[Palette3 lot],[Palette4 lot],[Palette5 lot],[Palette6 lot],[Palette7 lot],[Palette8 lot],[Palette9 lot],[Palette10 lot],[Palette11 lot],[Palette12 lot],[Palette13 lot],[Palette14 lot],[Palette15 lot],[Palette16 lot],[Palette17 lot],[Palette18 lot],[Palette19 lot],[Palette20 lot]FROM [feuille atdec] WHERE [produit] IS NOT NULL and [cloture] IS NULL "
 
Set rst = cn.Execute(TexteSQL_liste_feuille_atdec)
a = rst.GetRows
Me.L_liste_feuille_atdec.Column = a    ' Il n'y a pas de problème s'il n'y a qu'une ligne

[Philippe Tulliez]

Bonjour,

sauf que je n'ai pas les entêtes de colonnes!!!
vous avez une idée?

Peut-être la réponse dans cette contribution titrée Fonction qui renvoie une table contenant résultat d'une requête SQL sur une base de données Access ?

[monfiston]

bonsoir
j'ai essayé votre méthode, mais je n'y arrive pas trop désolé

par contre je suis partie sur une autre manière

j'ai créé un tableau d'une ligne et plusieurs colonne pour les entêtes

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
    Dim NomTableau() As String
    Dim i As Integer, j As Integer
 i = 2
    'Définit la taille du tableau
    ReDim NomTableau(247)
 
    Set db = DBEngine.OpenDatabase("D:\Documents Personnel\boulot\suivi atdec\bdd feuille atdec.accdb")
 
    Set tb = db.TableDefs("feuille atdec")
 colonne = 1
 i = 0
 
    For Each fd In tb.Fields
 
        NomTableau(i) = fd.Name
     i = i + 1
       colonne = colonne + 1
    Next
 
Set tb = Nothing
Set db = Nothing
 
 
 
Me.ListBoxentete.Column = NomTableau

j'ai ensuite crée un autre tableau pour les données de la base Access

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
Set Cn = New ADODB.Connection
With Cn
 .Provider = "Microsoft.ACE.OLEDB.12.0"
 .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\bdd feuille atdec.accdb" & ";Persist Security Info=False;"
 .Open
End With
 
 
 
'TexteSQL_liste_feuille_atdec = "SELECT * FROM [feuille atdec$]  "
TexteSQL_liste_feuille_atdec = "SELECT [date_création],[produit],[lignes],[ref],[lot],[description défaut],[Nbre_pièces_ATDEC],[cloture],[action ligne] ,[action qualité 1],[résultat qualité 1],[action qualité 2],[résultat qualité 2],[action qualité 3],[résultat qualité 3],[action qualité 4],[résultat qualité 4],[action qualité 5],[résultat qualité 5],[action qualité 6],[résultat qualité 6],[N°feuille_atdec],[Palette1 lot],[Palette2 lot],[Palette3 lot],[Palette4 lot],[Palette5 lot],[Palette6 lot],[Palette7 lot],[Palette8 lot],[Palette9 lot],[Palette10 lot],[Palette11 lot],[Palette12 lot],[Palette13 lot],[Palette14 lot],[Palette15 lot],[Palette16 lot],[Palette17 lot],[Palette18 lot],[Palette19 lot],[Palette20 lot]FROM [feuille atdec] WHERE [produit] IS NOT NULL and [cloture] IS NULL "
 
Set rst = Cn.Execute(TexteSQL_liste_feuille_atdec)
a = rst.GetRows
Me.L_liste_feuille_atdec.Column = a   ' Il n'y a pas de problème s'il n'y a qu'une ligne
 
'Fermeture connexion
Cn.Close
Set Cn = Nothing

qu'elle est le moyen le plus rapide pour excel pour fusionner les 2 tableaux?

ou alors, il est peut être possible de rajouter sur mon 2° tableaux les en tête en le redimensionnant et en rajouter la 1° ligne?

[Thumb down]

Bonjour,
Le plus simple est de placer le résultat de ta requête dans un tableau Excel et d'utiliser celui ci pour ta liste!

Code :

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

1
2
3
4
for i =0 to rst.Fields.count -1
       Sheets("temp").range("A1").offset(,i)=RST.Fields(i).name
Next
Sheets("temp").range("A2").CopyFromRecordset rst

[boisgontierjacques]

Bonjour,

Cette séquence donne les noms des champs d'une table Access:

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
Sub LectureAccess()
  'Microsoft ActivexDataObject 2.8 Library dans outils/référence
  repertoire = ThisWorkbook.Path & "\"
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "Access2000.mdb"
  Set rs = cnn.Execute("SELECT * FROM Client")
  For i = 0 To rs.Fields.Count - 1
    Cells(i + 2, 1) = rs(i).Name
    Cells(i + 2, 2) = rs(i).Type
  Next i
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Pour afficher des entetes de ListBox avec des Labels:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub EnteteListBox()
  x = Me.ListBox1.Left + 8
  Y = Me.ListBox1.Top - 12
  For i = 1 To NbCol
    Set lab = Me.Controls.Add("Forms.Label.1")
    lab.Caption = Rng.Offset(-1).Cells(1, i)
    lab.Top = Y
    lab.Left = x
  Next
End Sub

Boisgontier

[monfiston]

bonjour
merci pour vos réponses
le pb de vos solutions, c'est qu'elles sont très longue en terme de temps, 2 secondes pour afficher et récupérer plus de 40 colonnes sur 300 enregistrements environs dans une listbox

je cherche surtout à gagner en rapidité, donc je ne veux pas d'une solution en passant par une feuille excel, ni en créant de multiple boucle

[Thumb down]

Je ne répondrai plus à tes postes ça m'évitera de prendre de vent!

Tu ne pourras pas afficher tes entêtes et tes 40 colonnes si tu opte pas pour ma solution qui très rapide!

[monfiston]

Désolé, si je vous ai "choqué ", mais je pensais avoir été clair dans mon 1° post

[Thumb down]

Bonjour,
Si tu relis ma proposition tu verras qu'elle est raccord avec le poste #1!

Mais si Pierre passe par là il pourra t'orienter vers Powerquerry que je ne m'etrises pas!

[monfiston]

je viens avec l'aide d'autre personne du forum à trouvé une alternative à ma question

https://www.developpez.net/forums/d2.../#post11294450

dans une base de donnée
avoir une table avec les données:[feuille atdec]
et avoir une autre table avec comme donnée, un enregistrement du nom champs de la 1° table: [champs]

on exécute cette requêtes:

Code :

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

TexteSQL_liste_feuille_atdec = "SELECT * FROM [feuille atdec]  " &  " UNION " & "SELECT * FROM [champs]  "

et on remplie une listbox

Code :

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

1
2
3
4
5
Set rst = Cn.Execute(TexteSQL_liste_feuille_atdec)
a = rst.GetRows
'ReDim Preserve a(1)
 
Me.L_liste_feuille_atdec.Column = a   ' Il n'y a pas de problème s'il n'y a qu'une ligne

les entêtes, et les données sont dans la listbox, et le tout en moins de 0.5 secondes

car si je passe par une feuille excel, ça me prend presque 2 secondes


il me reste un dernier petit pb maintenant

je souhaiterais figer les entêtes de ma listbox, mais même si je mets la valeurs "columnheads", à true, ça ne me prend pas la 1° ligne

[Philippe Tulliez]

Bonjour,

il me reste un dernier petit pb maintenant
je souhaiterais figer les entêtes de ma listbox, mais même si je mets la valeurs "columnheads", à true, ça ne me prend pas la 1° ligne

La propriété ColumnHeads ne fonctionne qu'avec la propriété RowSource

[monfiston]

Zut, et on ne peut pas utiliser la propriété rowsource avec une requête SQL

[Pierre Fauconnier]

Salut

[...]
Mais si Pierre passe par là il pourra t'orienter vers Powerquerry que je ne m'etrises pas!

Je viens de passer par là

Pour limiter le code VBA au strict minimum, je récupérerais les données Access par liaison, soit par PowerQuery soit via les assistants hérités pour la liaison à des données, et j'appuierais ma listbox sur le tableau structuré créé lors de la récupération des données. La récupération étant effectuée par liaison, on rafraichit la liaison avant d'alimenter la listbox et/ou d'afficher le userform. Zéro boucle et c'est instantané (testé sur une table de 1000 lignes de 40 champs). Tu peux alors donner à la propriété RowSource de ta listbox le nom du tableau structuré récupéré (ici, j'ai utilisé Tableau_Listbox.accdb mais tu peux bien sûr renommer le tableau. Tu pourras ainsi mettre la propriété ColumnHeads à True





Comme tu le vois, le code est minimaliste et évite le hardcoding, les problèmes de connexion (attention que les drivers ne sont pas les mêmes pour un mdb que pour un accdb), la requête SQL en dur dans ton code, ...

Code :

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

1
2
3
4
Sub Test()
  Range("Tableau_Listbox.accdb").ListObject.QueryTable.Refresh
  UserForm1.Show
End Sub

Pour ce qui est de la liaison aux données, en ce compris les entêtes (Attention: le ruban se présente un peu différemment en XL2013, il faut aller dans l'onglet Données et chercher "à partir d'Access" ou quelque chose comme ça sur la gauche de l'onglet):

[Transitoire]

Bonjour a tous, aujourd'hui, je pense que je vais me faire allumer. Mais, lorsque je vois cette super et superbe série d'interventions, certes pas inutile, pour gagner 1,50 secondes.... Je m'interroge.
N'est-ce pas une manière de se compliquer la vie en essayant de la simplifier? Enfin cette intervention n'est que le fruit pragmatique de ma pensée stérile
Cordialement