Discussion :

[adrien239]

Windows Seven
Excel 2007

Dans mes choix de themes ou de couleurs j'aimerais juste avoir une palette toute simple de 56 couleurs en plus des palettes existantes

Mais impossible de trouver comment faire?

Si quelqu'un a la réponse...

Ça ne doit pas bien être sorcier d'utiliser les 56 couleurs «historiques» réunies dans une palette sous Excel 2007 et pourtant je cale

Merci

[kiki29]

Salut, est-ce que ce salmigondis t'aidera ?

A toi de construire ta palette, tu as ttes les infos et FAQs pour le faire.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
Option Explicit
 
Sub Couleurs()
Dim Ws As Worksheet
Dim RGBc As Long
Dim R As Long, G As Long, B As Long
Dim i As Long
Dim iRow As Long, iCol As Long
Dim Ar() As Variant
Dim sStr As String, sStr1 As String
 
    Set Ws = ActiveWorkbook.Worksheets.Add
 
    With Ws
        .Cells(i + 1, 2) = "ColorIndex"
        .Cells(i + 1, 3) = "Html"
        .Cells(1, 4) = "R"
        .Cells(1, 5) = "G"
        .Cells(1, 6) = "B"
    End With
 
    '   56 Couleurs Standards
    For i = 1 To 56
        With Ws
            .Cells(i + 1, 1).Interior.ColorIndex = i
            .Cells(i + 1, 2) = i
 
            sStr = Right$("000000" & Hex(Cells(i + 1, 1).Interior.Color), 6)
            sStr1 = Right$(sStr, 2) & Mid$(sStr, 3, 2) & Left$(sStr, 2)
            .Cells(i + 1, 3) = "#" & sStr1
 
            RGBc = .Cells(i + 1, 1).Interior.Color
            R = Int(RGBc Mod 256)
            G = Int((RGBc Mod 65536) / 256)
            B = Int(RGBc / 65536)
 
            .Cells(i + 1, 4) = R
            .Cells(i + 1, 5) = G
            .Cells(i + 1, 6) = B
            .Cells(i + 1, 7) = RGBc
        End With
    Next i
 
    '   40 Couleurs Disponibles dans Menu Couleur Cellules
    Ar = Array(1, 53, 52, 51, 49, 11, 55, 56, _
            9, 46, 12, 10, 14, 5, 47, 16, _
            3, 45, 43, 50, 42, 41, 13, 48, _
            7, 44, 6, 4, 8, 33, 54, 15, _
            38, 40, 36, 35, 34, 37, 39, 2)
 
    With Ws
        i = 1
        For iRow = 1 To 5
            For iCol = 1 To 8
                .Cells(iRow + 1, 7 + iCol).Interior.ColorIndex = Ar(i - 1)
                .Cells(iRow + 1, 7 + iCol) = Ar(i - 1)
                i = i + 1
            Next iCol
        Next iRow
 
        With .Range("H2:M6")
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
 
        .Columns("B:F").EntireColumn.AutoFit
        .Range("H5:O5").Font.ColorIndex = 0
        .Columns("H:O").ColumnWidth = 2.25
 
        .Range("H2:O4").Font.ColorIndex = 2
        .Range("N5").Font.ColorIndex = 2
 
        .Range("A1:P18").Select
        ActiveWindow.Zoom = True
 
        .Range("A1").Select
    End With
 
    Set Ws = Nothing
End Sub

[adrien239]

Tout dépend de l'effet de ce que cela produira

Je ne demande pas grand chose si ce n'est dans couleurs de pouvoir sélectionner une palette «couleurs 56» au même titre que Apex ou autre Office

[78chris]

Bonjour

Les thèmes prévoient 8 teintes (en plus du noir et blanc) déclinées en dégradés (5 X 8) ce qui fait 50 teintes en tout.

Sauf par VBA on ne peut avoir d'autre palette.

J'en ai une en VBA (xlam) avec les anciennes teintes récupérée sur un forum et faite par Michel (cf http://silkyroad.developpez.com/VBA/...CodesCouleurs/) mais c'est une palette à part des autres.

[adrien239]

Ok merci c'est exactement ce qui m'intéresse

Mais je ne sais pas comment faire pour intégrer cette palette dans 2007 et l'avoir toujours à disposition...

[kiki29]

Salut, en faisant de l'archéologie informatique j'ai retrouvé une application basique, créant ceci. Il faudra customiser ces couleurs avec les infos données plus haut.

[adrien239]

Bonjour

Merci pour toutes vos réponse