Discussion :

[NEC14]

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

[EngueEngue]

Code :

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

c.Interior = 0

[NEC14]

Bonjour,

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

[NEC14]

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 :

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

[PMO2017]

Bonjour,

Essayez

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

[NEC14]

Super ça marche

Merci beaucoup

[parmi]

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

Code :

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

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