Comment faire clignoter du texte dans Excel

Excel ne propose pas de texte clignotant ou clignotant comme option de police. Cependant, à l'aide de Visual Basic pour Applications intégré à Excel, vous pouvez utiliser du code pour faire en sorte que le texte change de couleur à chaque section, créant ainsi un effet clignotant.

Étape 1

Ouvrez le fichier Microsoft Excel 2010 dans lequel vous souhaitez faire clignoter le texte. Appuyez sur "Alt" et "F11" pour ouvrir la console VBA.

Étape 2

Cliquez avec le bouton droit sur l'entrée "ThisWorkbook" sur le côté gauche de la console VBA. Déplacez votre souris sur "Insérer" et choisissez "Module".

Étape 3

Double-cliquez sur l'option "ThisWorkbook". Copiez le code suivant et collez-le dans l'espace blanc sur le côté droit de l'écran :

Sous-classement privé_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) NoBlink End Sub

Ce code démarrera et le texte clignotant lorsque vous ouvrirez ce classeur, et arrêtera le texte clignotant lorsque vous fermerez le classeur, une fois que vous aurez inséré le code pour indiquer à Excel ce que signifient réellement Blink et NoBlink.

Étape 4

Double-cliquez sur "Module 1" dans la liste sur le côté gauche de l'écran. Placez votre curseur sur le côté droit de l'écran et saisissez la ligne suivante :

Compte de temps public en double

Cela crée une variable appelée "Timecount" que vous pouvez utiliser dans chaque sous-programme.

Étape 5

Appuyez sur Entrée pour déplacer le curseur sur la ligne suivante et saisissez le code suivant :

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

Cela crée une sous-routine appelée "Blink" qui fera clignoter tout le texte dans la plage définie. Vous pouvez modifier la plage de "A1:A10" à la plage de votre choix, y compris une cellule individuelle.

Étape 6

Appuyez sur "Entrée" pour accéder à la ligne suivante et saisissez le code suivant :

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

Cela créera une sous-routine qui s'exécutera lorsque vous fermerez le classeur. Il remet tout le texte en noir, de sorte qu'une personne qui ouvre le classeur sans que les macros soient activées ne verra accidentellement rien dans les zones de texte.

Étape 7

Fermez la console VBA en cliquant sur le "X" dans le coin supérieur droit. Cliquez sur l'onglet "Fichier" en haut de l'écran et choisissez "Enregistrer sous". Sélectionnez « Excel Macro-enabled Workbook » dans le champ déroulant et tapez un nom pour le classeur. Cliquez sur "Enregistrer".

Étape 8

Fermez le fichier Excel puis rouvrez-le. Votre texte, dans la plage définie dans la macro, commencera à clignoter. En fonction de vos paramètres de sécurité, vous devrez peut-être cliquer sur le bouton "Activer les macros" en haut de l'écran pour voir le texte clignotant.