Discussion :

[TheFlyingDutchman]

Bonjour,

Je voudrais à l'aide d'une macro remplir d'une couleur (random) les cellules identiques pour améliorer la lisibilité de mes données.

En gros, mon fichier est une liste de client qui recense leurs actions , donc ils peuvent apparaitre plusieurs fois. La colonne A contient leur ID unique, et c'est dans cette colonne que je veux trier dans l'ordre croissant (c'est fait), puis colorier les cases d'une couleur différente pour chaque ID.

D'habitude j'essaie d'enregistrer une macro pour ensuite exploiter le code généré, mais j'avoue que là je sèche un peu.

Merci d'avance

[TheFlyingDutchman]

J'ai trouvé une solution dans un forum en anglais:

https://www.ozgrid.com/forum/index.p...ows-by-groups/

[MarcelG]

Bonjour à toi, Bonjour au Forum,

(Désolé pour cette absence. Débordé)

Le code, au demeurant effectif, date de 2012.

Si l'on considère, en 2021, travailler avec des tables de données (Tableaux Structurés)

Sauf erreur, ou du moins sur Office 2016, les références structurées ne peuvent pas intégrer une formule relative à une mise en forme conditionnelle.

La gestion peut s'effectuer selon le processus suivant:

2 Tableaux
1 - les données
2 - les composants couleurs (Byte) Rouge (Red), Vert (Green) et Bleu (Blue) propres à chaque clé (ici le nom)

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
Option Explicit
 
Public Sub Couleurs_tablo()
 
Dim c As Range
Dim n As Long, eq As Long
Dim lerouge As Byte, levert As Byte, lebleu As Byte
 
n = 0
 
With Range("T_Données").ListObject
        .DataBodyRange.Interior.Color = RGB(255, 255, 255)
        For Each c In .ListColumns("nom").DataBodyRange
                n = n + 1
                eq = Evaluate("=IFERROR(MATCH(""" & c.Value & """,T_Couleurs[nom],0),0)")
                If eq > 0 Then
                        lerouge = Range("T_Couleurs[rouge]")(eq).Value
                        levert = Range("T_Couleurs[vert]")(eq).Value
                        lebleu = Range("T_Couleurs[bleu]")(eq).Value
                        .ListRows(n).Range.Interior.Color = RGB(lerouge, levert, lebleu)
                End If
        Next c
End With
 
End Sub

Illustration:



Au demeurant, la gestion de ces mises en formes serait facilitée par l'information directe de chaque composant au sein du tableau utilitaire (Par exemple, en remplaçant 35 par 249 pour le composant rouge de michel)

Pour information, les composants couleurs sont des nombres entiers avec pour bornes 0 et 255.
Soit 256 valeurs possibles (2 puissance 8)
La fonction RGB (pour Red Green Blue) renvoie un entier Long
De mémoire
RGB = R*(256^0) + G*(256^1) + B*(256^2)

[laurent_ott]

Pour compléter les explications de Marcel :
"Chaque couleur est constituée d'un indice rouge, vert, bleu compris entre 0 et 255, l'équivalent de nos couleurs
primaires en peinture.
Cela permet de représenter une palette de 16 777 216 couleurs, allant du noir (0, 0, 0) au blanc (255, 255, 255).
Le numéro d'une couleur est obtenu par la formule : rouge + (vert x 256) + (bleu x 256²).
Inversement chaque indice peut être retrouvé d'après le numéro d'une couleur par la formule : rouge = Int(Couleur
Mod 256) ; vert = Int((Couleur Mod 65536) / 256) ; bleu = Int(Couleur / 65536).
Ainsi la couleur 525 571 (3, 5, 8) est très proche de la couleur 0 (0, 0, 0) car leurs indices sont proches. Ce n'est pas intuitif lorsque l'on compare l'écart entre leurs numéros de couleur. C'est plus causant en exprimant la couleur 525 571 en pourcentage : elle est composée de 1,18 % de rouge, 1,96 % de vert, 3,14 % de bleu. Pour l'œil humain cela ressemble bigrement à du noir.
Inversement, la couleur 255 (255, 0, 0) est un rouge vif, très différent du noir (0, 0, 0) numéro 0."

[MarcelG]

Bonjour à vous, Bonjour au Forum,

Un tutoriel intéressant a été rédigé par Michel.

De plus, le fichier joint comporte une fonction qui retourne les équivalences RGB - Héxa

Notamment, le survol de la souris sur un document fait apparaître les composantes de chaque couleur et sa valeur Héxa.

Cet utilitaire, que j'utilise encore aujourd'hui, permet par exemple de respecter les chartes graphiques d'une société.

Bonne semaine à tous.