veriti site des amis d'excel

EXCEL ANNEE 2017

L'heure est venue de vous presenter

Une excel et bonne annee 2017 !

De la part de toute l equipe de VeriTi

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement

Re : problème macro

Objet : Re : problème macro
par Patrice740 sur 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