Comment faire clignoter du texte dans Excel avec VBA

Excel n'a pas d'option « texte clignotant » en standard. Mais avec VBA (Visual Basic for Applications), on peut créer une macro qui change la couleur du texte périodiquement pour simuler un clignotement.

Étape 1 : Ouvrir l'éditeur VBA

Ouvrez votre fichier Excel 2010. Appuyez Alt+F11.

Étape 2 : Créer un module

Dans l'explorateur de projets (à gauche), clic droit sur « ThisWorkbook » > Insertion > Module.

Étape 3 : Code de démarrage/arrêt (ThisWorkbook)

Double-cliquez « ThisWorkbook » et collez :

Private Sub Workbook_Open()
    Blink
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    NoBlink
End Sub

Ce code lance « Blink » à l'ouverture et « NoBlink » à la fermeture.

Étape 4 : Déclarer la variable publique (Module1)

Double-cliquez « Module1 » et entrez :

Public Timecount As Double

Étape 5 : Sub « Blink » (fait clignoter)

Ajoutez :

Sub Blink()
    With ThisWorkbook.Worksheets("Feuil1").Range("A1:A10").Font
        If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3
    End With
    Timecount = Now + TimeSerial(0, 0, 1)
    Application.OnTime Timecount, "Blink", , True
End Sub

Modifiez "Feuil1" et "A1:A10" selon votre feuille et plage cible.

Étape 6 : Sub « NoBlink » (arrête et remet en noir)

Ajoutez :

Sub NoBlink()
    ThisWorkbook.Worksheets("Feuil1").Range("A1:A10").Font.ColorIndex = xlColorIndexAutomatic
    Application.OnTime Timecount, "Blink", , False
End Sub

Étape 7 : Enregistrer en format macro

Fermez l'éditeur VBA. Fichier > Enregistrer sous > choisissez « Classeur Excel avec macros (.xlsm) ».

Étape 8 : Tester

Fermez et rouvrez le fichier. Le texte dans la plage définie clignote. Activez les macros si demandé.