cellule clignotante

[reno]

Bonjour a tous!


Y a t il une macro pour faire clignoter le texte d une cellule? le fond d une cellule?


merci

reno

 

[Phil]

Bonjour reno,

j'ai posé quasiment la même question hier matin, et michel m'a repondu en me donnant plusieurs exemples.

Regarde sur le fil d'hier matin, il se nomme cellule clignotante.

J'espère que ça pourra te convenir, car moi c'était des chiffres.


@+

phil

 

[reno]

Merci Phil,

cependant mon ordinateur m enteche le telechargement de zip o excel

Pourrais tu faire un copier coller du code stp?

Merci
reno

 

[Phil]

Je te met le code du dernier exemple que michel m'a donné. Les chiffres de la colonne C clignotent si ceux ci sont inférieur aux chiffres de la colonne B.

Sub Clignotement2()

Dim fond
Dim i
Dim dixxx
Dim zr
Dim zr2

zr = ""

On Error GoTo line

For Each dixxx In Range("c7:c200")

fond = dixxx.Interior.ColorIndex

If dixxx.Value < dixxx.Offset(0, -1).Value Then

zr = zr & "," & dixxx.Address
zr2 = Mid(zr, 2)

End If

Next

Range(zr2).Select
fond = Selection.Interior.ColorIndex

For i = 1 To 5

Application.Wait Now + TimeValue("00:00:01")
Selection.Interior.ColorIndex = 10
Application.Wait Now + TimeValue("00:00:01")
Selection.Interior.ColorIndex = 7

Next i

Selection.Interior.ColorIndex = fond

Range("a1").Select

line:
Exit Sub



End Sub

Si tu en veux un autre n'hésite pas. J'en ai un autre qui fait clignoter par exemple tous les chiffres 10.

bonne journée

@+

phil

 

[David]

Phil, je viens de lire ton post.

J'ai des cellules où il ya la valeur "VRAI".
Et j'aimerais bien faire clignoter si cette valeur s'affiche dans ma colonne S

merci pour le code 😉

David

 

[Phil]

Bonjour david,

je te mets le code qui fait clignoter les chiffres 10 d'une certaines plage de données, les unes après les autres.

A toi de modifier ce code pour qu'il fasse clignoter le texte Vrai à la place du chiffre 10.




Sub Clignotement2()

Dim fond
Dim i
Dim dixxx

For Each dixxx In Range("h8:w27")

If dixxx.Value = 10 Then

fond = dixxx.Interior.ColorIndex

For i = 1 To 3

Application.Wait Now + TimeValue("00:00:01")
dixxx.Interior.ColorIndex = 3
Application.Wait Now + TimeValue("00:00:01")
dixxx.Interior.ColorIndex = 5

Next

dixxx.Interior.ColorIndex = fond

End If

Next

Range("a1").Select

End Sub

bonne journée!!

@+

phil

 

[reno]

Phil et comment est ce qu on fait s il n y a aucune condition, si je veut juste faire clignoter les cellules O2 a S6

merci

reno