Clignotement cellule sous condition

Résolu/Fermé

Condition

bejao0763 Messages postés 6 Date d'inscription jeudi 11 novembre 2010 Statut Membre Dernière intervention 12 novembre 2010 - 12 nov. 2010 à 10:29
bejao0763 Messages postés 6 Date d'inscription jeudi 11 novembre 2010 Statut Membre Dernière intervention 12 novembre 2010 - 12 nov. 2010 à 15:01

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.

A voir également:

Excel faire clignoter une cellule sous condition
Excel cellule couleur si condition texte - Guide
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide

3 réponses

Réponse 1 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
12 nov. 2010 à 10:55

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é

Réponse 2 / 3

bejao0763 Messages postés 6 Date d'inscription jeudi 11 novembre 2010 Statut Membre Dernière intervention 12 novembre 2010
12 nov. 2010 à 11:08

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.

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
12 nov. 2010 à 14:35

D'après toi:

'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

ca veut dire quoi ?

Abandon du suivi

Discussions similaires

Formule comprise entre 2 valeurs./Excel

excel remplir une cellule d'une couleur

Excel effacer contenu cellule

EXCEL - "Compter avec une condition"

copier la valeur d'une cellule sous condition

VBA: colorer une cellule si condition vérifée

Discussions similaires

Newsletters