problème avec .ColorStops.Add(1).Color

Version imprimable

Bonjour,

Petit problème chronophage...

.ColorStops.Add(1).Color doit être mal placé car il ne donne aucun résultat !

Code:

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
Sub cellule_Clignote()
Dim jaune As Integer
Dim vert As Integer
Dim bleu_clair As Integer
Dim gris_clair As String
 
    jaune = 6
    vert = 4
    bleu_clair = 34
    gris_clair = RGB(166, 166, 166)
 
    With ActiveSheet.Range("a2")
        .Interior.ColorIndex = jaune
            Attente (2000)
        .Interior.ColorIndex = vert
            Attente (2000)
        .Interior.ColorIndex = jaune
            Attente (2000)
        .Interior.ColorIndex = vert
            Attente (2000)
        .Interior.ColorIndex = jaune
            Attente (2000)
        .Interior.ColorIndex = vert
            Attente (2000)
        .Interior.ColorIndex = jaune
            Attente (2000)
        .Interior.ColorIndex = vert
            Attente (2000)
        .Interior.Pattern = xlPatternRectangularGradient
            With .Interior.Gradient
                .RectangleLeft = 0.5
                .RectangleRight = 0.5
                .RectangleTop = 0.5
                .RectangleBottom = 0.5
                .ColorStops.Add(1).Color = RGB(91, 224, 255)
            End With
'        .Interior.Gradient.ColorStops.Add(1).Color = RGB(91, 224, 255)
    End With
 
    ActiveSheet.Range("a2:a4").BorderAround LineStyle:=xlContinuous, Color:=gris_clair, Weight:=xlThin
End Sub

En vous remerciant pour vos lumières !
Cordialement,
jp

09/08/2020, 16h39
jpma75

(au cas où, ne répondez pas trop vite, j'ai peut-être trouvé !)

Désolé, ça fonctionne avec le code qui suit :
Code:

1 2 3 4 5 6 7 8 .Interior.Pattern = xlPatternRectangularGradient With .Interior.Gradient .RectangleLeft = 0.5 .RectangleRight = 0.5 .RectangleTop = 0.5 .RectangleBottom = 0.5 End With .Interior.Gradient.ColorStops.Add(1).Color = bleu_clair
Le pb venait de la variable bleu_clair déclarée dans plusieurs modules avec des constantes RGB différentes...
C'est terrible de perdre autant de temps sur des bêtises pareilles !

Par contre ce qui suit ne fonctionne pas (remplacé par essai qui fonctionne mais méritait certainement mieux...)
Code:

1 2 3 4 5 6 7 8 9 10 11 ' ActiveSheet.Range("a2:a4").Border.LineStyle = xlNone 'ajout 9/8 'ne fontionne pas ! '----- essai With Range("a2:a4") .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone End With '-----------
Cordialement,
jp

09/08/2020, 17h41
Patrice740

Bonjour,

Citation:

Envoyé par jpma75

Le pb venait de la variable bleu_clair déclarée dans plusieurs modules avec des constantes RGB différentes...
C'est terrible de perdre autant de temps sur des bêtises pareilles !

Tout d'abord, il n'y a aucune raison d'utiliser une variable pour définir une couleur : il faut utiliser une constante.

En général pour éviter ce genre de désagrément, on utilise un module unique (commun et réutilisable) dans lequel on déclare toutes les constantes publiques (telles que les couleurs).
09/08/2020, 22h12
jpma75

Bonjour,

Merci pour ces deux conseils.
J'avoue ne jamais avoir pensé à une constante :(

Cordialement,
jp