Bonjour à tous, je me tourne vers vous pour essayer de trouver une réponse à mon tout petit problème, n'étant pas un gros connaisseur en VBA.
J'utilise une macro pour faire clignoter des cellules suivant une valeur, dans plusieurs fichiers en même temps, que j'ai trouvé sur ce forum.
Ainsi dans chaque fichier, j'ai inscrit dans la page "ThisWorkbook" le code suivant :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Arrêt Clignotement
ArrêtEclairage
End Sub
Private Sub Workbook_Open()
'Activation Clignotement
Eclairage
End Sub
Et dans la page Module1:
Dim vNow As Variant
Public Sub Eclairage()
vNow = Now + TimeValue("00:00:01")
Application.OnTime vNow, "Eclairage"
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - [VarEclairage]
End Sub
Public Sub ArrêtEclairage()
On Error Resume Next
Application.OnTime EarliestTime:=vNow, _
Procedure:="Eclairage", Schedule:=False
ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=0
End Sub
Cependant lorsque j'ai 2 fichiers ouverts et qui ont cette macro, cela perturbe le clignotement des cellules qui devient irrégulier et anarchique, et celui-ci n'est pas visible dans le fichier sur lequel je ne travaille pas mais qui est affiché (ceci étant sans doûte dû à ActiveWorkbook.Names.Add Name:="VarEclairage", RefersToR1C1:=1 - ?)
Avez-vous la moindre idée pour laisser visible le clignotement ?
Je vous remercie pour votre attention ainsi que toute l'aide que vous pourriez m'apporter.
Bonne journée
Mppnc