Bonjour,
J'utilise actuellement ceci pour la saisie de l'heure par double click,
Mais je voudrais qu'en plus ça arrondisse l'heure à l'inférieure ou supérieur selon condition

Ex: En colonne B Heure inférieure à 07:30 ...... saisie 07:30
En colonne C Heure supérieure à 12:00 ..... saisie 12:00

Merci à vous de votre aide:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ActiveSheet.Unprotect ("...")
    Cancel = True
    Target.Value = Time
    Target.Interior.ColorIndex = 34
    Target.Locked = True
    ActiveSheet.Protect ("...")
For Each w In Application.Workbooks
w.Save
Next w
Application.CommandBars("Ply").Enabled = True
Application.Quit
End Sub