Question sur chrono excel

Version imprimable

01/05/2013, 21h51
Mathsdeb

1 pièce(s) jointe(s)

Question sur chrono excel

Bonjour,

D'abord merci pour la création de ce forum :ccool:.

Je cherchais comment installer un chronomêtre sur Excel et grace à ce forum j'ai trouvé ma réponse mais j'ai un petit souci parce que le chronometre ne prend pas en compte les doublons (ci-joint le fichier). Exemple si je veux que le chrono prend en compte l'activité "01" 2 fois dans la même journée, il me dit que le "01" existe déjà. En fait je dois chronométrer des activites dans la journéee sauf que des fois dans la même journée je peux être amener à traiter plusieurs fois la même activité. Pouvez vous m'aider SVP à trouver une solution?

Merci par avance
02/05/2013, 08h36
gFZT82

Bonjour,

Ton programme fonctionne avec une liste d'activités préétablie. Si tu prends en compte la même activité plusieurs fois, les valeurs seront écrasées à chaque relance du chrono.
Est-ce bien ce que tu cherches à obtenir ?

Cordialement.
02/05/2013, 23h45
Mathsdeb

Bonsoir gfz82,

En fait je ne veux pas justement que l élément soit supprimé, je veux Qu il passe a l autre cellule automatiquement et que même si la même activité est répétée plusieurs fois qu il ne soit pas supprimé. Je ne sais pas si je me suis bien fait comprendre.

Merci pour ton aide

1 pièce(s) jointe(s)

Bonjour,

Si je comprends bien :
1) Tu entres un numéro d’activité en D2 : le numéro d’activité s’inscrit dans la première cellule vide de la colonne A. Le Top départ s’inscrit dans la cellule adjacente (colonne B).
2) Tu arrêtes le chrono. Le Top fin s’inscrit dans la cellule adjacente (colonne C). La durée du chronométrage est indiquée en colonne D.
3) Tu entres un autre numéro d’activité en D2 (ou éventuellement le même) : le numéro d’activité s’inscrit dans la première cellule vide de la colonne A, c'est-à-dire sous la ligne précédente.
Etc.
Tu obtiens ainsi une série d’activités chronométrées.
Voir exemple joint.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub Depart()
Dim LigneAjout As Long
    With Worksheets("Feuil1")
        'On recherche la première cellule vide en colonne A
        LigneAjout = .Range("A" & Rows.Count).End(xlUp).Row + 1
        'On contrôle que le comptage précédent est achevé,
        'sinon, on efface la saisie et on sort de la procédure
        If Application.CountA(.Range("A" & LigneAjout - 1).Resize(, 4)) <> 4 Then
            .Range("D2") = ""
            .Range("D2").Select
            Exit Sub
        End If
        'On note le numéro d'activité
        .Range("A" & LigneAjout) = .Range("D2")
        'On note l'heure du démarrage chrono
        .Range("B" & LigneAjout) = Format(Time, "hh:mm:ss")
        'On colorie le fond en jaune
        .Range("A" & LigneAjout).Resize(, 2).Interior.ColorIndex = 36
        'On efface le numéro d'activité
        .Range("D2") = ""
        'On se repositionne sur le numéro d'activité
        .Range("D2").Select
    End With
End Sub
Sub Arret()
Dim DerLig As Long
    With Worksheets("Feuil1")
        'On recherche la dernière cellule renseignée en colonne A
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        'On contrôle que le comptage a bien démarré, sinon on sort de la procédure
        If Application.CountA(.Range("A" & DerLig).Resize(, 3)) <> 2 Then Exit Sub
        'On note l'heure du top fin chrono
        .Range("C" & DerLig) = Format(Time, "hh:mm:ss")
        'On calcule la durée du chronométrage
        .Range("D" & DerLig) = Format(.Range("C" & DerLig) - .Range("B" & DerLig), "hh:mm:ss")
        'On colorie le fond en jaune
        .Range("A" & DerLig).Resize(, 4).Interior.ColorIndex = 38
    End With
End Sub
Sub Zero()
Dim DerLig As Long
    With Worksheets("Feuil1")
        'On recherche la dernière cellule renseignée en colonne A
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        'On efface le numéro d'activité
        [D2] = ""
        'On efface les comptages
        With .Range("A4:D" & DerLig)
            .ClearContents
            .Interior.ColorIndex = xlNone
        End With
    End With
End Sub

Cordialement.

06/05/2013, 17h22
Mathsdeb

Bonjour Gfzt82,

Merci beaucoup pour ta réponse c est exactement ce que je voulais :ccool:

Très bonne journée et 1000 merci encore!!!

Cordialement
20/05/2013, 21h15
Mathsdeb

Bonsoir,

Sur le fichier excel que m'a envoyé gFZT82, je voudrais rajouter dupliquer la feuil1 pour avoir exactement la même chose dans les onglets que je nommerai par exemple Lundi = onglet 1; Mardi = onglet 2 ... jusqu'à Samedi

Or lorsque je veux dupliquer l'onglet "Feuil1" des erreurs apparaissent et la macro ne fonctionnent plus.

Merci beaucoup pour votre aide

Cordialement
20/05/2013, 22h05
gFZT82

1 pièce(s) jointe(s)

Bonsoir,

Pour permettre l’utilisation du programme dans plusieurs feuilles, on utilise l’évènement SheetChange du classeur. Le code se trouve dans le module ThisWorkbook.
Les procédures de lancement chrono, arrêt et RAZ s’appliquent à la feuille active.
Pour ajouter une feuille, il te suffit de faire un copier d’une feuille renseignée.

Cordialement.
21/05/2013, 09h07
Mathsdeb

Bonjour,

Merci beaucoup gFZT82, mais maintenant lorsque je veux ouvrir le fichier sur mon pc, voici ce qui s'affiche :

Macros are disabled because the security level is set to High and digitally signed Trusted Certificate....

You may encounter this error for the following reasons:
Macro security is set to:
Very High and the application encounters a signed macro, but the macro was automatically disabled. Use the following procedure to enable the macro:
Select the Tools menu option and then select Macro and Security. In the resulting Security dialog, set the security level to High by clicking the High radio button.
Close the file and any other instances of the application currently running on the computer (close all applications that also use the application you are currently running).
Open the file again and examine the certificate of trust details and set the Always trust macros from this publisher box if you trust the certificate issued by the publisher.
Click the Enable button to allow the macro to run.
High and the application encounters a signed macro, but you selected Disable when prompted by the macro warning dialog when opening the file. Use the following procedure to enable the macro:

Merci à nouveau pour ton aide

Cordialement
21/05/2013, 10h04
gFZT82

1 pièce(s) jointe(s)

Il s’agit d’un problème de niveau de sécurité.
Fais le test avec le classeur joint. Les macros sont signées numériquement.

Cordialement.
21/05/2013, 10h30
Mathsdeb

gFZT82,

J'ai de nouveau un message qui me dit : "This publisher has not been authenticates and therefore could be imitated. Do not trust these credentials.

Macros may contain viruses. It is usually safe to disable macros, but if the marcos are legitamate, you might lose some functionality.

The security level is set to High. Therefore, you cannot enable macros from sources that you do not trust."

Ensuite j'ai un encadré "DISABLE MACROS" qui est en bleu

Merci encore pour ton aide