clignoter cellule si fond rouge (MFC)

[Alain du 78]

Bonjour le forum

Par cette belle journée ensoleilée, je sui à la recherche d'une macro permettant à une cellule dont le fond est rouge (couleur par MFC) de clignoter
En vous remerciant pour l'aide que vous m'apporterez

 

[JeanMarie]

Bonjour

Regarde ce lien Lien supprimé

@+Jean-Marie

 

[Alain du 78]

je te salut jean maris
débutant en vba et ne connaissant pas la langue que j'expire
je souhaite obtenir le clignotement de la cellule dont le fon de couleur rouge obtenu par mfc dans la plage A5:K100
puisque par la mfc seul une cellule peut être rouge dans cette plage
merci de tes conseils et exemples

 

[Alain du 78]

Salutations Jean Marie,

J'ai trouvé cette macro sur le forum lais elle ne fonctionne pas
peut-tu me dire pourquoi stp
merci beaucoup

Dans Worksheet :

Attribute VB_Name = 'CelluleClignoteSiCondition'

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range('B6:H99')) Is Nothing Then CLIGNOTE
Target.Select
End Sub

Dans un Module :

Sub CLIGNOTE()
'Alain Vallon, mpfe
For Each Cell In Range('B6:H99').Find _
(What:=Application.WorksheetFunction.Min([B6:H99]), LookAt:=xlWhole).Activate
mémo1 = ActiveCell.Font.ColorIndex
'mémo2 = ActiveCell.Font.Size
For x = 1 To 5
For i = 1 To 20
ActiveCell.ColorIndex = 3
'ActiveCell.Font.Size = i
Sleep (5)
DoEvents
Next i
'ActiveCell.Font.Size = 12
ActiveCell.Font.ColorIndex = 3
Next x
ActiveCell.Font.ColorIndex = mémo1
'ActiveCell.Font.Size = mémo2
Next
End Sub

 

[Alain du 78]

Ce que je cherche c'est :
si dans une plage donnée (B6:H100), le fond est rouge (pat MFC) qu'elle clignote
je ne suis pas doué excusez-moi
mais je vous remercie quand même bonne soirée

 

[JeanMarie]

Bonjour

Petite question, c'est toute la plage B6:B100 qui doit clignoter, ou uniquement la cellule qui a le fond rouge par la MFC ?

Il serait préférable de placer un fichier.

@+Jean-Marie

 

[Alain du 78]

Bonjour Jean Marie,
C'est uniquement la cellule qui, lorsque la MFC la fera passer en rouge qui doit clignoter. Cette cellule se trouve obligatoirement dans la plage B6:H100 de la feuille.
En te remerciant, car moi je patauge.

 

[Alain du 78]

Le fichier est trop volumineux