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