Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL pour MAC Lag sur Timer (Compte à rebours) et compteur

hypo78

XLDnaute Impliqué
Bonjour,

je souhaiterais en Cellule B3 un Timer. Ce dernier démarre à l'aide d'un bouton, lorsqu'il arrive à Zéro il repart pour le même temps mais à chaque "relance" je souhaite que le compteur en B2 s'incrémente de 1.
Pb : mon code a l'air de fonctionner mais j'ai un Lag qui rend inutilisable le fichier. Pour l'exemple j'ai mis le temps du Timer sur 10 secondes.

Avez vous des solutions pour faire la même chose avec l'affichage du Timer et de l'heure sans Lag.
 

Pièces jointes

  • LDSPD.xlsm
    22.1 KB · Affichages: 4
Trier par date Trier par votes

Dranreb

XLDnaute Barbatruc
Bonjour.
Le genre de programmation correcte pour éviter ça c'est ça :
VB: 
Option Explicit
Private HOnTime As Date
Sub AfficherHeure()
   Feuil1.Range("A3").Value = Format(Now, "hh:mm:ss")
   HOnTime = Now + 1 / 86400
   Application.OnTime HOnTime, "AfficherHeure"
   End Sub
Sub ArrêtAffichHeure()
   If HOnTime = 0 Then Exit Sub
   Application.OnTime HOnTime, "AfficherHeure", Schedule:=False
   HOnTime = 0
   End Sub
Function TimerActive() As Boolean
   TimerActive = HOnTime <> 0
   End Function
 
Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro
désolé j'avais pas fais attention!
ton problème vient du fait que tu écris dans une cellule, avec tous les évènements qui en découle .je t'invites à écrire dans un label
et de toutes le façons il faudrait avoir un timer qui descend sous la seconde.

mon timer passe au millième c'est pour cela que j'affiche au centième "00:00:00,000" mais MAC....

n'oublis de stopper ton timer dans Private Sub Workbook_BeforeClose(Cancel As Boolean)


si tu croyais en achetant un ordinateur Plus cher qu'un PC Microsoft que tu pourrais faire plus ou du moins pareil tu as fait un mauvais rêve
 
Dernière édition:
Vote positif 0 Vote négatif

hypo78

XLDnaute Impliqué
Les seules fois ou je regrette Mac c'est quand je dois faire un peu de VBA, soit moins de 5% de mon utilisation
 
Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro
Moi je ne sais même pas si Macintosh dispose d'un bouton marche/arrêt.

Mais je te chari c'est très certainement une bonne bécane.

Mon fils a du Mac, il est comme toi mais les 5% de VBA le prive de la gratuité de son papa et moi je fais la sieste

Alors j' y vais.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

F
  • Question
XL 2016 Code VBA enregistrement et compte à rebours
Réponses
7
Affichages
954
FRANCKSN
F
T
  • Question
XL 2010 Compteur de compte à rebours et changement de feuille ?
Réponses
1
Affichages
945
TeteDeGnou
T
F
  • Question
Compte à rebours sur userform avec pause et reprise
Réponses
4
Affichages
2 K
frederic1994
F
H
  • Question
Créer un compteur dynamique de l'enregistement en cours
Réponses
6
Affichages
4 K
Helios67
H
L
  • Question
Compte à rebours - Quitter et sauvegarder
Réponses
11
Affichages
2 K
leop93
L
M
  • Question
Remise à zéro compteur VBA
Réponses
4
Affichages
11 K
jpb388
H
  • Question
[Résolu] Compte à rebours dans label + fermeture automatique
Réponses
2
Affichages
2 K
Hicsygrek
H
N
  • Question
compte à rebours sur affichage valeur donnée
Réponses
4
Affichages
1 K
newheel
N
P
  • Question
Compte à rebours
Réponses
3
Affichages
2 K
JCGL
  • Question
Arreter un compte à rebours après Validation
Réponses
13
Affichages
3 K
Foufoudora
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…