Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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