Clignotement cellule sous condition
Résolu
bejao0763
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
bejao0763 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
bejao0763 Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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.
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.
3 réponses
-
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é
