Aide exécution macro

[Lone-wolf]

Bonjour le Forum,

j'ai créé des effets sur un formulaire;
MichelXLD pour l'animation et Boisgontier pour le clignotement d'un label.
J'ai mixé les deux effets, mais je n'arrive pas à faire exécuter
l'effet sur fermeture du formulaire.

effet: AnimateWindow Valeur, 10000, &H80000 Or &H40000 Or &H10000
Unload Me.

Fichier joint: Animation

 

[tototiti2008]

Re : Aide exécution macro

Bonjour Lone-wolf,

Et qui est aux platines ?

Oups, désolé 😛

On peut quand même se demander si tu ne devrais pas envisager de passer par des logiciels comme Powerpoint, Flash, Director, After Effects... plutôt qu'Excel... Mais ce n'est qu'un avis

 

[Lone-wolf]

Re : Aide exécution macro

MDR! tototiti 😀

Qui est aux platines???... le cuisteau!! 😛

Et pourquoi s'en passé, hein! 😉

 

[phlaurent55]

Re : Aide exécution macro

Bonjour à tous,

à essayer:

Sub Clignote(nb, label)
Dim n As Long, fin As Long
 n = 0
 Do While n [SIZE=4][COLOR=blue][B]< 100[/B][/COLOR][/SIZE]
  UserForm1(label).Visible = Not UserForm1(label).Visible
   fin = Timer + 0.9
   Do While Timer < fin:  DoEvents:  Loop
   n = n + 1
 Loop
End Sub

à+
Philippe

 

[Lone-wolf]

Re : Aide exécution macro

Bonjour Laurent,

j'ai mis 100, mais ça tourne en boucle et obligé de fermer excel par le gestionnaire des tâches.