Titre du sujet : Re: Horloges multiples dans userform
par MARLOT le 04/11/2011 20:58:36
Bonsoir Myta et Webmester
La précipitation effectivement liée à un peu d'empressement ..pourtant respectons les codes cela reste effectivement primordial !
Cette macro apparait effectivement sur une feuille!(MDFhorlogedigitale)
Elle est parfaite sur une feuille ,mais je
je souhaiterais la transposer sur plusieurs champs d'un formulaire (Turnararoundu2)
Il me semblait pratique de donner à l'utilisateur la possibilité de cliquer directement sur un champs "text box" plutôt que saisir les données manuellement.
Exemple :
Il est 8H22
Une étape du processus vient d'être réalisée je cliques sur la text box 1 et l'heure s'inscrit automatiquement dans le champs nommé "textbox1!
Cette donnée est ensuite reportée dans une feuille pour d'autres types de calcul
Idem pour la text box 2
ect...
Je vous remercie pour vos conseils et suggestions
Désolé pour le raccourci !
Cdlt
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' www.mdf-xlpages.com
' Date : 18/06/2006
' Sujet : Horloge Digitale
'---------------------------------------------------------------------------------------
Dim Temps As Date
Public Sub MAJHorloge()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "MAJHorloge"
'MAJ de l'horloge
ThisWorkbook.Sheets(1).Shapes("Horloge").TextFrame.Characters.Text = Format(Now, "hh:mm:ss")
End Sub
Public Sub StopHorloge()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "MAJHorloge", , False
End Sub
Public Sub GoStop()
Static Go As Boolean
If Not Go Then
MAJHorloge
Go = True
Else
StopHorloge
Go = False
End If
End Sub
|
Didier FOURGEOT