Bonjour

J'ai un probleme avec une incompatibilité de type dans une de mes fonctions

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Set c = Range("A1").End(xlDown)
    While c.Offset(-i).Row <> 1
        If c.Offset(-i, 6) Like "*Beginning of STEP*" Or c.Offset(-i, 6) Like "*Point*" Then
                        temps = (Time - TimeValue((Left(c.Offset(-i, 1).Value, 8)))) * 24 * 60
            If Not IsNumeric(temps) Then
                temps = (Time - (Left(c.Offset(-i, 1).Value, 8))) * 24 * 60
            End If
            If temps > 3 Then
                Application.ScreenUpdating = True
                If MsgBox("Dernier point acquis il y a " & temps & " Minutes" & Chr(13) & "Voulez vous vraiment continuer ?", vbYesNo + vbExclamation, "Avertissement") = vbNo Then
                    test_LOG = False
                End If
                Application.ScreenUpdating = False
            End If
        Workbooks(Workbooks.Count).Close
        Exit Function
        End If
        i = i + 1
    Wend
l'erreur se situe au niveau de l'affectation de la variable temps, je ne sais pas trop comment gerer ce problème car la fonction fonctionne correctement une fois sur deux..

c.offset(1) contient une heure
c.offset(6) contient ce qui a été fait a cette heure
est ce que le left est necessaire ?
pourriez vous m'aider a resoudre mon erreur ?

merci d'avance et bonne journée