Formule condition temps

Résolu
QQ peut il me dire ce qu'il y a de faux dans ma formule, t1 et t2 sont des heures au format heure issus d'une liste :

Function temps_moins_pauses(t As Variant) As Variant

Dim t1 As Variant

Dim t2 As Variant

t1 = Range("E9")
t2 = Range("F9")

If "8:00:00" > t1 Then
temps_moins_pauses = t - 0.00694444444
Else
temps_moins_pauses = t
End If

End Function

8 réponses

  1. OK ca marche ;-)
    Un grand merci a gbinforme et michel_m
    0
    1. Contributeur
      Bonjour,

      Tu devrais essayer avec :
      If timevalue("8:00:00") > t1 Then 
      0
      1. En fait, j'ai créé une liste d'heure en E9 (0:00; 0:05; 0:10 etc...).
        Il s’agit d'une variable t1 dont la formule va dépendre.
        t est le résultat de la formule
        t2 servira plus tard, ne pas en tenir compte pour l'instant.
        0
        1. Ma date est issue d'une liste, c'est une variable en E9..
          tes solutions ne fonctionnent pas du coup.. En as tu une autre ?
          0
          1. Contributeur
            1/je ne vois pas le rapport entre
            Ma date est issue d'une liste, c'est une variable en E9..
            et
            <ital>"08:00:00"


            "08:00:00": le fait qu'il y ait des guillemets fait que l'on a affaire à un texte et non à une date-heure
            d'autre part, on se demande que viennent faire t2 et t qui n'ont aucune utilité dans la macro.
            0
        2. Contributeur
          Dim Duree As Date
          durée = 8 / 24
          If durée > t1 Then
          --
           Michel
          0
          1. Contributeur
            Ou + simplement

            if T1>8/24 then
            0
        3. OK Michel, comment définir une heure alors...?
          D'avance merci
          0
          1. Contributeur
            Bonjour

            If "8:00:00" > t1

            ne veut rien dire....
            0