Discussion :

[kiki29]

Salut, faisant suite à plusieurs posts : Chronomètres

[lkkraft]

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

[kiki29]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[lkkraft]

merci!

[kiki29]

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

[cb_60]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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?

[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)

[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

[cb_60]

re
Moi je dirais merci à Kiki de nous avoir proposé ce fichier!!

[lkkraft]

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

[galopin01]

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