Discussion :

[bastien]

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

[Jean-Philippe André]

Bonjour,

une des premieres notions a apprendre quand aux declarations de variable :
- utiliser dans la mesure du possible un type precis
- dans le cas d'une multi declaration de variable, chaque variable doit avoir un type, sinon la variable sera de type Variant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim h_ini, h_fin As Date

et ici h_ini est un Variant

La syntaxe correcte est la suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim h_ini As Date, h_fin As Date

[antonysansh]

Bonjour,

Tu as un problème dans la déclaration de tes variables.
Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim h_ini, h_fin As Date

h_ini n'est pas de type Date (Variant en fait)

Tu dois utiliser la syntaxe suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim h_ini As Date, h_fin As Date

Edit :
Trop lent

[bastien]

Bonjour,

En effet !

Merci beaucoup !

Bonne journée

[joe.levrai]

Bonjour,

également, quand tu crées des paramètres au sein d'une fonction (ou d'une procédure), les arguments sont par défaut passés Par Référence (ByRef), c'est à dire que la procédure travaille directement sur la vraie variable, et peut donc en modifier la valeur intiale.
si tes arguments n'ont pas vocation à être modifiés (ce qui est le cas ici, ils sont simplement comparés), il faut prendre la bonne habitude de préciser qu'on travaille sur une copie de ces variables, on passe l'argument Par Valeur (ByVal)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function MaFonction(ByVal MaDate1 As Date, ByVal MaDate2 As Date) As Date

au passage, cette fonction est peu utile, puisqu'une unique ligne de code peut te donner le résultat :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub ee()
Dim h_ini As Date, h_fin As Date
    h_ini = TimeValue("12:00:00")
    h_fin = TimeValue("05:30:00")
    MsgBox Format(Application.WorksheetFunction.Min(h_ini, h_fin), "hh:mm:ss")
End Sub

en revanche, si tu dois réaliser cette opération dans des tonnes de procédures, effectivement la Function devient pertinente, mais au moins tu as ici une autre méthode pour réduire ta Function à une unique ligne de code

la version directe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub ee()
    MsgBox Format(Application.WorksheetFunction.Min(TimeValue("12:00:00"), TimeValue("05:30:00")), "hh:mm:ss")
End Sub

[bastien]

Bonjour joe.levrai

Ces précisions sont vraiment sympas et précieuses.

Merci