clignoter cellule si fond rouge (MFC)

A

Alain du 78

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

Alain du 78

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

Alain du 78

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

Alain du 78

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

Discussions similaires

Statistiques des forums

Discussions
312 801
Messages
2 092 245
Membres
105 313
dernier inscrit
tissouma