help les pros de macros

[bpol]

bonsoir,

j'ai une macro qui me donnes l'heure windons dan une cellule en fomat hh:mm:ss je voudrais lavoir avec les dixièmes de seconde, obtenir le format hh:mm:ss,0

est ce réasable?

bpol

 

[JNP]

Re : help les pros de macros

Re 🙂,
Le fichier plante... Est-ce que le chrono avance de 10ème en 10ème ? C'est son seul but, de prouver que la macro peux envoyer le résultat en 10ème...
Après, on récupérera uniquement le résultat au moment du clic, et il n'y aura plus de plantage...
A te lire 😎

 

[bpol]

Re : help les pros de macros

bonjour à tout et surtout à jnp qui se décarcasse comme ds une certaine pub


malheureusement ce n'est pas çà que je désirais obtenir comme résultat

car moi il me faut enregistrer le temps 'hh:mm:ss,0 en temps réel quand je clique sur le bouton.


or quand je le fait aec la macro chrono je n'ai pas le vrai temps

ce qu'il faut c'est l'heure windons en dixième.


je sais je suis un difficille mais vu que nos sommes sur rallye nous ne pouvons faire d'erreur


merci pour tout quand même
A+
bpol

 

[JNP]

Re : help les pros de macros

Re 🙂,
Aurais-tu un peu de mal à suivre ton propre post ? As-tu testé un de mes premiers posts 😱?
J'ai mis A1:A6 en format personnalisé "j/m/aa h:mm:ss,00", mis =MAINTENANT() en A1 et fait une petite macro test :

[COLOR=blue]Sub test()[/COLOR]
[COLOR=blue]Cells(2, 1) = Now[/COLOR]
[COLOR=blue]Cells(3, 1) = Format(Now, "dd/mm/yy hh:mm:ss,00")[/COLOR]
[COLOR=blue]Cells(4, 1) = Cells(1, 1).Value[/COLOR]
[COLOR=blue]Cells(5, 1).Formula = "=Now()"[/COLOR]
[COLOR=blue]Cells(1, 1).Copy[/COLOR]
[COLOR=blue]Cells(6, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _[/COLOR]
[COLOR=blue]       :=False, Transpose:=False[/COLOR]
[COLOR=blue]Application.CutCopyMode = False[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Je n'ai eu aucune réponse si sur 2003, en A4, A5 et A6, vous récupérez bien des centièmes... Le dernier fichier etait juste pour vérifier que par macro, on pouvait envoyer des dixièmes de seconde tous les 10ème de seconde...
Si par hasard, ça marche en 2003 (mais sans retour, je ne vois pas comment je pourrais être sûr que ça marche 😡...), il te suffit de mettre en A1 =MAINTENANT() et d'utiliser

Cells(1, 1).Copy
[COLOR=red]Cells(6, 1).[/COLOR]PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

pour figer la valeur au 10ème en remplaçant le rouge par la cellule de ton choix...
Bonne soirée 😎

 

[bpol]

Re : help les pros de macros

re JNP,

je pense que l'on ne comprend pas ce que nous désirons pit bull et moi, c'est d'avoir cette macro

Public Sub Chrono()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono"
Sheets("Feuil1").Range("D20").Value = Time
End Sub

Public Sub StopChrono()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "Chrono", , False
On Error GoTo 0
End Sub


qui nous donnes les dixièmes de seconde
cette macro tourne constament sur notre fichier


merci

bpol

 

[JNP]

Re : help les pros de macros

Re 🙂,

re JNP,

je pense que l'on ne comprend pas ce que nous désirons pit bull et moi, c'est d'avoir cette macro

Public Sub Chrono()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Chrono"
Sheets("Feuil1").Range("D20").Value = Time
End Sub

Public Sub StopChrono()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "Chrono", , False
On Error GoTo 0
End Sub


qui nous donnes les dixièmes de seconde
cette macro tourne constament sur notre fichier


merci

bpol

C'est vrai que la compréhension a du mal à passer 😛.
1) Tu veux des 10èmes de secondes, mais ta macro incrémente des secondes, comment veux tu récupérer des 10èmes 😕?
2) Le deuxième problème est que même en travaillant avec des 10èmes, l'envoi dans les cellules ne fonctionne pas, d'où le contournement par un copier/coller spécial.
J'ai donc repris le fichier chrono que j'avais fait mais qu'on ne pouvait pas arrêter, j'ai ajouter 2 boutons pour lancer ou arrêter, et j'ai utilisé une boucle conditionnée par un flag pour récupérer la main. Vois si ça te convient.
JeanPierre : tu peux y aller cette fois ci, pas de plantage 😀.
Bonne journée 😎

 

[bpol]

Re : help les pros de macros

merci pour ta compréhension et ta tenacité

je vais pouvoir travailler avec cela