annee 2017

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

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

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

Voir la suite
Image 3

Hommage

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

Voir la suite
Image 4

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
Message du rapport :*
Code de Confirmation*
0 + 8 = ?  
Entrez le résultat de l'expression
Maximum de tentatives que vous pouvez essayer : 10
 

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(0030)
  
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(001)
    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



Copyright 2013 Powered by XOOPS © 2001-2013