Discussion :

[progheure]

Bonjour, le code de tedo01 fonctionne à merveille.

Code :

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

1
2
3
4
5
6
If Target.Colums = 4 Then
    If Time < TimeSerial(7, 30, 0) Then
    Target.Value = TimeSerial(7, 30, 0)
    Else
        Target.Value = Time
    End If

J'aurais besoin de l'adapter dans le genre:

Code :

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

1
2
3
4
5
6
7
If Target.Cells (D33:D35) Then
If Time < TimeSerial(7, 30, 0) Then
Target.Value = TimeSerial(7, 30, 0)
 
If Target.Celle D36 Then
If Time < TimeSerial(8, 30, 0) Then
Target.Value = TimeSerial(8, 30, 0)