Discussion :

[NEC14]

Bonjour,

Le code suivant me permet de colorer une cellule (C40) si son montant est supérieur à celui de la cellule F9, de plus elle clignote.

Cependant j'ai un message d'erreur sur la ligne 10

"Impossible de définir la propriété ColorIndex de la classe Intérior"

Pouvez-vous éclairer ma lanterne s'il vous plait ?

Merci par avance

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
Dim BlinkTime As Date

Public Sub CellulesEgalesClignotent()
    Dim C As Range
        For Each C In Range("C40").Cells 'Zone de clignotement
            If C.Interior.ColorIndex = xlNone Then
                If C.Value > Range("F9").Value Then 'si C40 est supérieur à F9 alors
                        C.Interior.ColorIndex = 3 'la cellule C40 est rouge
                Else 'Sinon
                        C.Interior.ColorIndex = xlNone 'la cellule C40 n'a pas de couleur
                End If
            Else
                C.Interior.ColorIndex = xlNone
            End If
        Next C
 
        BlinkTime = Now() + TimeValue("00:00:01") 'le temps de clignotement
        Application.OnTime BlinkTime, "CellulesEgalesClignotent"
End Sub

[casefayere]

l'aide dit :

Cette propriété renvoie ou définit une valeur de type Variant qui représente la couleur de l'intérieur.
Syntaxe

expression.ColorIndex

expression Variable qui représente un objet Interior.

Remarques


La couleur est spécifiée sous la forme d'une valeur d'index dans la palette de couleurs actuelle ou en tant que l'une des constantes suivantes XlColorIndex:

xlColorIndexAutomatic
xlColorIndexNone

[NEC14]

Oups ! je me suis trompé, c'est la ligne 8 qui cause problème pas la 10

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
Dim BlinkTime As Date

Public Sub CellulesEgalesClignotent()
    Dim C As Range
        For Each C In Range("C40").Cells 'Zone de clignotement
            If C.Interior.ColorIndex = xlNone Then
                If C.Value > Range("F9").Value Then 'si C40 est supérieur à F9 alors
                        C.Interior.ColorIndex = 3 'la cellule C40 est rouge
                Else 'Sinon
                        C.Interior.ColorIndex = xlNone 'la cellule C40 n'a pas de couleur
                End If
            Else
                C.Interior.ColorIndex = xlNone
            End If
        Next C
 
        BlinkTime = Now() + TimeValue("00:00:01") 'le temps de clignotement
        Application.OnTime BlinkTime, "CellulesEgalesClignotent"
End Sub

J'ai regardé l'aide également, mais je ne comprends pas

Habituellement j'utilise la même chose et ça fonctionne, ici ça coince. Je suis perdu !!

[EngueEngue]

Déjà ton for each ne sert à rien puisque ton range fait 1 cell.

Ta ligne

Code :

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

C.Interior.ColorIndex = 3

ne pose aucun problème.

[NEC14]

D'accord mais comment lui indiquer que C. c'est la cellule C40

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
 If Range("C40").Interior.ColorIndex = xlNone Then
                If Range("C40").Value > Range("F9").Value Then 'si C40 est supérieur à F9 alors
                        Range("C40").Interior.ColorIndex = 3 'la cellule C40 est rouge
                Else 'Sinon
                        Range("C40").Interior.ColorIndex = xlNone 'la cellule C40 n'a pas de couleur
                End If
            Else
                Range("C40").Interior.ColorIndex = xlNone
            End If

Qui peut se résumer en

Code :

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

1
2
3
4
5
If Range("C40").Interior.ColorIndex = xlNone and Range("C40").Value > Range("F9") Then
                      Range("C40").Interior.ColorIndex = 3 'la cellule C40 est rouge
 Else 'Sinon
                        Range("C40").Interior.ColorIndex = xlNone
end if

[NEC14]

J'ai toujours le même message sur la ligne en rouge

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
Dim BlinkTime As Date

Public Sub CellulesEgalesClignotent()
    
    If Range("C40").Interior.ColorIndex = xlNone Then
                If Range("C40").Value > Range("F9").Value Then 'si C40 est supérieur à F9 alors
                        Range("C40").Interior.ColorIndex = 3 'la cellule C40 est rouge
                Else 'Sinon
                        Range("C40").Interior.ColorIndex = xlNone 'la cellule C40 n'a pas de couleur
                End If
            Else
                Range("C40").Interior.ColorIndex = xlNone
            End If
 
        BlinkTime = Now() + TimeValue("00:00:01") 'le temps de clignotement
        Application.OnTime BlinkTime, "CellulesEgalesClignotent"
End Sub

[EngueEngue]

Je ne comprends pas le problème... Essaie ça

Code :

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

Range("C40").Interior.Color = RGB(255,0,0)

[NEC14]

Lorsque je passe dessus avec la souris il est indiqué

"Range("C40").Interior.ColorIndex = -4142"

[EngueEngue]

Je ne vois que le fait que ta feuille soit protégée... Cale ceci en début de code

Code :

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

activesheet.Unprotect

[NEC14]

Je pense avoir trouvé d'où vient l'erreur. Certaines cellules de la feuille sont protégées en écriture dont C40, j'ai enlevé la protection et je n'ai plus d'erreur.
Ce qui m'ennuie, c'est que cette cellule doit être absolument protégée


Oups ! On s'est croisé, on a eu la même idée

[EngueEngue]

Bien ce que je disais...

Il suffit d'unlock puis de relock après..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Range("C40").locked = False
 
If Range("C40").Interior.ColorIndex = xlNone and Range("C40").Value > Range("F9") Then
                      Range("C40").Interior.ColorIndex = 3 'la cellule C40 est rouge
 Else 'Sinon
                        Range("C40").Interior.ColorIndex = xlNone
end if
 
Range("C40").locked = True

[NEC14]

J'ai mis en place ta proposition, mais j'ai un message d'erreur sur la ligne

Code :

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

1
2
 
Range("C40").Locked = False

"Impossible de définir la propriété Locked de la classe Range"

[EngueEngue]

t'as un mot de passe ?

Code :

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

1
2
3
4
5
6
7
8
9
10
activesheet.unprotect
Range("C40").locked = False
 
If Range("C40").Interior.ColorIndex = xlNone and Range("C40").Value > Range("F9") Then
                      Range("C40").Interior.ColorIndex = 3 'la cellule C40 est rouge
 Else 'Sinon
                        Range("C40").Interior.ColorIndex = xlNone
end if
 Range("C40").locked = True
activesheet.protect

[NEC14]

Merci beaucoup ça marche

Bonne fin de journée

Amicalement

René