Simuler une listbox avec des couleurs

Bonjour à Tous,

Je viens vous faire profiter d’un petit bout de code que je viens de créer pour une appli en cours.

Objectif :
Dans un service qualité, ils font des saisies par défaut, hors ces défauts ont chacun une couleur (cette couleur est reprise dans des graphiques). Stocker la valeur d’une couleur (de type long) dans une table n’est pas compliqué.
Il fallait donc créer un formulaire pour créer, modifier ou supprimer des défauts, et sélectionner la couleur.

Problème :

Les listes fournies avec Access ne permettent pas de gérer des couleurs, interdiction d’utiliser le MsFlexGrid.
On peut dire je vais passer par un formulaire avec la mise en forme conditionnelle, hors celle-ci ne permet que trois conditions, donc ce n’est pas possible.


Solution :

La solution que vous trouverez dans l’exemple ci-joint reprend le principe suivant :

1 – J’ai une table avec mes défauts (tbl_Defaut)
2 – A partir de cette table je remplis un formulaire en mode «*Formulaire Unique*», je mets mes enregistrements les uns en dessous des autres. Le remplissage se fait par programmation, en fait on crée des contrôles en fonction de ce qu’il y’a dans la table (le code se trouve dans le module «*mod_ListBox*».
3 – Ce formulaire est mis comme sous-formulaire d’un autre, de tel manière qu’il apparaît comme une listebox.

Exemple*:

Vous trouverez dans le fichier ci-joint un exemple. Au lancement du fichier (format Access 2000), vous aurez un formulaire, vous pourrez tester. (les noms sont bien sûr bidon).
Bien sûr vous pouvez étendre et avoir la ligne entière de couleurs.

Inconvénient de cette méthode.

Le nombre d’éléments dans la liste est limité, en effet étant donné le principe de conception nous sommes limités à la taille d’un formulaire.
Un formulaire a une hauteur maximum de 55 cm, mes lignes ont une hauteur de 0.45 cm, ce qui fait que vous ne pourrez mettre que 122 lignes, il faudra dont le réservé à de petites listes.

Si vous avez des questions, n’hésitez pas, mais sur le FORUM, pas par MP (je ne réponds pas aux questions techniques).

Starec

Bonjour

A la suite d'un bug découvert par Stéphane Olivier BERNARD et résolu par Arkham, j'ai placé une nouvelle version dans le post précédent, celle-ci prend en compte les couleurs personnalisées.

Merci à eux deux.

Starec

Y a une palette de couleur pour choisir la couleur ? CF les codes sources :mouarf:;)

Citation:

---

Envoyé par Tofalu

Y a une palette de couleur pour choisir la couleur ? CF les codes sources :mouarf:;)

---

Oui, c'est une le code des sources Access, le but n'est pas le choix de la couleur, mais de voir que visuellement on peut simuler une listbox avec des couleurs.

Starec

hello
Merci monsieur Starec pour cet exemple qui répond bien à ma préoccupation,
par contre, la modif de la pièce jointe a peut être foiré, j'ai pas trouvé la gestion des couleurs personnalisées?????

Bonjour

Je viens de re téléchager ce qu'il y a en pièce jointe, et tout fonctionne sans problème.

Quel est le tien ?

Starec

hello
Pas trop de problème, je viens de mettre le petit bouton pour créer les couleurs dans le formulaire destiné à remplir la table de paramètre pour que mon client puisse paramétrer de façon conviviale (comme quoi j'ai un peu de retard...)
simplement, je voyais les couleur personnalisées entièrement noires et je croyais à un disfonctionnement
quand je défini une couleur personnalisée, elle ne revient pas à l'utilisation suivante!!!!!
avec le module des codes sources, les couleurs personnalisées ne sont pas toutes noires mais elles cahngent d'une ouverture à l'autre dans une espèce de farandole un peu inexpliquable

mais rien de grave, je considère mon problème comme réglé

Bonsoir membres du forum,
J'ai téléchargé la pièce jointe de l'application "ListBoxColor" de Starec.
1°) J'ai supprimé toutes données de couleurs préenregistrées qui y étaient.
2°) En essayant d'enregistrer de nouvelles données de couleur, voici le message d'erreur:

Pièce jointe 547064
Pièce jointe 547068

Pourquoi cette erreur ?

Cordialement.

bonsoir,
à l'époque, le concepteur n'avait pas prévu que la table soit vide. Il faut rajouter un Nz():

Code:

---

rstAjout("Id_Defaut") = Nz(DMax("Id_Defaut", "tbl_Defaut"), 0) + 1

---

Citation:

---

Envoyé par tee_grandbois

bonsoir,
à l'époque, le concepteur n'avait pas prévu que la table soit vide. Il faut rajouter un Nz():

Code:

---

rstAjout("Id_Defaut") = Nz(DMax("Id_Defaut", "tbl_Defaut"), 0) + 1

---

---

Bonsoir tee_grandbois,
Merci infiniment. La ligne de code marche.
:merci: :merci: :merci:
Cordialement.