Discussion :

[AirDuster]

Bonjour à tous,

J'ai effectué une requête SQL qui me retourne un recordset dans une feuille et j'affiche les X lignes avec 8 colonnes.

Afin d'améliorer l'utilisation de ce tableau, j'aimerais avoir la possibilité de le filtrer la requête en fonction d'une colonne.



J'imaginais un UserForm qui viendrait extraire uniquement le champ que je veux filtrer (dans mon cas une récurrence) et qui permettrais au final d’effectuer la requête SQL réduite.
Dans ce style :



Je sèche un peu, j'aimerais donc avec des avis sur la façon de me lancer de cette fonctionnalité.
C'est la première fois que je poste sur un forum, je suis d'habitude spectateur des discussions alors, je reste bien évidemment à votre disposition pour vous donner un maximum d'informations.

Merci d'avance.

[Pierre Fauconnier]

Salut.

Nous avons besoin de la structure de la base de données pour pouvoir t'aiguiller vers une solution, car il est impossible de déterminer comment cette récurrence a été modélisée dans la base...

[AirDuster]

Bonjour,

Merci d'avoir pris du temps pour me répondre.

Donc, pour commencer, c'est un fichier Excel avec du VBA, j'ai fait une connexion avec un ADODB à ma base de donnée. Ce qui me permet de faire des requêtes SQL et de récupérer le résultat à l'aide de recordset.

Voici la partie FROM de ma requête, j'ai uniquement besoin de travailler sur ces tables ci-dessous.

Code SQL :

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

1
2
3
4
5
6
7
8
article 
LEFT JOIN gamcon ON ((article.idart=gamcon.idart)) 
LEFT JOIN gamcar ON ((gamcon.idqua=gamcar.idqua)) 
LEFT JOIN unigen ON ((gamcar.iduni=unigen.iduni))
LEFT JOIN fregam ON ((gamcar.idfre=fregen.idfre)) 
LEFT JOIN resgen ON ((gamcar.idres=resgen.idres)) 
LEFT JOIN famille ON ((gamcar.idfamille=fammes.idfamille)) 
LEFT JOIN cargen ON ((gamcar.idcar=cargen.idcar))

J'aimerais filtrer sur un champ fréquence dans la table fregam.


J'avais pensé faire une première requête pour récupérer toutes les fréquences suivant certains filtres, afin d'ajouter des cases à cocher pour que l'utilisateur vienne choisir ses propres filtres.

Cette solution me semble quand même assez farfelu et je suppose qu'il y a probablement d'autres solutions moins complexe ?

Merci d'avance.

[Pierre Fauconnier]

Je ne vois pas trop comment tu pourrais faire autrement qu'une première requête pour récupérer les fréquences, puis une deuxième incluant les fréquences choisies. J'émets plus de réserves sur le fait de choisir les fréquences par cases à cocher car cela va t'obliger à devoir ajouter dynamiquement des contrôles. Perso, je m'orienterais plus vite vers une listbox multi-sélection.

[AirDuster]

Je n'avais pas pensé à cette option, comme quoi...
Je pense que ça va effectivement simplifier ma démarche, merci.
Je vais développer ça début de semaine prochaine, je reviendrais ici pour donner des nouvelles !

Merci.

[AirDuster]

Bonjour,

J'ai un peu avancé sur le sujet et votre solution est effectivement beaucoup plus adapté à mon besoin, j'ai maintenant une nouvelle interrogation.

J'affichais jusque-là, le résultat de mes requêtes à l'intérieur de cellules à l'aide d'un CopyFromRecordset:

Code :

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

Worksheets("MENU").Range("C20").CopyFromRecordset rst

J'aimerais donc savoir comment afficher/boucler le résultat de cette requête dans une listbox/msgbox ?

Merci d'avance.

[Pierre Fauconnier]

Un adodb.Recordset expose la propriété GetRows qui renvoie un array (tableau VBA). Ce tableau est "inversé" ou transposé, c'est-à-dire que les lignes représentent les champs et les colonnes représentent les enregistrements.

Les ListBox et combobox permettent d'être alimentés par des arrays:

• ComboBox.List permet de recevoir un array bien formé (colonnes = champs et lignes = enregistrements)
• ComboBox.Column permet de recevoir un array transposé, tel que le renvoie GetRows.

Du coup, voici un code qui peut fonctionner

Code :

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

1
2
3
4
5
6
7
  Dim rs As ADODB.Recordset
 
  set rs = ...
  With UserForm1
    .ComboBox1.Column = rs.getRows
    .Show
  End With

Idéalement, une bonne architecture de code décomposerait la manoeuvre en une fonction qui renvoie l'array, qui est alors utilisé pour alimenter le combobox ou le listbox.

[Pierre Fauconnier]

J'ai écrit 4 billets pour expliquer comment modéliser les interactions avec Access. Voici le lien de la discussion liée à ces billets, qui contient les liens vers le blog. En espérant que cela puisse t'aider.

[AirDuster]

J'ai terminé cette partie de mon code grâce à ton aide. Celle-ci m'a été très précieuse et très appréciée.
Je passe le sujet en résolu, merci beaucoup pour ton temps !