Cellule qui clignote en Excel

Bonjour le Forum,

J'ai mis en place le code suivant (trouvé sur le net) qui me permet de faire clignoter une cellule selon un critère.

Dans mon cas, si la cellule C40 est égale à la cellule F9 alors la cellule C40 est colorée en rouge et clignote.

Mais cela ne fonctionne pas correctement, j'ai un message d'erreur sur la ligne 8 - Erreur 13 Incompatibilité de type.

Je n'arrive pas à comprendre et à résoudre mon soucis, pouvez-vous m'apporter votre aide s'il vous plait ?
Je vous en remercie par avance

René
Code:

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 = Cells("F9").Value Then c.Interior.ColorIndex = 3 Else c.Interior = 0 End If Else c.Interior.ColorIndex = 0 End If Next c BlinkTime = Now() + TimeValue("00:00:01") 'le temps de clignotement Application.OnTime BlinkTime, "CellulesEgalesClignotent" End Sub

Code:

c.Interior = 0

Bonjour,

J'ai modifié cette erreur, mais le problème persiste.
Merci

Voilà j'ai essayé comme ça, mais quel que soit le montant, la cellule C40 clignote même si le montant est inférieur à F9

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Sub CellulesEgalesClignotent()
    Dim c As Range
        For Each c In Range("C40").Cells 'Zone de clignotement
            If c.Interior.ColorIndex = xlNone Then
                If Val(c) > Val("F9") Then
                        c.Interior.ColorIndex = 3
                Else
                        c.Interior.ColorIndex = 0
                End If
            Else
                c.Interior.ColorIndex = 0
            End If
        Next c
 
        BlinkTime = Now() + TimeValue("00:00:01") 'le temps de clignotement
        Application.OnTime BlinkTime, "CellulesEgalesClignotent"
End Sub

Bonjour,

Essayez

Code:

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("F6").Value Then '/////
                        c.Interior.ColorIndex = 3
                Else
                        c.Interior.ColorIndex = xlNone
                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

Super ça marche :ccool:

Merci beaucoup

Pourquoi ceci s'il n'y a qu'une cellule de visée ?

Code:

For Each c In Range("C40").Cells

heu

Bonjour nec

moi aussi je suis un peu comme parmi

a quoi te sert de boucler sur qu'une seule cellules en d'autre mots ,boucler sur plage comportant 1 seule cellule

For Each c In Range("C40").Cells

dans cette plage il y a que le cellule c40

en gros j'aurais fait ca moi
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim BlinkTime As Date Public Sub CellulesEgalesClignotent() with Range("C40") If .Interior.Color = xlNone Then If .Value = Range("F6").Value Then '///// .Interior.ColorIndex = 3 Else .Interior.Color = xlNone End If Else .Interior.Color = xlNone End If end with BlinkTime = Now() + TimeValue("00:00:01") 'le temps de clignotement Application.OnTime BlinkTime, "CellulesEgalesClignotent" End Sub
moi je dis ca hein....
je dirais meme mieux vu que tu a seulement 2 etats tout tes if... ne sont pas necessaire

si c'est blanc et egale c'est rouge sinon c'est blanc

tu vois ou je veux en venir ????????????

Au plaisir

Bonjour à tous,

Vous avez raison Patrick et parmi, pourquoi faire compliquer quand on peut faire simple.

Je vais modifier le code.

Merci pour vos suggestions. :ccool:

Amicalement

René

Bonjour,

On peut laisser le code en l'état pour la raison suivante :
La personne qui l'a écrit à nommer la procédure "Public Sub CellulesEgalesClignotent()" en utilisant le pluriel ce qui implique qu'on peut l'utiliser avec plusieurs cellules ou une seule.
Si, par la suite, vous avez besoin de tester une plage de plusieurs cellules il y aura juste à modifier l'instruction

Code:

For Each c In Range("C38:C40,C21,B16,A11").Cells 'Zone de clignotement

A chacun de voir.

Bonjour,

Dans mon cas, il n'y aura toujours qu'une seule cellule qui clignotera.
Merci tout de même pour la précision :ccool:

René