Comment déplacer un objet à une vitesse déterminée en VBA ?
Ce tutoriel vidéo vous permettra de comprendre comment déplacer de manière fluide un objet en VBA pour créer une animation …
C’est quelque chose que j’ai déjà utilisé dans quelques applications, notamment le jeu des allumettes que vous pouvez télécharger ici.
Je vous mets à disposition le fichier de départ si vous voulez mettre en pratique ce tutoriel : deplacer.xls
Le tutoriel :
Et voici une copie du code qui permet de gérer les « micro-temps de pause », il vous sera peut-être utile un jour :
secondes = 0.1 timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop
D’autres animations au fonctionnement similaire sont à découvrir ici : Animations Excel
Pour progresser encore davantage en VBA, testez gratuitement la formation VBA avancée, comprenant des exercices pratiques ainsi qu’une suite de vidéos (du même auteur que celle que vous venez de visionner).
Commentaires :
-
#3 écrit par JR Il y a 10 mois
Excellent la vidéo. On comprend parfaitement la construction du code.
Je trouve les msgBOX tellement moche que j’ai utilisé ta méthode pour afficher et donc déplacer une image représentant un post-it et sur lequel j’avais écrit du texte avec photoshop.
Ce post-it apparaît à l’écran comme message d’alerte.
On pourrait même donner l’impression que le texte s’écrit sur le post-it en chevauchant plusieurs fois la même image mais avec un peu plus de texte à chaque fois. Ton tutoriel me donne des idées…..NB : tu ne pourrais pas mettre un bouton pour permettre de télécharger la vidéo de présentation?
Sinon, un grand merci.
-
-
-
#8 écrit par Pierre Cappe Il y a 3 mois
Cher Sébastien, cela fait plusieurs jours que je visionne cette vidéo, qui est vraiment intéressante à tout point de vue.
J’ai créé un dessin avec une macro, mais mon souhait serait de pouvoir regarder la macro au ralenti. Serait-il possible de se procurer le code de votre vidéo ?sinon, je peux copier sur la vidéo, mais ce n’est pas pratique.
Un grand merci pour tout
Papy Pierrot -
Le voila :
Sub rechercher() 'http://www.blog-excel.com/comment-deplacer-un-objet-en-vba If Sheets("Feuil1").TextBox_recherche.Value = "" Then 'Si champ vide Sheets("Feuil1").Shapes("Fleche").Top = 7.5 Sheets("Feuil1").Shapes("Fleche").Left = 306 Range("A1").Select secondes = 0.01 For ii = 1 To 3 For i = 3 To 117 Step 3 timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop Sheets("Feuil1").Shapes("Fleche").Left = 306 - i Range("A1").Select Next For i = 3 To 117 Step 3 timer_avant = Timer Do While Timer < timer_avant + secondes DoEvents Loop Sheets("Feuil1").Shapes("Fleche").Left = 189 + i Range("A1").Select Next Next Sheets("Feuil1").Shapes("Fleche").Left = 2000 Else 'Si champ rempli 'Instructions pour la recherche ici ... End If End Sub
-
- Flux de commentaires pour cet article
Merci Sébastien pour ce code.
Il me servira très certainement.
J’apprécie tes vidéos ; tes explications sont très claires.
Amicalement
Nad