Discussion :

[hichem94120]

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 :

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

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

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.

[babaothe]

salut

quelque chose ressemblant à ceci ?

Code :

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

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

[hichem94120]

Merci de ta réponse

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.

[babaothe]

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 :

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

[hichem94120]

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

Merci énormément pour ton temps.