Mettre un if sur une plage d'heure

Bonjour le forum,

Je n'arrive pas a mettre un if entre différents plages horaires. Par exemple si la txt_HeureEntrée est comprise entre 4h et 5h alors la cellule C4 de la feuil2 = cette même cellule + la txt_Quantité

Voici le code que j'ai fais, il n'y a aucun message d'erreur. les cellule en question de change pas de valeur.

Function Suivi()
If Right(Me.txt_Reference, 1) = "R" Then
  'Pour la retouche AVANT
  If Me.CheckBox_retouche = True Then
    If "4" < Me.txt_HeureEntrée < "5" Then
     Feuil2.Range("C4") = Feuil2.Range("C4") + Me.txt_Quantité
    ElseIf "5" < Me.txt_HeureEntrée < "6" Then
     Feuil2.Range("C5") = Feuil2.Range("C5") + Me.txt_Quantité
    ElseIf "6" < Me.txt_HeureEntrée < "7" Then
     Feuil2.Range("C6") = Feuil2.Range("C6") + Me.txt_Quantité
    ElseIf "7" < Me.txt_HeureEntrée < "8" Then
     Feuil2.Range("C7") = Feuil2.Range("C7") + Me.txt_Quantité
    ElseIf "8" < Me.txt_HeureEntrée < "9" Then
     Feuil2.Range("C8") = Feuil2.Range("C8") + Me.txt_Quantité
    ElseIf "9" < Me.txt_HeureEntrée < "10" Then
     Feuil2.Range("C9") = Feuil2.Range("C9") + Me.txt_Quantité
    ElseIf "10" < Me.txt_HeureEntrée < "11" Then
     Feuil2.Range("C10") = Feuil2.Range("C6") + Me.txt_Quantité
    ElseIf "11" < Me.txt_HeureEntrée < "12" Then
     Feuil2.Range("C11") = Feuil2.Range("C6") + Me.txt_Quantité
    ElseIf "12" < Me.txt_HeureEntrée < "13" Then
     Feuil2.Range("C12") = Feuil2.Range("C6") + Me.txt_Quantité
    End If

  'Pour les rebuts AVANT
  ElseIf Me.CheckBox_changement = True Then
    If "4" < Me.txt_HeureEntrée < "5" Then
     Feuil2.Range("D4") = Feuil2.Range("D4") + Me.txt_Quantité
    ElseIf "5" < Me.txt_HeureEntrée < "6" Then
     Feuil2.Range("D5") = Feuil2.Range("D5") + Me.txt_Quantité
    ElseIf "6" < Me.txt_HeureEntrée < "7" Then
     Feuil2.Range("D6") = Feuil2.Range("D6") + Me.txt_Quantité
    ElseIf "7" < Me.txt_HeureEntrée < "8" Then
     Feuil2.Range("D7") = Feuil2.Range("D7") + Me.txt_Quantité
    ElseIf "8" < Me.txt_HeureEntrée < "9" Then
     Feuil2.Range("D8") = Feuil2.Range("D8") + Me.txt_Quantité
    ElseIf "9" < Me.txt_HeureEntrée < "10" Then
     Feuil2.Range("D9") = Feuil2.Range("D9") + Me.txt_Quantité
    ElseIf "10" < Me.txt_HeureEntrée < "11" Then
     Feuil2.Range("D10") = Feuil2.Range("D10") + Me.txt_Quantité
    ElseIf "11" < Me.txt_HeureEntrée < "12" Then
     Feuil2.Range("D11") = Feuil2.Range("D11") + Me.txt_Quantité
    ElseIf "12" < Me.txt_HeureEntrée < "13" Then
     Feuil2.Range("D12") = Feuil2.Range("D12") + Me.txt_Quantité
    End If
  End If

ElseIf Right(Me.txt_Reference, 1) = "V" Then
    'Pour la retouche Arrières
End If
End Function

Je pense que j'ai peut-être mal utiliser le format pour l'heure. car voici le format que j'ai utiliser pour l'heure : Me.txt_DateEntrée = Format(DateValue(Now))

Voici le tableau de lafeuil2 qui dois se remplir :

Je ne peux pas vous envoyer mon fichier car il comprend des données sensibles, mais si vous en avez vraiment besoin, je peux en créer un juste pour l'exemple. Merci beaucoup pour votre aide.

Cordialement.

Hello,

Pour dire qu'une valeur est comprise entre, ça se déclare ainsi :

If "4" < Me.txt_HeureEntrée < "5" Then => if Me.txt_HeureEntrée > 4 and Me.txt_HeureEntrée < 5 then

Essaie déjà avec cette modification :)

@+

Merci BAROUTE78, après plusieurs essaie rien ne change dans le tableau, penses tu qu'il y a une erreur dans cette formule:Feuil2.Range("C4") = Feuil2.Range("C4") + Me.txt_Quantité ?

Hello,

Il faudrait ton fichier pour voir d’un peu plus près :)

@+

Salut,

J'ai finalement réussi, j'ai utilisé ce code :

If Me.CheckBox_retouche = True Then
        'matin
        If TimeValue("4:00") < TimeValue(Me.txt_HeureEntrée) And TimeValue(Me.txt_HeureEntrée) < TimeValue("5:00") Then
           Feuil2.Range("C4") = Feuil2.Range("C4") + Me.txt_Quantité
        ElseIf TimeValue("5:00") < TimeValue(Me.txt_HeureEntrée) And TimeValue(Me.txt_HeureEntrée) < TimeValue("6:00") Then
           Feuil2.Range("C5") = Feuil2.Range("C5") + Me.txt_Quantité
        ElseIf TimeValue("6:00") < TimeValue(Me.txt_HeureEntrée) And TimeValue(Me.txt_HeureEntrée) < TimeValue("7:00") Then
           Feuil2.Range("C6") = Feuil2.Range("C6") + Me.txt_Quantité

Merci ChatGPT haha, merci à toi aussi ;)