Discussion :

[koeuf]

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 :

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

[mjpmjp]

bonjour,

utilisation TOTALE des couleurs

Code :

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

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

utilisation limitée à index

Code :

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

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

@+JP

[koeuf]

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

[Docmarti]

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

[patricktoulon]

Bonjour

Code :

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

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é

[mjpmjp]

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

Code :

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

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

[koeuf]

merci,

ça marche parfaitement