Bonjour,

J'ai un gros souci avec mon code. Je ne suis pas très fort en VBA mais je ne vois pas ce qui coince.
J'ai deux donctions, l'une appelant l'autre, et ça coince lors de cet appel.

Dans le code que je voue montre, j'obtient le message "Erreur : type incompatible" et le curseur est placé sur la ligne "If (Horaires...", précisémment sur le mot "heureDebut"

Si je met des parenthèses dans l'appel de la fonction Horaires, le MsgBox de la fonction Horaires affiche les bons résultats, c'est à dire "06:00:00 ; 14:00:00" mais le MsgBox de la fonction CalculPrincipal affiche uniquement "Actif : ; 00:00:00", ce qui n'est pas le bon résultat.

J'ai trouvé d'autres utilisateurs qui avaient eu ce probème mais pas la solution. Merci de m'aider et désolé pour l'absence de balises mais elles ne s'affichent pas sur mon écran, je les rajouterai si je les trouve.

Voici un bout de mon code :

Public Function CalculPrincipal(dateTravail As Date) As Double

Dim heureDebut, heureFin As date
Dim equipe As String
Dim numero As Integer

equipe = "A"
numero = 1

If (Horaires ( dateTravail, equipe, numero, heureDebut, heureFin) = True Then

MsgBox "<CalculPrincipal> : Actif : " & heureDebut & " ; " & heureFin
Else

MsgBox "<CalculPrincipal> : Inactif"
End If
End Function



Public Function Horaires(ByVal dateTravail As Date, _
ByVal equipe As String, ByVal numEquipes As Integer, _
ByRef heureDebut As Date, ByRef heureFin As Date) As Boolean

// je récupère heureDebut et heureFin avec une requete SQL qui fonctionne

MsgBox heureDebut & " ; " & heureFin

End Function