Comment faire clignoter une forme en continu dans Excel ?

Si vous souhaitez faire clignoter une forme en continu dans une feuille de calcul, cet article va vous montrer comment procéder.

Faire clignoter une forme en boucle avec du code VBA

Faire clignoter une forme en boucle avec du code VBA

Dans la feuille de calcul, pour créer un effet de forme clignotante, veuillez suivre les étapes ci-dessous.

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code.

Code VBA : faire clignoter une forme en boucle dans une feuille de calcul

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

Remarques :

3. Appuyez simultanément sur les touches Alt + Q pour quitter la fenêtre Microsoft Visual Basic for Applications.

4. Insérez un bouton dans la feuille de calcul en cliquant sur Développeur > Insérer > Bouton (Contrôle de formulaire), comme indiqué dans la capture d'écran ci-dessous.

5. Dans la boîte de dialogue Assigner une macro qui apparaît, sélectionnez Flash dans la zone Nom de la macro, puis cliquez sur le bouton OK.

6. Modifiez ensuite le texte affiché sur le bouton selon vos besoins. Dans ce cas, je change le texte affiché en Démarrer le clignotement, comme illustré dans la capture d'écran ci-dessous.

7. Répétez les étapes 4 et 5 ci-dessus pour insérer un nouveau bouton et attribuer la macro StopIt à ce bouton.

8. Modifiez le texte affiché sur ce nouveau bouton.

Vous pouvez alors voir deux boutons attribués à différentes macros insérés dans la feuille de calcul. Voir la capture d'écran :

Dès maintenant, lorsque vous cliquez sur le bouton Démarrer le clignotement, la forme commence à clignoter avec différentes couleurs. Si vous souhaitez arrêter le clignotement, veuillez cliquer sur le bouton Arrêter le clignotement.

Article connexe :

• Comment faire clignoter ou flasher le texte d'une cellule spécifiée dans Excel ?