Monsieur Excel
Pour tout savoir faire sur Excel !

14 avril 2018

Faites votre cinéma avec Excel

Le modèle que nous avons mis au point dans le dernier article permet de modifier facilement le point de départ d’une série graphique.

Pour montrer cette évolution en continu, en un mot pour faire du cinéma avec Excel, il suffit d’écrire une macro qui modifiera la valeur de C1 entre ses limites actuelles 0 et 350.

Pour commencer, nous modifions la définition des cellules C1 et C2. En C1, nous entrons la formule =index(A:A;C2), et nous entrons la valeur 2 en C2.

Nous créons la macro suivante, que nous associons au bouton Cinéma en bas et à gauche du graphe.

Sub Movie()
For i = 1 To 400
    Range("C2") = i
    For j = 1 To 50
        x = x + 12 ^ 2
    Next j
    Application.ScreenUpdating=True
Next i
End Sub

Dès que l’on clique fans le bouton, on observe le film attendu, à une condition : il faut pour cela avoir utilisé une version d’Excel antérieure à Excel 2016.


La boucle For..Next sert à ralentir le film qui, autrement, tourne trop vite. S’il tourne trop vite pour vous ou trop lentement, modifiez le 50.

Si vous utilisez Excel 2016, voyez si vous trouvez le moyen de faire ce qu’il faut pour obtenir le film désiré. Je vous donnerai la réponse dans mon prochain article mais je vous préviens : ce n’est ni naturel ni simple à trouver…

rédigé par Hervé Thiriez | 1 commentaire(s)

1 Commentaire(s):

  • Bonjour,

    Pourquoi ne pas utiliser la fonction Timer de vba pour récupérer les millisecondes.
    Ainsi, on pourrait laisser choisir à l'utilisateur la vitesse du film.

    Sub WaitInMs(ms As Long)
    Dim StartMs As Double
    StartMs = Timer
    While StartMs + ms / 1000 > Timer
    DoEvents
    Wend
    Debug.Print ms & " ms écoulées"
    End Sub


    Benjamin.

    By Blogger Benji, sur 6:03 PM  

Enregistrer un commentaire

<< Accueil