Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.j
Bonjour Un truc comme çà: 'Ex de Valeur de ColorIndex: '1= noir, 2= blanc, 3= rouge, 4= vert, '5= bleu, 6 jaune Sub Clignot2() Range("A1").Select If [a1] = "admis" Then For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 3 End With
Application.Wait Now + TimeValue("00:00:01")
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With
Application.Wait Now + TimeValue("00:00:01")
Next End If End Sub
Daniel ===================== FAQ MPFE http://dj.joss.free.fr/faq.htm ===================== "titi" a écrit dans le message de news:
Bonjour,
Est il possible si oui comment, de faire clignoter une cellule en fonction de son contenu ?
Exemple :
Pour des résultats d'examen, si dans la cellule apparaît "Admis" je voudrais que le texte soit s'affiche en rouge et clignote.
Merci.
Thierry
Bonjour
Un truc comme çà:
'Ex de Valeur de ColorIndex:
'1= noir, 2= blanc, 3= rouge, 4= vert,
'5= bleu, 6 jaune
Sub Clignot2()
Range("A1").Select
If [a1] = "admis" Then
For compteur = 1 To 20
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 3
End With
Application.Wait Now + TimeValue("00:00:01")
With Selection.Font
.Name = "Arial"
.Size = 14
.ColorIndex = 0
End With
Application.Wait Now + TimeValue("00:00:01")
Next
End If
End Sub
Daniel
===================== FAQ MPFE
http://dj.joss.free.fr/faq.htm
=====================
"titi" <titi@wanadoo.fr> a écrit dans le message de news:
u1UrCb2EGHA.984@tk2msftngp13.phx.gbl...
Bonjour,
Est il possible si oui comment, de faire clignoter une cellule en fonction
de son contenu ?
Exemple :
Pour des résultats d'examen, si dans la cellule apparaît "Admis" je
voudrais que le texte soit s'affiche en rouge et clignote.
Bonjour Un truc comme çà: 'Ex de Valeur de ColorIndex: '1= noir, 2= blanc, 3= rouge, 4= vert, '5= bleu, 6 jaune Sub Clignot2() Range("A1").Select If [a1] = "admis" Then For compteur = 1 To 20 With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 3 End With
Application.Wait Now + TimeValue("00:00:01")
With Selection.Font .Name = "Arial" .Size = 14 .ColorIndex = 0 End With
Application.Wait Now + TimeValue("00:00:01")
Next End If End Sub
Daniel ===================== FAQ MPFE http://dj.joss.free.fr/faq.htm ===================== "titi" a écrit dans le message de news:
Bonjour,
Est il possible si oui comment, de faire clignoter une cellule en fonction de son contenu ?
Exemple :
Pour des résultats d'examen, si dans la cellule apparaît "Admis" je voudrais que le texte soit s'affiche en rouge et clignote.
Merci.
Thierry
vpco
Bonjour titi,
Va voir ICI : http://www.excelabo.net/xl/formats.php#clignotersi
tu devrais trouver ton bonheur.
Si tu ne comprends pas n'hésite pas, reviens !
Cordialement.
Excel...lent
Bonjour titi,
Va voir ICI : http://www.excelabo.net/xl/formats.php#clignotersi
