Sablier en mouvement

bonsoir le forum

voila je recherche comment dans un useforme mettre en mouvement un sablier pendant enregistrement du dossier

enfin si cela peut être fait

merci pour toute précision

amicalement

Bonsoir le forum,

A adapter éventuellement.

merci mbbp c'est super mais il y a toujours un mais tu l aurais pas en couleur aussi

mais super travaille merci

amitié

Merci pour ta réponse.

alors chapeaux bas le magicien et ses formules

pour pas refaire un autre poste j ai un useforme je recherche pour qu il s affiche un temps voulus et se retire une fois le temps écoulé

Bonjour gardian, mbbp, le forum,

j ai un useforme je recherche pour qu il s affiche un temps voulus et se retire une fois le temps écoulé

Regarde ici: pour le fermer automatiquement au bout de x secondes

Cordialement,

merci beaucoup pour ton message xorsankukai

j ai bien vus mais le macro fonctionne pas chez moi je recherche encore pourquoi

amitié

Bonsoir xorsankukai,

Private Sub UserForm_Activate()
    Application.Wait Now + TimeValue("00:00:05")
    Unload Me
End Sub

Permet bien de fermer l'USF après le temps défini.

Mais l'animation ne fonctionne plus.

Private Sub UserForm_Activate()
    temps = Now + TimeValue("00:00:05")
    Application.OnTime temps, "recording"
End Sub

Et dans un module :

Sub recording()
    UserForm1.Hide
End Sub

Avec une barre de progression.