Chronomètres

Version imprimable

19/01/2016, 10h31
kiki29

Chronomètres

Salut, faisant suite à plusieurs posts : Chronomètres
26/04/2018, 23h30
lkkraft

Citation:

Envoyé par kiki29

Salut, faisant suite à plusieurs posts : Chronomètres

super!!!
merci beaucoup!!
existe t'il un moyen de récupérer les temps du chrono dans la feuille excel?
Merci beaucoup,
bonne soirée

1 pièce(s) jointe(s)

Salut,

Rajouter un bouton sur l'Userform
Le nommer btnReport
dans Userform rajouter le code suivant
Code:

1 2 3 4 5 6 7 Private Sub btnReport_Click() Dim Sect As Range Set Sect = Application.Intersect(ActiveCell, Feuil1.Range("Releve")) If Not Sect Is Nothing Then ActiveCell.Value = LblTemps.Caption & ":" & LblCent.Caption End If End Sub
Suivant les exemples de Chronos

Dans ActiveCell.Value = LblTemps.Caption & ":" & LblCent.Caption LblCent.Caption n'existe pas ou porte un autre nom
et donc rectifier ou pas la chaine

Dans Feuil1

Sélectionner une zone : ici par exemple B3 à B26 et la nommer "Releve"

Cela te permettra d'aboutir à ceci

27/04/2018, 05h56
lkkraft

merci!
28/04/2018, 09h29
kiki29

Une mise à jour du fichier téléchargeable ici a été faite

1 pièce(s) jointe(s)

Bonjour à tous
Kiki, merci pour les chronos, je me suis permis de modifier le code "btnReport"et "BtnRaz_Click"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub btnReport_Click()
Dim Sect As Range
    Set Sect = Feuil1.Range("Releve")  'Application.Intersect(ActiveCell, Feuil1.Range("Releve"))
    If Not Sect Is Nothing Then
        Sect.Value = LblTemps.Caption & ":" & LblCent.Caption
    End If
End Sub
'''' et '''''
 
Private Sub BtnRaz_Click()
Dim derlign As Long
 
 
    mTimer4.TimerOff
    LblTemps.Caption = "00:00:00"
    LblCent.Caption = "00"
    BtnStop.Enabled = False
    BtnStart.Enabled = True
    derlign = Range("b" & Rows.Count).End(xlUp).Row
    MsgBox derlign
    If derlign = 1 Then
    Exit Sub
    Else
    Range("b2:b" & derlign).ClearContents
    End If
End Sub

Avec la zone nommée "releve"

Code:

=DECALER(Feuil1!$B$2;NBVAL(Feuil1!$B:$B)-1;;)

01/05/2018, 19h35
lkkraft

vraiment super!!
j'ai pu adapter cela à mon fichier excel, c'est top!!
par contre, comment est il possible d'utiliser les valeurs du relevé?
il faudrait que je puisse utiliser les valeurs relevées (exemple diviser le temps max par le nombre de relevé)
pour le nombre de relevé =NBVAL marche sans problème, mais je n'arrive pas à utiliser la valeur (le temps total)... savez vous s'il y existe un moyen?
01/05/2018, 19h43
cb_60

1 pièce(s) jointe(s)

Bonsoir
je ne sais pas si je vais repondre à ta demande, mais j'ai continué à travailler sur le fichier de kiki, à voir!
(sur le chrono 4)
01/05/2018, 19h54
lkkraft

super, j'ai pas encore tout regarder, mais on peut faire des calculs sur le temps total, donc je dois pouvoir trouver mon bonheur pour appliquer cela dans mon fichier!!!
merci beaucoup, vous êtes top!
merci pour votre aide
01/05/2018, 20h48
cb_60

re
Moi je dirais merci à Kiki de nous avoir proposé ce fichier!!
01/05/2018, 20h50
lkkraft

Citation:

Envoyé par cb_60

Bonsoir
je ne sais pas si je vais repondre à ta demande, mais j'ai continué à travailler sur le fichier de kiki, à voir!
(sur le chrono 4)

le "vous" était pour vous deux!!! ;)

Encore une fois merci beaucoup pour ce fichier et vos réponses.
Toutefois, après essais, tous les chronos ont du retards, c'est à dire qu'ils affichent 38 secondes après une minute de passé (il y a une perte d'un tiers du temps...).
Est ce que cela provient de mon PC, du code? existe t'il un moyen d'accélérer le chrono pour compenser cette perte?
Merci beaucoup pour vos réponses.
bonne soirée

Sur un autre ordi, le décalage est encore plus grand (26Secondes mesurées pour 1minute), le décalage est donc du au potentiel de l'ordi...
Je reviens vers vous si je trouve une solution u si j'ai des éléments supplémentaires.
Bonne journée
11/05/2018, 14h08
galopin01

bonjour,
même remarque, seuls les chrono 2 et 3 semblent correct.
A+