Discussion :

[eliot.raymond]

Bonjour a tous et toutes, forum bonjour,

je souhaiterai SVP faire clignoter un mot en VBA simplement, réglable si possible

Ex Si A2=10 then "Erreur" et que le mot erreur clignote

Merci a vous et de votre temps bonne journée

Raymond

[DeaD78]

Bonjour,

Après avoir fouillé un peu je viens de trouver un petit truc sympa !

Alors tout d'abord t'as une procédure "Flash" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Flash()
    NextTime = Now + TimeValue("00:00:02") ' Fréquence du "Flash"
    With ActiveWorkbook.Styles("Flashing").Font
        If .ColorIndex = xlAutomatic Then .ColorIndex = 3
        .ColorIndex = 5 - .ColorIndex
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Tu peux changer les couleurs et tout ce qui t'intéresse !

Ensuite, dans ta macro principale tu mets un classique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Range("A2")="10" Then 
    Range("A3")="Erreur !!! Ca va exploser !!!"
    Call Flash
End if

Enfin, tu crées un style pour ta cellule A3 que tu appelles Flashing (tu mets ce que tu veux dans ton style).

Tu lances ta macro et youpi ! Ca marche ! (J'ai testé !)

[eliot.raymond]

Salut dead78 ,forum

Merci pour ta reponse rapide, juste pour savoir, je mets la procédure "Flash"

dans ThisWorkbook c'est bien ca SVP

Merci et a plus tard bonne apres midi

Raymond

[DeaD78]

Dans ThisWorkBook c'est bon ou bien dans un module si tu veux