Bonjour,

Je tente de comparer deux temps pour en extraire le plus petit mais l'erreur "Type d'argument ByRef incompatible" apparait !

Voici le code utilisé :
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
'Minimum
Function Minimum(a As Date, b As Date) As Date
    If (a > b) Then
        Minimum = b
    Else
        Minimum = a
    End If
End Function

Dim h_ini, h_fin As Date
    h_ini = TimeValue("12:00:00")
    h_fin = TimeValue("08:00:00")

    Debug.Print "Minimum : " & Minimum(h_ini, h_fin)     <----- Erreur ici !
Je ne comprends pas le problème.
Quelqu'un peut m'aiguiller ?

Merci