Discussion :

[tmlpqsdpmdlc]

Bonjour,

J'ai une macro de clignotement qui marche très bien à un détail près.

En effet, je dois impérativement fermer le classeur où les cellules clignotent en dernier. Sinon il se ferme et se rouvre.

De plus, quand j'ai plusieurs classeurs avec la macro de clignotement, je ne peux fermer les classeurs qu'en stoppant le clignotement (break).

Comment faire pour fermer les classeurs normalement ?

module1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim nextTime As Date
 
Public Sub Clignotement()
 
    With ThisWorkbook.Styles("Flashing")
        If .Font.ColorIndex = 7 Then
            .Font.ColorIndex = 46
            .Interior.ColorIndex = 8
        Else
            .Font.ColorIndex = 7
            .Interior.ColorIndex = 4
        End If
    End With
 
 
 
    nextTime = Now() + TimeValue("00:00:01")
    Application.OnTime nextTime, "Clignotement"
 
End Sub
 
 
Public Sub stopClignotement()
    Application.OnTime nextTime, "Clignotement", False
End Sub

ThisWorkBook

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
    Clignotement
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    stopClignotement
End Sub

Pour comprendre le code, je dirai que j'ai créé un style de cellule personnalisé nommé flashing pour appliquer le clignotement

Merci de votre aide

[antonysansh]

Bonjour tmlpqsdpmdlc,

Lorsque j'utilise ton code, ça clignote très bien, lorsque je veux le stopper, il s'arrête mais Excel continu de boucler la macro toute les secondes.
Je pense que le problème vient de là.

Toutes mes autres macro ne s'exécute plus car passe en mode arrêt chaque secondes une fois le fichier contenant ton code est fermé.

Je pense que la bonne syntaxe est :

Code :

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

1
2
3
Public Sub stopClignotement()
    Application.OnTime nextTime, "Clignotement", , False
End Sub

Pour rappel sur Application.OnTime : Sub OnTime(EarliestTime, Procedure As String, [LatestTime], [Schedule])

[tmlpqsdpmdlc]

Super ça marche !

Merci

[antonysansh]

RE,
Content d’avoir pu t’aider.
Même si le problème est résolue, je te propose d'ajouter une petite ligne a ton Sub stopClignotement :

Code :

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

1
2
3
4
Public Sub stopClignotement()
    On Error Resume Next
        Application.OnTime nextTime, "Clignotement", , False
End Sub

Ainsi si ton processus et arrêté avant la fermeture du fichier, tu n'auras pas d'erreur et de debug à faire

[tmlpqsdpmdlc]

Merci
j'ajoute ça à mon code !