probleme fonction colorindex

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...

Sans le code...
Montre-nous ça ;)

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...

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

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...

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

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:

---

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

ben j crois que j vais laisser tomber
faudrait que j modifie toutes les couleurs de tous mes fichierS....lol
trop galere
merci quand meme...au moins j ai pu voir d'ou venait le probleme...

Par ailleurs, j aurais une autre question qui n a rien a voir :
lorsque je crée un bouton pour une macro dans mes menus...comment faire pour que ce bouton n'apparaisse que pour un fichier excel, et pas pour tous?

re:

Tu le crees à l'ouverture du classeur, et à sa fermeture tu le detruits

lol
ok je n avais pas pense à ce moyen...;)
sinon, y a pas de moyen automatique par excel.?

et comment je peux faire poour assigner par VBA une macro à un mon bouton?
l enregistreur de macro me donne :

Code:

---

1 2 3

Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID _ :=2950, Before:=23

---

Mais il ne m'associe pas ma macro automatiquement à mon bouton...
(question accessoire : comment faire pour choisir de mettre sur mon bouton du texte plutot que le smiley?)

re:

essaye ca, mais aucune certitude

Code:

---

1 2 3

dim mem as variant set mem = Application.CommandBars("Standard").Controls.Add Type:=msoControlButton, ID:=2950, Before:=23 mem.onaction = "MaMacro"

---

ca ne marche po :(
je vais faire un nouveau topic sur le sujet, parce que ca n a plus aucun rapport avec le sujet initial