Re: Horloges multiples dans userform |
Titre du sujet : Re: Horloges multiples dans userform par MARLOT le 03/11/2011 20:23:38 Bonsoir Myta Le fichier est le suivant rattaché à une macro sur une feuille 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 Ce que je souhaites c'est pouvoir rattacher la même macro (fonction) sur plusieurs controles X du type textbox mERCI Cdlt |
Forums