arrêter un timer ds une routine

Bonjour,

je ne trouve pas cela très "clean" car par ce code tu rempli la pile de ta succession de procédure...

mais si tu insistes ceci fonctionne :

Public Sub Timer1_Timer()
If Worksheets(1).CommandButton3.ForeColor = &HFF& Then
Dim Start
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + 0.5
        DoEvents    ' Donne le contrôle à d'autres processus.
        If Worksheets(1).CommandButton3.ForeColor = &HFF& Then Worksheets(1).CommandButton3.Caption = ""
    Loop
    Timer2_Timer
End If
End Sub

Public Sub Timer2_Timer()
If Worksheets(1).CommandButton3.ForeColor = &HFF& Then
Dim Start
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + 0.5
        DoEvents    ' Donne le contrôle à d'autres processus.
        Worksheets(1).CommandButton3.Caption = "Annulation"
    Loop
Timer1_Timer
End If
End Sub

Private Sub CommandButton1_Click()
    Worksheets(1).CommandButton3.ForeColor = &HFF&
Timer1_Timer
End Sub

Private Sub CommandButton3_Click()
Worksheets(1).CommandButton3.ForeColor = &H0&
Worksheets(1).CommandButton3.Caption = "Annulation"
End Sub

'DANS TON MODULE
Public Timer1 As Boolean 
Public Timer2 As Boolean 
'
Public Sub Timer1_Timer() 
    Dim Start As Long 

    If Worksheets(1).CommandButton3.ForeColor = &HFF& Then 
        Start = Timer     ' Définit l'heure de début.
        Do While Timer < Start + 0.5 
            DoEvents     ' Donne le contrôle à d'autres processus.
            If Worksheets(1).CommandButton3.ForeColor = &HFF& Then Worksheets(1).CommandButton3.Caption = "" 
            If Not Timer1 Then Exit Do 
        Loop 
        Timer2 = True 
        Call Timer2_Timer 
    End If 
    Timer1 = False 
End Sub 
'
Public Sub Timer2_Timer() 
    Dim Start As Long 
    If Worksheets(1).CommandButton3.ForeColor = &HFF& Then 
        Start = Timer     ' Définit l'heure de début.
        Do While Timer < Start + 0.5 
            DoEvents     ' Donne le contrôle à d'autres processus.
            Worksheets(1).CommandButton3.Caption = "Annulation" 
            If Not Timer2 Then Exit Do 
        Loop 
        Timer1 = True 
        Call Timer1_Timer 
    End If 
    Timer2 = False 
End Sub 



'DANS TON USERFORM OU WORKSHEET OU J'SAIS PAS TROP QUOI ^^
'
Private Sub CommandButton1_Click() 
    Worksheets(1).CommandButton3.ForeColor = &HFF& 
    Timer1 = True 
    Call Timer1_Timer 
End Sub 
'
Private Sub CommandButton3_Click()
    Timer1 = False
    Timer2 = False
    Worksheets(1).CommandButton3.ForeColor = &H0& 
    Worksheets(1).CommandButton3.Caption = "Annulation" 
End Sub

Coloration syntaxique automatique [AFCK]
       

++
PCPT   [AFCK]