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



problème macro
#1
Invité


Informations sur l'utilisateur
Tout d'abord bonjour car suis nouveau sur le forum
commencons par le debut :
j'ai un fichier exel avec 9 feuilles qui contiennent tous un chrono ( le meme sur chaque feuille )
la macro du chrono est dans module 1.
voici la syntaxe ;

Dim ok As Boolean
Sub Demarrechrono()

ok = True
Range("c10") = TimeSerial(0, 0, 10)
Call decompte
End Sub

Sub decompte()

If ok Then
If Range("c10") = 0 Then
ok = False
Range("c10") = TimeSerial(0, 0, 0): End
End If
Range("c10") = Range("c10") - TimeSerial(0, 0, 1)
Range("c10").NumberFormat = "mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "deCompte"
End If
End Sub

mon probleme est que quand je lancce le chrono sur la feuille 1 tout marche bien.le decompte fini, je passe sur la feuille 2 et je lance le chrno.
et la le probleme est que quand je lance chrono feuille 2 le chrono feuille 1 se lance aussi

ma queston est :
comment dissocier cette macro afin de l'appliquer a chaque feuille séparément ?
j'espere avoir ete assez clair dans mon explication
en attente 'dune reponse de votre part .
cordialement

Date de publication : 28/12 17:27
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut


Re : problème macro
#2
Invité


Informations sur l'utilisateur
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



Joindre un fichier:


Lien visibles uniquement pour les utilisateurs enregistrés

Date de publication : 30/12 15:01
____________________
Cordialement
Patrice
Exporter le message en PDF Imprimer Twitter Facebook Google Plus Linkedin Del.icio.us Digg Reddit M. Wong Dénoncer Haut







Vous pouvez consulter les sujets.
Vous ne pouvez pas débuter un nouveau sujet.
Vous ne pouvez pas répondre aux messages.
Vous ne pouvez pas modifier vos messages.
Vous ne pouvez pas supprimer vos messages.
Vous ne pouvez pas créer des sondages.
Vous ne pouvez pas participer aux sondages.
Vous ne pouvez pas joindre des fichiers à vos messages.
Vous ne pouvez pas publier vos messages sans approbation.
Vous ne pouvez pas utiliser ce type de sujet.
Vous ne pouvez pas utiliser le HTML.
Vous ne pouvez pas utiliser une signature dans vos messages.

[Recherche avancée]


Copyright 2013 Powered by XOOPS © 2001-2013