Rapport de message :*
 

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