Discussion :

[Taillise]

Bonjour,
j'aurais besoin de disposer d'une palette de 20-30 couleurs pastel très claires distinctes pour visualiser des échantillons. Paramétrer chacune de ces teintes en redéfinissant les valeurs RGB à partir d'une des 56 couleurs existantes est laborieux et peut tomber sur une couleur utilisée par ailleurs dans le fichier.

D'où l'idée de générer ces teintes de manière aléatoire pour les appliquer directement à des cellules. Mon problème est que mon code n'applique pas les valeurs RGB indiquées, même quand on rentre des valeurs numériques, et se raccroche aux couleurs standards de la palette d'excel.

Est-ce que mon idée de départ est réalisable?
D'avance merci, Serge

Code :

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

1
2
3
4
5
6
7
8
9
10
For i = 0 To 100
  Range("A1").Offset(i, 0).FormulaR1C1 = 160 + CInt(Rnd * 95)
  Range("B1").Offset(i, 0).FormulaR1C1 = 160 + CInt(Rnd * 95)
  Range("C1").Offset(i, 0).FormulaR1C1 = 160 + CInt(Rnd * 95)
 
  red = CInt(Range("A1").Offset(i, 0).Value)
  green = CInt(Range("B1").Offset(i, 0).Value)
  blue = CInt(Range("C1").Offset(i, 0).Value)
  Range("F1").Offset(i, 0).Interior.Color = RGB(red, green, blue)
Next

[kiki29]

Voir http://www.mvps.org/dmcritchie/excel/colors.htm ou passer à Excel 2007 ( 16 millions de couleurs )

[Taillise]

Merci pour ton aide, j'avais déjà eu accès à ce document très riche, mais l'ambiguité n'est pas levée: dans ce document apparaît le code suivant qui laisse penser qu'on peut directement paramétrer la couleur d'une plage, alors qu'en cours d'application on revient à des couleurs standards dont le code RGB n'a rien à voir avec la demande.
Je n'ai malheureusement pas encore accès à Excel 2007 dans mon entreprise.
Si quelqu'un a déjà été confronté à ce problème, toute suggestion sera bienvenue!
Serge,

Code :

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

Selection.Interior.Color = RGB(200, 250, 200)

[fring]

Bonjour,

Tu peux tester ceci stp

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
26
27
28
Sub test()
Dim L As Single, T As Single, H As Single, W As Single, i As Integer
 
For i = 1 To 100
    With Range("H" & i)
        L = .Left
        T = .Top
        W = .Width
        H = .Height
    End With
 
    Range("A" & i) = 160 + CInt(Rnd * 95)
    Range("B" & i) = 160 + CInt(Rnd * 95)
    Range("C" & i) = 160 + CInt(Rnd * 95)
 
    red = CInt(Range("A" & i).Value)
    green = CInt(Range("B" & i).Value)
    blue = CInt(Range("C" & i).Value)
 
    With ActiveSheet.Shapes.AddShape(msoShapeRectangle, L, T, W, H)
    .Fill.ForeColor.RGB = RGB(red, green, blue)
    .Line.Visible = msoFalse
    End With
 
    Range("F" & i).Interior.Color = RGB(red, green, blue)
Next
 
End Sub

Tu constateras une différence entre la colonne F et H.
Dans la colonne F la couleur directement insérée dans la cellule
Dans la colonne H la couleur est insérée dans une forme, la forme acceptant une palette de couleur plus élaborée qu'une cellule.

Etant daltonien......peux-tu me dire si tu obtiens les couleurs souhaitées ?

[Taillise]

Merci à tous deux pour votre aide; j'ai maintenant accès à une multitude de nuances qui ravissent l'aquarelliste que je suis.

Pour mon application, ces couleurs devraient concerner plusieurs milliers de cellules. Les cellules contiennent chacune l'identification d'un échantillon et une couleur caractérisant les échantillons subissant un même traitement. Comme je ne vois pas très bien comment concilier cette exigence avec l'utilisation de shapes, il me semble que le mieux est de recenser les couleurs les plus dégueu de la palette excel pour leur affecter quelques unes de ces ravissantes teintes fraîches obtenues avec le code ci-dessus...à moins que quelqu'un n'ait une autre idée lumineuse à ce stade de la réflexion?.
Encore merci, Serge