XL 2016 graph anime

[jeanluck]

bonjour chers tous, mes voeux les meilleurs a tous.
j'ai ce fichier de gestion des journaliers. de mon entreprise. je souhaite avoir un graphique anime toutes les minutes.

 

[job75]

Bonjour,

je souhaite avoir un graphique anime toutes les minutes.

Animé ??? Peut-être avec ceci dans ThisWorkbook :

Private Sub Workbook_Open()
Application.OnTime 1, "ThisWorkbook.Anime" 'lance la macro
End Sub

Sub Anime()
Dim n
Static t
With ActiveWindow
    For n = 1 To 3
        .Zoom = 150
        Application.Wait Now + 1 / 86400 '1 seconde
        .Zoom = 100
        Application.Wait Now + 1 / 86400 '1 seconde
    Next
End With
On Error Resume Next
Application.OnTime t, "ThisWorkbook.Anime", , False 'RAZ
t = Now + 1 / 1440 '1 minute
Application.OnTime t, "ThisWorkbook.Anime"
End Sub

A+

 

[jeanluck]

bonjour,
je n'arrive pas a ouvrir le fichier. je vous prie de m'aider

 

[job75]

Peut-être clic droit sur l'icône => Propriétés => cochez "Débloquer".

 

[jeanluck]

j'ai essaye mais je ne parviens toujours pas

 

[job75]

Peut-être que vous ne savez pas télécharger les fichiers ?

Clic droit sur l'icône du post #2 => Enregistrer le lien sous.