Re : Importer des fonctions excel dans des macro
Merci, mais je n'arrive toujours pas à utiliser ma fonction :
Je débute tout juste en VBA...
Public Function DJU(d1 As Date, d2 As Date, t As Integer) As Double
'n est le nbr de jours entre les deux dates d1 et d2, S est la somme totale
Dim n As Double, S As Double
Dim date1 As Long, date2 As Long
'on passe les deux dates en entiers ... Je ne sais pas si c'est la bonne méthode
date1 = Int(CDbl(d1))
date2 = Int(CDbl(d2))
'on calcul n et on initialise S
n = date2 - date1
S = 0
'Pour toutes les dates entre d1 et d2, on va cherché le coefficient correspondant dans le tableau t
For i = 0 To n Step 1
date1 = date1 + i
j = Evaluate(Day(date1)) + 1
m = Evaluate(Month(date1))
S = S + Application.WorksheetFunction.HLookup(m, t, j, FAUX)
Next i
'on affecte le resultat
DJU = S
End Function
En fait je souhaiterais savoir si mes fonctions sont bien définies dans la boucle et lors de l'initialisation sont bien définies. N'y aurait-il pas une erreur dans le typage des variables?
Merci à tous