Discussion :

[mat_lefebvre]

Bonjour,

Voici mon soucis, les couleur par defaut d'access sont trop basic.
Les couleurs prédéfinies sont un peu galére (ca me fait des points).

Je cherche donc comment puis je retrouver le code des couleur access ?

Merci de votre aide.

Toute proposition concernant une couleur de fond pour ma base est bienvenue. Pour l'instant c'est blanc mais je cherche blanc cassé car cela fait mal aux yeux

[thb74]

voir avec evenement sur ton form associe a du code vba

Code :

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

1
2
3
4
5
 
Dim RED, I, RGBValue, MyObject
Red = RGB(255, 0, 0)    ' Renvoie la valeur correspondant à Red.
I = 75    ' Initialise le décalage.
RGBValue = RGB(I, 64 + I, 128 + I)    ' Similaire à RGB(75, 139, 203).

ce bout de code est issu de l aide vba

a toi de voir pour l adapter a tes besoins

Thierry

[jrogron]

Je suis débutant mais j'ai trouvé une solution assez simple à ce problème.

Par exemple pour changer la couleur de fond d'un formulaire tu fais un clic droit sur celui-ci puis propriété -> Couleur de fond et tu clic au bout à droite sur les ... Ensuite une fenêtre s'ouvre et tu peux cliquer sur "Définir les couleurs personnalisées"

Ensuite tu verras apparaitre le code de la couleur dans la fenêtre propriété. Tu pourras par conséquent te servir de ce code pour obtenir la même couleur sur autre chose. C'est aussi un bon moyen pour rechercher un code de couleur.

C'est un peut du bidouillage mais ça marche.

J'espère ne pas avoir répondu à côté de ta question et que ton problème sera résolu.

Bon courage,

Jocelyn

[mat_lefebvre]

Par exemple pour changer la couleur de fond d'un formulaire tu fais un clic droit sur celui-ci puis propriété -> Couleur de fond et tu clic au bout à droite sur les ... Ensuite une fenêtre s'ouvre et tu peux cliquer sur "Définir les couleurs personnalisées"

Ensuite tu verras apparaitre le code de la couleur dans la fenêtre propriété. Tu pourras par conséquent te servir de ce code pour obtenir la même couleur sur autre chose. C'est aussi un bon moyen pour rechercher un code de couleur.
Jocelyn

Oui, merci je sais lmais le probleme c'est que lorsque je veux par exemple un blanc cassé avec le code couleur. La couleur qui en découle ressort avec des points, elle n'est pas net.

Je cherche ustement a savoir quel code couleur corresdpond à une couleur. OU est la table d'équivalence couleur --> code ?

voir avec evenement sur ton form associe a du code vba

Code :

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

1
2
3
4
5
 
Dim RED, I, RGBValue, MyObject
Red = RGB(255, 0, 0)    ' Renvoie la valeur correspondant à Red.
I = 75    ' Initialise le décalage.
RGBValue = RGB(I, 64 + I, 128 + I)    ' Similaire à RGB(75, 139, 203).

ce bout de code est issu de l aide vba

a toi de voir pour l adapter a tes besoins

Thierry

J'ai mit cela dans l'événement sur activation de mon formulaire mais je ne comprends pas le code. Je suis surement pas assez doué pour VBA

[thb74]

Pour comprendre comment trouver la valeur du code couleur

Prendre un controle definir a l aide des couleurs personnalisées une couleur de votre choix apres validation vous aurez la valeur numerique de cette couleur dans la propriété selectionnée (fond par exemple)

ensuite activer ce meme controle cliquez sur le bouton code (acces a visual basic) afficher la fenetre de propriete et vous aurez toutes les proprietes de ce controle

donc vous pouver definir vos couleurs par vba au chargement d un formpar exemple
bout de code d 'une de mes applications

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
 
Me.EntêteFormulaire.BackColor = Forms![Menu
général].Form![sfpar_coul]!val01_coul
Me.PiedFormulaire.BackColor = Forms![Menu général].Form![sfpar_coul]!val02_coul
Me.Détail.BackColor = Forms![Menu général].Form![sfpar_coul]!val03_coul
Dim ctl As Control
For Each ctl In Form.Controls
   If (TypeOf ctl Is TextBox) Or (TypeOf ctl Is ComboBox) Then
      ctl.ForeColor = Forms![Menu général].Form![sfpar_coul]!val06_coul
      ctl.BackColor = Forms![Menu général].Form![sfpar_coul]!val07_coul
   End If
   If TypeOf ctl Is Label Then
      ctl.ForeColor = Forms![Menu général].Form![sfpar_coul]!val05_coul
   End If
   If TypeOf ctl Is Rectangle Then
      ctl.BackColor = Forms![Menu général].Form![sfpar_coul]!val08_coul
   End If
Next ctl

les variables valxx_coul sont dans un sous-form masque (visible a non) et se sous form est issu d une table ou sont stockes les valeurs de chaque couleurs

j ai choisi une quinzaine de couleur constante pour mon application

un peu lourd a mettre en place au debut mais apres c est le pied a chaque creation de form car plus a ce preoccupe de la presentation (couleurs) et l' application est homogene a ce niveau

Th

[mat_lefebvre]

Je m'exprime trés mal.

Mon dernier probleme est que les couleurs prédéfinie ou meme personnalisé ne sont pas trés varié. Je cherche une couleur blanc cassé.
J'ai beau aller dans les couleurs personnalisé. Je n'arrives pas à trouver la couleur que je souhaite.
Mon vrai pb est ceici donc.