Discussion :

[ouioui_cmoi]

Bonjour, j'ai encore un probleme bizarre.
J'ai une macro qui doit fonctionner pour tous mes classeurs excel.
Néanmoins, j'utilise la fonction .Colorindex et, ma macro ne donne pas les memes couleurs sur tous mes fichiers...
je n'ai absolument aucune idée d'ou cela pourrait venir...

[ouskel'n'or]

Sans le code...
Montre-nous ça

[ouioui_cmoi]

ben en fait...j me suis rendu compte que ça ne vient pas du code...
j'ai meme converti en RGB
et pour un de mes fichiers, il n'affiche pas les bonnes couleurs...
quelqu'un peut me confirmer que rgb(153,51,0) est du gris clair?
parce que il m'affiche du gris clair dans mes fichiers excel en general , sauf dans mon fichier ou il met du mauve... et j'y comprend plus rien, parce que, normalement, rgb donne une couleur unique...

[wilfried_42]

re:

J'ai eu des problemes avec les RGB sur des couleurs de cellule, j'ai vu cela avec l'usage de 36 couleurs mais avec des degres de couleurs tres proche et en realité, il ne prend pas le RGB, Mais compare avec la couleur index et recupere l'index de la couleur

La modification que j'ai apporté est de definir non pas la couleur de la cellule en fonction d'un RGB, mais la palette de couleur

Dans workbook_open, definir la palette de couleur avec les RGB, ensuite tout le monde à la meme palette

Ps : La palette de couleur n'est modifiée que pour ce classeur, elle reprends ces caracteristiques de base à la cloture

Bonne journée

[ouioui_cmoi]

j'ai pas tout compris...
ça voudrait dire que la définition d'une couleur de cellule en RGB n est pas unique?
j'ai fait une experience...entre mon fichier et un autre fichier ouvert, j'ai fait copier coller...
ben la cellule rouge à l'origine devient jaune... c est trop^trop bizarre...

[ucfoutu]

http://www.mvps.org/dmcritchie/excel/colors.htm

[wilfried_42]

re:

Tu crées une Feuille Nommée "Palete"
En colonne A, tu y mets le Rouge, en B le Vert et en C le Bleu

Code :

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

1
2
3
4
5
6
Sub Modif_palette()
    Dim i As Integer
    For i = 1 To Sheets("Palete").Range("A65536").End(xlUp)
        ThisWorkbook.Colors(i) = RGB(Sheets("Palete").Range("A" & i), Sheets("Palete").Range("B" & i), Sheets("Palete").Range("C" & i))
    Next i
End Sub

Cette macro que je n'ai pas testée, devrait reprogrammer ta palette de couleur en fonction des RGB colonne A,B,C de la feuille Palete


Bonne journée