Discussion :

[isfet]

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

[mercatog]

Peut être

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
20
21
Dim LastLig As Long, i As Long
Dim Temps As Double
Dim Test_Log As Boolean
 
 
With ThisWorkbook.Sheets("Feuil3")
    LastLig = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To LastLig
        If UCase(.Range("G" & i).Value) Like "*BEGINNING OF STEP*" Or UCase(.Range("G" & i).Value) Like "*POINT*" Then
            If IsNumeric(.Range("B" & i).Value) Then
                Temps = DateDiff("n", Date + .Range("B" & i).Value, Now)
                If Temps > 3 Then
                    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
                End If
                '....
            End If
        End If
    Next i
End With