Discussion :

[elsabio]

Bonjour,

j'ai une macro qui me permet d'avoir une couleur de cellule, en fonction de mots entrés dans la colonne B, mais je trouve celle-ci trop vive....

Y a t il un moyen de modifier la palette de couleur afin de l'adoucir?

Merci par avance, cordialement.

test_couleur.xlsm

[Jean-Philippe André]

Salut,

tu peux charger un theme de couleur avec

Code :

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

ActiveWorkbook.Theme.ThemeColorScheme.Load (TonFichierXMLdeCouleurs.xml)

[elsabio]

Salut,

tu peux charger un theme de couleur avec

Code :

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

ActiveWorkbook.Theme.ThemeColorScheme.Load (TonFichierXMLdeCouleurs.xml)

Merci d'avoir répondu si vite

je remplace

Code :

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

Interior.ColorIndex

par

Code :

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

ActiveWorkbook.Theme.ThemeColorScheme.Load (TonFichierXMLdeCouleurs.xml)

, ou dois je le placer dans un module?

[Jean-Philippe André]

Attention, le code que je te propose est directement lie a ta question :

Y a t il un moyen de modifier la palette de couleur

Je n'ai a aucun moment ouvert ton classeur, directement en lien avec notre politique des pieces jointes.

Peux tu au lieu de mettre tout un classeur, simplement nous recopier ton code VBA qui semble correspondre a une autre question que celle posee.

[elsabio]

Pas de soucis, voici le code vba:

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim d As Object, i%, c%
    If Not Intersect(Target, [Ajout].Columns(1)) Is Nothing Then
        Set d = CreateObject("Scripting.Dictionary")
        c = 2
        With [Ajout]
            For i = 1 To .Rows.Count
                If .Cells(i, 1) <> "" Then
                    If d.exists(.Cells(i, 1).Value) Then
                        .Rows(i).Interior.ColorIndex = d(.Cells(i, 1).Value)
                    Else
                        c = c + 1: d(.Cells(i, 1).Value) = c
                        .Rows(i).Interior.ColorIndex = c
                        '.
 
                    End If
                Else
                    .Rows(i).Interior.ColorIndex = xlColorIndexNone
                End If
            Next i
        End With
    End If
End Sub

ma question est bien en rapport avec mon post original, du moins de mon coté ^^

[Jean-Philippe André]

Est-ce a cette ligne que tu fais reference ?

Code :

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

.Rows(i).Interior.ColorIndex = xlColorIndexNone

Car mis a part cela, l'evolution de ta variable c ne me semble pas en lien avec la palette non plus :/

[elsabio]

oui c'est bien cette ligne de code.
J'avoue que je me suis peut etre mal exprimé, c'et une habitude chez moi lol

les couleurs proposées par cette ligne de code sont trop vive à mon gout, et je souhaiterais les adoucir, voir changer de palette de couleur (c'est pour ça que j'ai mis ça en intitulé).

[Jean-Philippe André]

Pour determiner les couleurs, tu as les pistes suivantes :
- variante RGB()
Le tutoriel suivant faisant a mon avis largement l'affaire
http://silkyroad.developpez.com/VBA/...CodesCouleurs/

[elsabio]

je vais le regarder attentivement, je passerai le post en résolu quand j'aurais trouvé la solution.
et si le besoin se fait sentir, je posterais une nouvelle question


Merci Jean-Philippe André pour ta patience.

[Menhir]

Utilise :

Code :

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

Interior.Color

Et tu pourras désigner n'importe quelle couleur.
https://msdn.microsoft.com/fr-fr/lib.../ff840499.aspx