XL 2013 La colle du jour(n'y a t il pas d'autre moyen que la gestion d'erreur)

[patricktoulon]

bonjour a tous
comme le titre l'indique je souhaiterais savoir si il y a un moyen de se passer de la gestion d'erreur
j'explique
l'horloge fonctionne mais des que je sélectionne une cellule ou une plage le timer plante excel quand heure est appelée
les gestion d'erreur c'est bien mais j'aimerais comprendre comment on peut gérer autrement

#If VBA7 Then
    Private Declare PtrSafe Function SetTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare PtrSafe Function KillTimer Lib "user32.dll" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
    Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
    Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If
Dim TimerID&
Sub start()
TimerID = SetTimer(0, 0, 100, AddressOf heure)
End Sub
 
Sub arret()
On Error Resume Next
If TimerID <> 0 Then KillTimer 0, TimerID: TimerID = 0:
End Sub
 
Sub heure()
On Error Resume Next
[A1] = Format(Now, "hh:nn:ss")
End Sub

je vois arriver a grand pas Dranreb là

 

[patricktoulon]

comment fait on pour afficher timer-t au format"hh:nn:ss" déjà?

 

[Dudu2]

Tu veux dire le Tea Time ? C'est 17h00m00. Enfin en UK )
Sinon le timer-t je connais pas.

 

[patricktoulon]

ben en fait je fait au debut t=timer
plus tar je fait...=timer-t
j'obtiens donc un double du genre 8.12354566
je souhaiterais avoir "hh:mm:ss,xxx"
j'en vois plein d'exemple mais chez moi nada ça fonctionne pas

 

[Dranreb]

Bonjour.
Diverses correspondances :

 

[Modeste geedee]

ben en fait je fait au debut t=timer
plus tar je fait...=timer-t
j'obtiens donc un double du genre 8.12354566
je souhaiterais avoir "hh:mm:ss,xxx"
j'en vois plein d'exemple mais chez moi nada ça fonctionne pas

1 -timer renvoie une valeur en secondes depuis l'allumage du PC
2 -VBA ne sait pas afficher : "hh:mm:ss,000"

Sub tps()
Dim t As Double
[a1:a2].NumberFormat = "hh:mm:ss.000"
t = Timer
[a1] = t
MsgBox Format((Timer - t) / 86400, "hh:mm:ss,000")
[a2] = (Timer - t) / 86400
MsgBox [a2].Text
End Sub

 

[patricktoulon]

Bonjour @Dranreb @Modeste geedee
@Dranreb merci pour les formats

ceci m'affiche des chose du genre XX:XX:XX,873
MsgBox Format((Timer - t) / 86400, "hh:mm:ss,000")

ce que je voudrais pour les 3 dernier chiffre c'est les centième de 1 à 100
alors j'ai fait comme ca
[B2] = Format((TimeElapsed) / 86400, "hh:mm:ss ") & "0" & Left(Split(TimeElapsed & "000", ",")(1), 2)
le seul problème quand je n'ai pas de décimale ben ça plante au split bien évidement
sinon quand ca fonctionne ca donne ca "0XX"

en gros il me faut "0" et les deux premières décimales de timeelapsed-int (timeelapsed)

 

[Dranreb]

Bonjour
Ben fait comme mon profil 23: n'affiche que les hh:mm: puis les secondes avec un format 00.000

 

[Modeste geedee]

Bonjour @Dranreb @Modeste geedee
@Dranreb merci pour les formats

ceci m'affiche des chose du genre XX:XX:XX,873
MsgBox Format((Timer - t) / 86400, "hh:mm:ss,000")

format avec millièmes !!!

ce que je voudrais pour les 3 dernier chiffre c'est les centième de 1 à 100

!!! VBA FORMAT ne sait pas afficher : "hh:mm:ss,000"


alors fait comme ca
format avec centièmes !!!
[B2].NumberFormat = "hh:mm:ss.00"
[B2]=(Timer - t) / 86400
MsgBox Right([B2].Text,5)


Nb:
il existe l'API GetTickCount qui permet une utilisation similaire à Timer
mais qui ramène le nombre de millisecondes écoulées depuis minuit

 

[dysorthographie]

Bonjour Patrick bonjour le forum,
pour ceux que ça intéresse j'ai fait un conrtôle passe plat sur la base du timer Microsoft!

Page de téléchargement du fichier partagé

mon-partage.fr

Private Sub MyTimer1_TIC()
Me.Caption = Time
End Sub

Private Sub UserForm_Click()
 If MyTimer1.Interval = 0 Then
   MyTimer1.Interval = 3 'Start Timer
 Else
    MyTimer1.Interval = 0 'Stop Timer
 End If
End Sub

 

[patricktoulon]

bonjour Robert
j'ai installé ton setup et je n'ai pas la ref dispo dans la liste

 

[dysorthographie]

désolé c'est dans les contrôle supplémentaire qu'il faut chercher TimerRd!

 

[patricktoulon]

re
ok ça marche
les autres events l’arrête momentanément aussi mais ça fonctionne

 

[dysorthographie]

Tu peux le mettre directement dans ta feuille Excel pas forcément besoin d'un Userform

 

[patricktoulon]

ok je teste toute à l'heure
merci robert pour ton travail
tu devrais en faire une ressource c'est sympa comme truc

 

[dysorthographie]

comme je te l'ai dit j'ai créé un contrôle passe plat?

comme je disposes de VB6 je peux utiliser tous les contrôles Microsoft alors que mes contemporains n'y ont pas accès dans Excel! alors j’utilise le vrai Timer de Microsoft pour fair battre le cœur de mon propre timer!

voici le code de mon UserControl!

Public Event TIC()
Public Property Let Interval(value As Long)
Timer1.Interval = value
End Property
Public Property Get Interval() As Long
Interval = Timer1.Interval
End Property
Private Sub Timer1_Timer()
RaiseEvent TIC
End Sub
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Interval = PropBag.ReadProperty("Interval", Interval)
End Sub
Private Sub UserControl_Resize()
Width = 500: Height = 500
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("Interval", Interval)
End Sub

Notes qu'une seconde correspond à un interval de 1500