condition Heure>Valeur

[Riddick]

Bonjour le forum,

Alors voilà J'ai deux colonnes contenant des Heures et une troisième dans laquelle je fais une difference entre les deux premieres...
J'ai mis en format 1904 car j'ai des resultats positifs et négatifs

Je voudrais par macro parcourir ma colonne et dire:
SI <'-00:15:00' alors affecté a la case a coté 'Avance'
Si >'00:15:00' ' ' ' ' ' ' ' 'Retard'

Vous voyez le principe J'ai fait:

Dim ligne As Integer

ligne = 2

Do Until ActiveSheet.Cells(ligne, 18) = ''
    If ActiveSheet.Cells(ligne, 18) < '-00:15:00' Then
    ActiveSheet.Cells(ligne, 19) = 'Avance'
    Else
        If ActiveSheet.Cells(ligne, 18) > '00:15:00' Then
        ActiveSheet.Cells(ligne, 19) = 'Retard'
        Else
            ActiveSheet.Cells(ligne, 19) = 'Respecté'
        End If
    End If
ligne = ligne + 1
Loop

Malheureusement il fait n'importe quoi...Je m'en remet au grande instancce d'XLD et de ces maitres JEDI...

Merci d'avance
Riddick
Un petit Padawan

 

[Riddick]

Ben voilà...

J'ai été Obligé de convertir mon 00:15:00 en numerique ce qui donne la bagatelle de 0,0104166666666667
Et de remplacer dans mon code l'heure par son numérique...

Dim ligne As Integer

ligne = 2

Do Until ActiveSheet.Cells(ligne, 18) = ''
    If ActiveSheet.Cells(ligne, 18) < -1.04166666666667E-02 Then
    ActiveSheet.Cells(ligne, 19) = 'Avance'
    Else
        If ActiveSheet.Cells(ligne, 18) > 1.04166666666667E-02 Then
        ActiveSheet.Cells(ligne, 19) = 'Retard'
        Else
            ActiveSheet.Cells(ligne, 19) = 'Respecté'
        End If
    End If
ligne = ligne + 1
Loop

Donc voilà je le dis si ca interresse quelqu'un au jourd'hui ou plus tard....
Bonne journée à tous

Riddick
Un petit Padawan