Discussion :

[morobaboumar]

Bonjour membres du forum !
Très content de revenir vous consulter !

Question:
Comment colorier les textes, les contrôles (étiquettes, zones de textes, bordures et fonds ), etc. avec du code dans Access 2013 ?
Cordialement.

[loufab]

Bonjour,
Soit en mode Création en sélectionnant les contrôles concernés et en utilisant le menu Format.
Soit en mode Création en sélectionnant les contrôles concernés et ne agissant sur les propriétés ad-hoc.
Soit via VBA en agissant sur les propriétés ad-hoc des contrôles concernés.
Cordialement,

[morobaboumar]

Salut membres du forum !
Voici une idée de Code numérique ou alpha-numérique de chaque couleur que je recherche.
Exemple:
dans le code suivant, j'essaie de faire une variation de couleurs dans l'affichage d'une étiquette selon un critère:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
If IsNull(Me.NiveauAr) And IsNull(Me.NiveauFr) Then
Me.EtiquetteconfirmationInscription.Caption = "N'est pas inscrit(e) cette année au " & Me.Cours_Suivis.Column(1)
Me.EtiquetteconfirmationInscription.BorderColor = vbRed
End If

If Not IsNull(Me.NiveauAr) And Not IsNull(Me.NiveauFr) Then
Me.EtiquetteconfirmationInscription.Caption = "Est inscrit(e) cette année au " & Me.Cours_Suivis.Column(1)
Me.EtiquetteconfirmationInscription.BorderColor = 32768 '2054402 'vbGreen
End If
End Sub

Donc, je voudrais créer une table dans laquelle je pourrais insérer les couleurs et leurs références numérique ou alpha-numérique.
Cette table aura 5champs (NumAuto, CouleurChoisie, CodeNumerique, CodeAlphaNumerique, NomCouleur).
Cela me permettra de savoir la valeur numérique ou alpha-numérique de chaque couleur depuis les versions Access 2000 jusqu'aux plus
récentes.
Cordialement.

[loufab]

Quelle est la question précise ?

[morobaboumar]

Quelle est la question précise ?

Bonsoir loufab,
La voici:

je souhaite créer une table dans laquelle je pourrais insérer les couleurs et leurs références numérique ou alpha-numérique.
Cette table aura 5 champs (NumAuto, CouleurChoisie, CodeNumerique, CodeAlphaNumerique, NomCouleur).
Cela me permettra de savoir la valeur numérique ou alpha-numérique de chaque couleur depuis les versions Access 2000 jusqu'aux plus
récentes.

Vous savez avec Access 2000 à 2003 les couleurs était codées par exemple: "32768" ou "2054402" ou "vbRed", "vbGreen"...
maintenant, depuis Access 2007 à 2013 les couleurs sont codées ainsi par exemple: "#FFFFFF".
Alors comment pourrais je programmer une table(NumAuto, CouleurChoisie, CodeNumerique, CodeAlphaNumerique, NomCouleur) enregistrant les différentes couleurs et leurs codes tel qu'expliqué ?

Cordialement.

[User]

Bonjour à tous,

Si vous souhaitez afficher le code numérique (entier long) à partir du code alphanumérique :

Par exemple, si vous avez le code alphanumérique :

CodeAlphanumerique = "#00FFFF"

Il faut retirer le 1er caractère ("#"), et mettre "&h" devant, puis convertir ce résultat en entier long :

Code :

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

CodeNumerique = CLng("&h" & Mid(CodeAlphanumerique, 2))

Inversement, pour obtenir un hexa à partir d'une entier, j'ai trouvé ceci :

Code :

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

CodeAlphanumerique= "#" & Right("000000" & Hex(CodeNumerique), 6)

Ensuite, pour colorier les couleurs choisies sur la zone de texte "CouleurChoisie", il faudrait :

• Programmer en VBA l'ouverture d'une boîte de dialogue pour choisir la couleur et enregistrer son code au format hexa et long (par ex. sur double-clic).
• Programmer en VBA la mise en forme conditionnelle appliquée à votre champ "CouleurChoisie".

C'est pas simple..