Importer des fonctions excel dans des macro

Re : Importer des fonctions excel dans des macro

Bonjour benoa
Dans ton cas il faut employer soit Evaluate :
Soit passer par une instruction purement VBA

Cordialement

Re : Importer des fonctions excel dans des macro

Bonjour,

A noter qu'il existe la fonction "day" native dans vba :
bon après midi
@+

Edition : bonjour fg

Re : Importer des fonctions excel dans des macro

Votre solution marche avec la fonction Evaluate.
Merci à vous.

Par contre, est ce que cette fonction marchera avec une recherche horizontale Hlookup?
Je n'y arrive pas avec cette dernière fonction

Re : Importer des fonctions excel dans des macro

Re
Salut Pierrot
@benoa
Tu devrais plutot utiliser réellement le language VBA, plutot que de vouloir utiliser des WorksheetFunction, qui comme le nom l'indique, sont des fonctions de Feuille..
Pour VLookUp regarde du coté de Find, ou Match....
Bon courage pour la suite
Cordialement

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

Re : Importer des fonctions excel dans des macro

Je n'arrive pas à utiliser FIND et MATCH,

y aurait-il un moyen de palier à : Application.WorksheetFunction.HLookup(m, t, j, FAUX) en utilisant toujours la fonction HLookup ?

Merci à tous

Re : Importer des fonctions excel dans des macro

Re
Il serait surtout judicieux d'expliquer ce que tu veux faire et de fournir un petit fichier exemple sur lequel s'appuyer.
Car pour l'instant ton code est assez flou quant à sa finalité.
Cordialement

Re : Importer des fonctions excel dans des macro

Bien

Voici ce que je dois faire, j'ai un tableau :


A partir de deux dates au format jj/mm/yyyy, par exemple 01/09/2012 et 03/09/2012, je dois pouvoir sommer tous les coefficients du tableau compris entre ces deux dates.

Rmq : On ne s'occupe pas de l'année... pour diverses raisons

On cherche le NOMBRE de jour entre ces deux dates, ensuite, on cherche pour chacune de ces dates le JOUR et le MOIS correspondant, après on cherche le coefficient dans le tableau à l'aide de HLookup(MOIS, B2:K33, JOUR+1, FALSE). On ajoute ce coefficient à la somme. On réitère la procédure.

Sur l'exemple :
nbr de jour entre ces deux dates : 2
on doit donc sommer à partir du tableau : 6 + 3

Je débute en VBA, excuser moi si ce n'est pas clair. Et merci à tous

Cordialement