Comment faire scintiller un texte dans Excel
Étape 1
Ouvrez le fichier Microsoft Excel 2010 dans lequel vous souhaitez faire clignoter le texte. Appuyez sur les touches "Alt" et "F11" pour ouvrir la console VBA.
Étape 2
Faites un clic droit sur l'entrée "ThisWorkbook" sur le côté gauche de la console VBA. Déplacez votre souris sur "Insérer" et choisissez l'option "Module".
Étape 3
Double-cliquez sur l'option "ThisWorkbook". Copiez le code suivant et collez-le dans l'espace vide à droite de l'écran:
Private Sub Workbook_Open () Blink End Sub
Private Sub Workbook_BeforeClose (Annuler en tant que booléen) NoBlink End Sub
Ce code commence à côté du texte clignotant lorsque vous ouvrez ce livre, et le clignotement du texte s'arrête lorsque vous fermez le livre, une fois que vous avez inséré le code pour indiquer à Excel ce que signifie "clignoter" et "ne pas clignoter".
Étape 4
Double-cliquez sur "Module 1" dans la liste située à gauche de l'écran. Placez le curseur à droite de l'écran et écrivez la ligne suivante:
Public Timecount Comme Double
Cela crée une variable appelée "Timecount" qui peut être utilisée dans chaque sous-programme.
Étape 5
Appuyez sur Entrée pour déplacer le curseur sur la ligne suivante et écrivez le code suivant:
Sous-clignotement () avec ThisWorkbook.Worksheets ("Sheet1"). Range ("A1: A10"). Font If .ColorIndex = 3 Then .ColorIndex = 2 Sinon .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Application.OnTime Timecount, "Blink", True End Sub
Cela crée un sous-programme appelé "Clignotant" qui fera clignoter tout le texte de la plage définie. Vous pouvez modifier la plage de "A1: A10" en la plage de votre choix, y compris une cellule individuelle.
Étape 6
Appuyez sur la touche "Entrée" pour accéder à la ligne suivante et écrivez le code suivant:
Sub noblink () ThisWorkbook.Worksheets ("Sheet1"). Range ("A1: A10"). Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime Timecount, "Clignotement", False End Sub
Cela créera un sous-programme qui sera exécuté lorsque vous fermerez le livre. Il convertira tout le texte en noir, de sorte qu'une personne qui ouvre accidentellement le livre sans que les macros ne soient activées ne verra plus 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 sélectionnez "Enregistrer sous". Sélectionnez "Excel activé pour les macros de livre" dans le champ déroulant et entrez un nom pour le livre. Cliquez sur "Enregistrer".
Étape 8
Fermez le fichier Excel et 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 afficher le texte clignotant.
