Bonjour, le code de tedo01 fonctionne à merveille.
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 If Target.Colums = 4 Then If Time < TimeSerial(7, 30, 0) Then Target.Value = TimeSerial(7, 30, 0) Else Target.Value = Time End If
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)
Partager