Bonjour à vous tous,

Je voudrais que ma macro associe une valeur 1, 2, 3 à une tranche horaire :
1 pour 5 à 13 h (strictement supérieur à 5h)
2 pour 13 à 21 h (strictement superieur à 13h)
3 pour 21 à 24 h et 0 à 5 h(strictement superieur à 21h)

je ne comprends pas pourquoi, quand j'execute mon cote la tranche horaire qui s'affiche est 3 (avec n'importe quelle valeur de l'heure).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'report de l'heure dans la feuille statistique
Worksheets("Fiche d'intervention").Range("B" & 12).Copy Worksheets("Statistiques").Range("B" & 4)
Worksheets("Statistiques").Activate
 
'détermination de la tranche horaire
Range("C4").Value = Format(Range("B4").Value, "HH")
If [C4] > 5 And [C4] <= 13 Then [D4] = 1
If [C4] < 13 And [C4] <= 21 Then [D4] = 2
If [C4] > 0 And [C4] <= 5 Then [D4] = 3
If [C4] < 21 And [C4] <= 24 Then [D4] = 3
Si vous voyez l'erreur dans mon code n'hésitez pas !

Merci d'avance,

Bonne soiree !