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.
A voir également:
- Excel faire clignoter une cellule
- Excel cellule couleur si condition texte - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Déplacer une colonne excel - Guide
3 réponses
Bonjour,
on se lasse très vite des clignotements de cellules, mais....
A toi d'aménager pour l'adresse de la cellule la condition et la couleur
a insérer dans le module feuille concerné
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é
