Récupérer et utiliser un code couleur

Bonjour,

je bute sur un problème bizarre (pour moi !) je souhaite que l'utilisateur de mon fichier excel puisse choisir la couleur d'une cellule via un userform, puis que la valeur de cette couleur puisse être enregistrée, puis réutilisée par la suite. j'ai donc écrit le bout de code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim couleur As Long   'pour que l'utilisateur puisse choisir sa couleur (c'est la case F15 qui est sélectionnée) Private Sub UserForm_Initialize() i = Application.Dialogs(xlDialogPatterns).Show End Sub   ' pour récupérer la valeur de la couleur Private Sub CommandButton1_Click() Sheets("fiche").Activate couleur = Range("F15").Interior.ColorIndex   'un test pour vérifier que la couleur a bien été récupérée Range("F18").Interior.ColorIndex = couleur End Sub

---

ça marche presque car il y a un léger décalage dans la couleur qui est en générale plus claire et je ne vois pas pourquoi. Merci de m'éclairer sur ce point

bonjour,

utilisation TOTALE des couleurs

Code:

---

1 2	Sheets("DB").Range("B8").Interior.Color = RGB(33, 58, 89)

---

utilisation limitée à index

Code:

---

1 2	Range("F15").Interior.ColorIndex

---

@+JP

merci de la réponse,

si j'ai bien compris les couleurs de l'index sont les 50 qui apparaissent dans la boite de dialogue de base d'excel et il faut un code rgb pour les couleurs personnalisées; Pourtant, j'ai toujours un décalage quand j'utilise les couleurs de l'index

Citation:

---

Envoyé par koeuf

ça marche presque car il y a un léger décalage dans la couleur qui est en générale plus claire et je ne vois pas pourquoi.

---

Demarre l'enregistreur de macros, puis regarde le format de cellule des 2 cellules dont la couleur differe. Arrete l'enregistreur de macros et va voir le code de la macro.

Bonjour

Code:

---

1 2 3

couleur=cells(x,y).interior.color   cells(a,z).interior.color=couleur

---

tout simplement
colorindex=56 couleurs du workbooks.colors() actif :car cela peut être modifié

bonjour,
Color est la couleur exacte
ColorIndex est la couleur la plus proche

Code:

---

1 2	Sheets("DB").Range("B8").Interior.Color = RGB(33, 58, 89)

---

est le code complet pour utiliser color,

de cet exemple tu aurais pu trouver par toi même le code que patricktoulon a bien voulu te fournir

@+JP

merci,

ça marche parfaitement