Discussion :

[jpma75]

Bonjour,

Petit problème chronophage...

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

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

[jpma75]

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

[jpma75]

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

Code :

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

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 :

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

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

[Patrice740]

Bonjour,

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

[jpma75]

Bonjour,

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

Cordialement,
jp