Horloge

Bonjour Pascal;
Un truc simple; dans le module UserForm:
Private oTimer As Boolean

Private Sub LabelTimer()
Dim Start As Single
1: Start = Timer
While Timer < Start + 0.1: DoEvents: Wend
If Label1 <> Time Then Label1 = Time
If oTimer Then GoTo 1
End Sub

Private Sub UserForm_Activate()
oTimer = True: LabelTimer
End Sub

Private Sub UserForm_Initialize()
Label1 = Time
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
oTimer = False
End Sub

MP

"Pascal2" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:134901c4ad15$96426a70$a301280a@phx.gbl...
Bonour à tous,
je voudrais avoir une horloge fonctionnelle dans une "
userform" sous VB
Merci de votre aide......
@+ Cordialement

Bonjour,
En cherchant sur la toile, j'ai trouvé ce site
http://www.infini-fr.com
C'est du VB6 mais ça marche très bien en VBA
Aller sur ce site et télécharger le fichier clock.zip
Extraire les fichiers contenus dans un répertoire temporaire
Dans ces fichiers extraits, recopier celui qui s'appelle infini.ocx dans le
répertoire où
se trouvent déjà les ocx utilisés par excel ( c:WindowsSystem32 pour moi )
Dans VBE, ajouter le contrôle à ceux disponibles Menu Outils/Contrôles
supplémentaires
et cocher le contrôle infini
Mettre ce contrôle dans le userform et c'est tout !

C'est simple non ?
CT

"Pascal2" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 134901c4ad15$96426a70$a301280a@phx.gbl...
Bonour à tous,
je voudrais avoir une horloge fonctionnelle dans une "
userform" sous VB
Merci de votre aide......
@+ Cordialement