Modification de Code

Version imprimable

Bonjour,

J'ai modifié ce code pour la colonne E mais ça ne fonctionne pas.
Merci à vous de votre aide.

Code:

1
2
3
4
5
6
7
8
9
'Colonne E : si avant 12:00 on met time, si entre 12:00 et 12:10 on met 12:00, si après 12:15 on met 12:15
    If Target.Column = 5 Then
        If Time > TimeSerial(12, 0, 0) And Time < TimeSerial(12, 10, 0) Then
            Target.Value = TimeSerial(12, 0, 0)
        If Time > TimeSerial(12, 15, 0) Then
            Target.Value = TimeSerial(12, 15, 0)
        Else
            Target.Value = Time
        End If

23/01/2013, 09h58
gFZT82

Bonjour,

Et entre 12:10 et 12:15 tu mets quoi ?

Cordialement.
23/01/2013, 10h13
progheure

Autant pour moi.
Si < 12 00 mettre time, si entre 12 00 et 12 15 mettre 12 00 si au dessus de 12 15 mettre 12 15

A tester

Code:

1
2
3
4
5
6
7
8
9
10
    'Colonne E : Si < 12:00 mettre Time, si entre 12:00 et 12:15 mettre 12:00 si au dessus de 12:15 mettre 12:15
    If Target.Column = 5 Then
        If Time > TimeSerial(12, 15, 0) Then
            Target.Value = TimeSerial(12, 15, 0)
        ElseIf Time > TimeSerial(12, 0, 0) Then
            Target.Value = TimeSerial(12, 0, 0)
        Else
            Target.Value = Time
        End If
    End If

Cordialement.

24/01/2013, 09h00
progheure

Je viens de tester mais ne fonctionne pas.
24/01/2013, 09h21
gFZT82

Citation:

Envoyé par progheure

Je viens de tester mais ne fonctionne pas.

C'est un peu juste comme explication.
Qu'est-ce qui ne fonctionne pas ?
Quel est le résultat attendu ?

Cordialement.
24/01/2013, 09h35
progheure

Si l'heure est inférieure, il m'affiche bien l'heure actuelle,
Par contre, si l'heure est supérieure, il m'affiche quand même l'heure actuelle.

Je voudrais que si c'est supérieur à 12 15 ça affiche 12 15, que si c'est entre 12 et 12 15 ça affiche 12, et que si c'est inférieur à 12, ça affiche l'heure actuelle

Je tente une explication : si l'heure est supérieure à 12:15, on inscrit 12:15, mais ...
l'heure étant modifiée, on relance la procédure. L'heure n'étant plus supérieure à 12:15 (puiqu'elle est égale à 12:15), on inscrit 12:00.
Solution : désactiver l'évènement à l'entrée de la procédure.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'Colonne E : Si < 12:00 mettre Time, si entre 12:00 et 12:15 mettre 12:00 si au dessus de 12:15 mettre 12:15 If Target.Column = 5 Then Application.EnableEvents = False If Time > TimeSerial(12, 15, 0) Then Target.Value = TimeSerial(12, 15, 0) ElseIf Time > TimeSerial(12, 0, 0) Then Target.Value = TimeSerial(12, 0, 0) Else Target.Value = Time End If Application.EnableEvents = True End If
Cordialement.

24/01/2013, 09h56
progheure

Je viens de tester, résultat identique au précédent
24/01/2013, 10h11
gFZT82

Voici ce que fait ton programme :
Si la colonne modifiée est la colonne E,
si l'heure système en cours est supérieure à 12:15, on inscrit 12:15
sinon, si l'heure système en cours est supérieure à 12:00, on inscrit 12:00
dans le autres cas, on inscrit l'heure système en cours .

Est-ce bien ce que tu cherches à faire ?

Désolé je t'ai pas donné toutes les infos, la saisie se fait en fait par double clic et l'heure n'est pas rechangée ensuite. Voici le code en détail:

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect ("0000")
    Cancel = True
'Colonne D : si avant 8:00 on met 8:00
If Target.Column = 4 Then
        If Time < TimeSerial(8, 0, 0) Then
            Target.Value = TimeSerial(8, 0, 0)
        Else
            Target.Value = Time
        End If
Else
    'Colonne E : si avant 12:00 on met time, si entre 12:00 et 12:15 on met 12:00, si après 12:15 on met 12:15
    If Target.Column = 5 Then
        Application.EnableEvents = False
        If Time > TimeSerial(12, 15, 0) Then
            Target.Value = TimeSerial(12, 15, 0)
        ElseIf Time > TimeSerial(12, 0, 0) Then
            Target.Value = TimeSerial(12, 0, 0)
        Else
            Target.Value = Time
        Application.EnableEvents = True
        End If
    Else
        'Colonne F : si avant 14:00 on met 14:00
        If Target.Column = 6 Then
            If Time < TimeSerial(14, 0, 0) Then
                Target.Value = TimeSerial(14, 0, 0)
            Else
                Target.Value = Time
            End If
        Else
            'Colonne G : si après 17:00 on met 17:00
            If Target.Column = 7 Then
                If Time > TimeSerial(17, 0, 0) Then
                    Target.Value = TimeSerial(17, 0, 0)
                Else
                    Target.Value = Time
                End If
            End If
        End If
     End If
End If
    Target.Value = Time
    Target.Interior.ColorIndex = 34
    Target.Locked = True
    ActiveSheet.Protect ("0000")
For Each w In Application.Workbooks
w.Save
Next w
Application.CommandBars("Ply").Enabled = True
Application.Quit
End Sub

Voici ton code "réarrangé".
Si le fonctionnement ne correspond pas à ce que tu attends, essaie d’expliquer les dysfonctionnements constatés et l’utilité de ce programme (quelle est la finalité).
A priori, cette saisie n’a de sens que si l’opérateur effectue un double clic dans la cellule qui correspond à l’heure en cours : enregistrement d’un début ou fin de poste par exemple.

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect ("0000")
    Cancel = True
 
    If Target.Column = 4 Then
    'Colonne D : si avant 8:00 on met 8:00
        If Time < TimeSerial(8, 0, 0) Then
            Target.Value = TimeSerial(8, 0, 0)
        Else
            Target.Value = Time
        End If
 
    ElseIf Target.Column = 5 Then
    'Colonne E : si avant 12:00 on met time, si entre 12:00 et 12:15 on met 12:00, si après 12:15 on met 12:15
        If Time > TimeSerial(12, 15, 0) Then
            Target.Value = TimeSerial(12, 15, 0)
        ElseIf Time > TimeSerial(12, 0, 0) Then
            Target.Value = TimeSerial(12, 0, 0)
        Else
            Target.Value = Time
        End If
 
    ElseIf Target.Column = 6 Then
    'Colonne F : si avant 14:00 on met 14:00
        If Time < TimeSerial(14, 0, 0) Then
            Target.Value = TimeSerial(14, 0, 0)
        Else
            Target.Value = Time
        End If
 
    ElseIf Target.Column = 7 Then
    'Colonne G : si après 17:00 on met 17:00
        If Time > TimeSerial(17, 0, 0) Then
            Target.Value = TimeSerial(17, 0, 0)
        Else
            Target.Value = Time
        End If
    End If
 
    Target.Interior.ColorIndex = 34
    Target.Locked = True
    ActiveSheet.Protect ("0000")
    For Each w In Application.Workbooks
        w.Save
    Next w
    Application.CommandBars("Ply").Enabled = True
    Application.Quit
End Sub

24/01/2013, 11h17
progheure

La saisie ne s'effectue sur le fichier que par double clic.
Arrivée et départ des employés.
Tout fonctionne sauf pour les conditions de midi.
Si il est 12H20, il m'affiche 12H20 et non 12H15, si il est 12H10 il m'affiche 12H10 au lieu de 12H, et si il est 11H45 il affiche bien 11H45.
Mon problème est donc sur le > à 12H15 et > compris entre 12H et 12H15
24/01/2013, 12h04
gFZT82

Je ne constate pas le dysfonctionnement que tu indiques.
Il est 12:03, je double clique et j'obtiens bien 12:00.

EDIT : il est maintenant 12:33, je double clique et j'obtiens bien 12:15.
24/01/2013, 13h53
progheure

Je ne sais pourquoi maintenant tout fonctionne avec ton code.
Un grand merci à toi.