Re : problème macro

Publié par Patrice740 le 30/12/2017 15:01:08
Bonjour,

Tu peux mettre les macros dans chaque module de feuille :

Private Const adr$ = "C10"
Private ok As Boolean

Private Sub btnStart_Click()
  ok = True
  Me.Range(adr) = TimeSerial(0, 0, 30)
  Me.Range(adr).NumberFormat = "[mm]:ss"
  Call Decompte
End Sub

Private Sub btnStop_Click()
  ok = False
End Sub

Private Sub Decompte()
  If ok Then
    DoEvents
    Me.Range(adr) = Me.Range(adr) - TimeSerial(0, 0, 1)
    If Me.Range(adr) = 0 Then
      ok = False
      Exit Sub
    End If
    Application.OnTime Now + TimeValue("00:00:01"), Me.CodeName & ".DeCompte"
  End If
End Sub


Exemple fichier joint




Joindre un fichier:

Lien visibles uniquement pour les utilisateurs enregistrés

Ce message est de : http://excel.veriti.net/modules/newbb/viewtopic.php?post_id=578