XL 2016 Forcer l'arrêt d'un Timer dès la sortie d'un Formulaire

Oneida à dit:

Bonjour,
Clignotant Ok, mais pour le 2/, faudrait deja savoir comment vous lancez la macro1 ouverture de l'UF 2.

Cliquez pour agrandir...

patricktoulon à dit:

Bonjour
il te faut un signal pour l’arrêter
un signal qui dit oui au depart et un signal qui dit non si tu ferme le userform
il te faut donc une variable global module userform
il ne s'arrête pas de clignoter tant que le userform est ouvert

VB:

Option Explicit
Public clignote As Boolean
Private Sub CommandButton1_Click()

    If TextBox1.Value = "laurent2105" Then
        With UserForm1
            .TextBox1.Value = 200
            .TextBox2.Value = 6
            .TextBox3.Value = 9
            .TextBox4.Value = 10
            .TextBox5.Value = 14
            .TextBox6.Value = 2
            .TextBox7.Value = 10
            .TextBox8.Value = 10
            .CommandButton1.SetFocus
            .Show
        End With
    Else
        Unload Me    '        UserForm2.Hide
    End If
    Unload Me
End Sub

Private Sub TextBox1_Change()
    Me.Height = 180
    CommandButton1.Visible = True
End Sub

Private Sub UserForm_Initialize()
    Frame1.Caption = "Entrez le mot de passe pour déverrouiller...   "
    me.clignote = True
    Me.Height = 115
End Sub

Private Sub UserForm_Activate()
    Dim W#, Tim
    If clignote Then
        Do While clignote = True
            Image1.Visible = Not Image1.Visible
            W = 0.4: Tim = Timer
            Do While Timer < Tim + W
                DoEvents
            Loop
            If clignote = False Then Exit Do
        Loop
    End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Me.clignote = False
End Sub

Cliquez pour agrandir...

Dranreb à dit:

Bonjour.
Le plus simple serait de faire comme ça :

Code:

Private Sub UserForm_Activate()
   Do While Me.Visible
      Me.Image1.Visible = Int(Timer * 4) And 1
      DoEvents
      Loop
   Unload Me
   End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   Cancel = CloseMode = 0
   Me.Hide
   End Sub

Mais J'ai aussi un module de classe Rythmeur ayant pour vocation de déclencher périodiquement un évènement. Ce serait plus propre puisqu'il ne déroulerait plus en permanence du code pour rien.

Cliquez pour agrandir...