Macro clignotement cellule

Version imprimable

Bonjour,

Je cherche à faire clignoter une cellule, si celle ci contient en partie la chaîne suivante "ECHEANCE DEPASEE DE". J'ai trouvé une macro sur internet qui me permet de faire clignoter la plage de cellule que j'ai sélectionné, mais ne sachant pas comment introduire ma condition, toutes les cellules clignotent.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Flash() Range("H2", "H500").Select For compteur = 1 To 100 With Selection.Font .ColorIndex = 2 End With Application.Wait Now + TimeValue("00:00:01") 'Pour augmenter la vitesse du clignotement 'Application.Wait Now + (TimeValue("00:00:01")) / 2 With Selection.Font .ColorIndex = 0 End With Application.Wait Now + TimeValue("00:00:01") Next End Sub
J'ai essayé avec
Code:

1 2 3 If Range("H2", "H500").Select = "ECHEANCE DEPASEE DE" End If
Malgré ça je n'arrive pas à trouver de syntaxe acceptable pour exprimer mon besoin.

Quelqu'un aurait-il une idée?

Merci d'avance.

salut

quelque chose ressemblant à ceci ?

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim anc As Integer, compteur As Integer, deb As Single
With Range("H2:H500").Font
  anc = .ColorIndex
  For compteur = 1 To 20
   .ColorIndex = IIf(compteur Mod 2 = 0, anc, 2)
   deb = Timer
   Do While Timer - deb < 0.2
     DoEvents
   Loop
  Next
End With

12/11/2010, 17h46
hichem94120

Merci de ta réponse:ccool:

En faite le code que j'ai posté, me permet déjà de faire clignoter la plage de cellule voulue.

Mon problème est que je n'arrive pas à exprimer ma condition dans la macro càd :

cellules comprises dans la plage clignotent si elle contiennent le texte "ABCD" sinon non.

Ça à l'air surement bête mais je débute et malgré mes recherches je ne trouve pas la syntaxe adéquate.

le code que je t'ai montré fait clignoter toutes les cellules d'une plage définie, de cellules adjacentes ou non !
ton problème est donc celui de constituer ta plage, puis de lui appliquer mon code..

Pas le temps de peaufiner (à toi de le faire, car ici, il me faut un peu bâcler car on m'attend).
ce sera donc du genre (par exemple et entre autres manières) de :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim anc As Integer, compteur As Integer, deb As Single, plage As Range, debut As Long, trouve As Range
  On Error Resume Next 'pour le cas où aucun "ABCD"
  Set trouve = Range("B2:B10").Find("ABCD").Find("ABCD")
  If Not trouve Is Nothing Then
    Set plage = trouve
    debut = trouve.Row
    Do
      Set trouve = Range("B2:B10").FindNext(trouve)
      Set plage = Union(plage, trouve)
      Loop While Not trouve Is Nothing And trouve.Row <> debut
  End If
  If Not plage Is Nothing Then
    With plage.Font
      anc = .ColorIndex
      For compteur = 1 To 20
       .ColorIndex = IIf(compteur Mod 2 = 0, anc, 2)
       deb = Timer
       Do While Timer - deb < 0.2
         DoEvents
       Loop
      Next
    End With
  End If

fais- cela de manière plus propre (je te fais confiance et laisse)

12/11/2010, 23h31
hichem94120

Désolé je n'avais pas percuté, je vais m'attarder plus longuement sur ton message.

Merci énormément pour ton temps.:ccool: