Clignotement cellule sous condition Résolu/Fermé

Question

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.

Sub Flash()
Range("H2", "H500").Select

For compteur = 1 To 20
With Selection.Font
.Name = "Calibri"
.Size = 8
.ColorIndex = 2
End With

Application.Wait Now + TimeValue("00:00:01")

With Selection.Font
.Name = "Calibri"
.Size = 8
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")

Quelqu'un aurait-il une idée?

Merci d'avance.

michel_m · Answer

Bonjour,
on se lasse très vite des clignotements de cellules, mais....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Fait clignoter une cellule 3 fois pendant 3 secondes si sa valeur est égale ou supérieure à 5
Dim i As Byte

'si la cellule active n'est pas E3 ou si E3 est inférieur à 5 on sort de la procédure
If Intersect(Target, Range("E3")) Is Nothing Or Target.Value < 5 Then: Exit Sub

For i = 1 To 3
    DoEvents
    Application.Wait Now + TimeValue("00:00:01") ' 1 seconde
    Range("E3").Font.ColorIndex = 46 ' 46= couleur Orange
    Application.Wait Now + TimeValue("00:00:01")
    Range("E3").Font.ColorIndex = 0
Next i

End Sub


A toi d'aménager pour l'adresse de la cellule  la condition et la couleur

a insérer dans le module feuille concerné

bejao0763 · Answer

Merci de ta réponse. Je suis en faite satisfait de la structure du premier code que j'ai posté. Cependant, mon problème exacte réside plus dans le fait d'introduire une condition au clignotement.

Le code actuel fait clignoté toutes les cellules de la place "H2","H500" peut importe le contenu de celles ci. 

De mon coté, je souhaiterais que le clignotement ne se fasse que lorsqu'une certaine chaine de caractère est contenu dans ces cellules.

Exemple:

"H2" = ECHEANCE DEPASSEE DE 5 JOURS

clignotement si "H2" contient "ECHEANCE DEPASSE"

Malgré une recherche sur la toile, je suis novice et je n'ai pas réussi à débusquer l'info salvatrice.

Merci encore.

bejao0763 · Answer

Merci pour la devinette...Très constructive?

Clignotement cellule sous condition

3 réponses

Discussions similaires