Utilisation d'API pour transparence de Userform

[akibodo]

Bonjour à tous,

J'ai trouver sur internet par hazard une macro qui permet de faire une boucle afin de rendre un Userform de transparant à apparant à 100%.

Cette boucle est lancée et controlée par un CheckBox.

Je cherche à modifier cette macro pour que la boucle se lance à l'initialisation de la Userform.

Je met le fichier en pièce jointe, malgrès tous mes efforts je trouve rien qui marche.

Le seul truc que j'ai réussi c'est de faire que la boucle se lance au démarrage (enfin je croix) mais on ne vois rien sauf une fois la boucle fini (autrement dis aucun intérêt)

Merci d'avance pour vos idées.

A bientôt

 

[Compte Supprimé 979]

Re : Utilisation d'API pour transparence de Userform

Salut Akibodo,

Je cherche à modifier cette macro pour que la boucle se lance à l'initialisation de la Userform

Et quel intérêt !?

A+

 

[akibodo]

Re : Utilisation d'API pour transparence de Userform

Re le forum,

l'intérêt est de pouvoir utiliser le faite de faire apparaitre doucement un userform à son ouverture .

A+

 

[Compte Supprimé 979]

Re : Utilisation d'API pour transparence de Userform

Salut Akibodo,

l'intérêt est de pouvoir utiliser le faite de faire apparaitre doucement un userform à son ouverture

Aaaaahhhh yeeeesss

Je n'avais pas vu ça comme ça
Peut-être un peu lourd au quotidien, mais bon ...

Ci-joint ton fichier modifié, il fat mettre la boucle de tansparence dans l'évènement Activate

A+

 

[akibodo]

Re : Utilisation d'API pour transparence de Userform

Re BrunoM45, le forum,

Merci pour cette réponse, c'est vrai que ça peut être un peu lourd mais c'est juste à l'ouverture pour faire un peu fun

Sinon je connaissais pas UserForm_Activate() c'est bien pratique ^^

J'ai juste modifier au niveau du temps d'attente ce qui permet de rendre l'apparition plus fluide (sur mon PC en tout cas)

Voilà le code final pour ceux que ça pourrais intéréssé :

Private Sub UserForm_Activate()
  Dim iTransparence As Integer
  For iTransparence = 100 To 0 Step -1
    ' Lancer la boucle
    Transparence (iTransparence)
    ' Patienter 1 seconde pour ne pas aller trop vite
'    newHour = Hour(Now())
'    newMinute = Minute(Now())
'    newSecond = Second(Now()) + 10
'    waitTime = TimeSerial(newHour, newMinute, newSecond)

sMemo = Timer
   While Abs(sMemo - Timer) < 0.015
    DoEvents
   Wend

  Next
End Sub

Merci encore

A bientôt

 

[Compte Supprimé 979]

Re : Utilisation d'API pour transparence de Userform

Re,

Merci pour cette réponse, c'est vrai que ça peut être un peu lourd mais c'est juste à l'ouverture pour faire un peu fun

C'est vrai que c'est vraiment Fuuuunnnn,

Je ne te l'ai pas dis avant, mais j'aaaadddddooooorrrreeee

Merci pour le code

A+

 

[MichelXld]

Re : Utilisation d'API pour transparence de Userform

bonjour

d'autres exemples pour personnaliser l'affichage du userform:

https://www.excel-downloads.com/threads/personnaliser-laffichage-des-userform.22760/

https://www.excel-downloads.com/attachments/animation_affichage_userform-zip.12069/



bon week end
michel

 

[Compte Supprimé 979]

Re : Utilisation d'API pour transparence de Userform

Bonjour à toi MichelXLD, au grand maitre incontesté

Mille fois merci pour le lien, je vais aller voir de ce pas

Bon week end à toi

 

[akibodo]

Re : Utilisation d'API pour transparence de Userform

Re le forum,

Merci pour ces liens, ça met un peu de fun dans les applications !

Merci encore à ce super forum

A bientôt