Problème de Date

[benoa]

Bonjour à tous,

Je souhaite créer une fonction avec l'éditeur VBA mais je n'arrive pas à effectuer ce que je désirais faire:

J'ai un tableau représentant
- les lignes représentent des jours, indicés de 1 à 30
- en colonne représentent des mois, indicés de 1 à 12

on a donc une matrice de coefficients de taille nxp = 30x12

Je souhaiterais à partir de deux dates jj/mm/aaaa et bb/nn/cccc, effectuer une somme des coefficients de la matrice entre ces deux dates, il faut donc que j’extraie :

=> le nombre de jour entre ces deux dates
=> le jour et le mois d'une date

Voici ce que j'ai effectué : date1 et date2 sont mes deux dates, t est mon tableau

Public Function DJU(date1 As Date, date2 As Date, t As Integer) As Double
Dim n As Integer, S As Double

n = WorksheetFunction.DateDiff(date2, date1, "D")
S = 0
For i = 0 To (n - 1) Step 1
date1 = DateAdd("d", i, date1)
j = WorksheetFunction.JOUR(date1)
m = WorksheetFunction.MOIS(date1)
S = S + WorksheetFunction.RechercheH(m, t, (j + 1), FAUX)
Next i
DJU = S
End Function


Cette fonction ne marche pas, je pense que c'est un problème de format de la date, un problème récurent sous Excel d'après ce que j'ai lu. Quelqu'un aurait il une idée de l'erreur que je commets.

Merci à tous.

 

[gilbert_RGI]

Re : Problème de Date

Bonjour

dans la fonction recherche t c'est quoi?

 

[benoa]

Re : Problème de Date

t est la matrice 30*12 de coefficient, cette fonction va rechercher le coefficient de la colonne correspondant au mois m de la date et au jour j+1.

 

[gilbert_RGI]

Re : Problème de Date

ok normalement la fonction recherche n'a que 2 ou 3 attributs hors la votre fonction en a 4 ne serait-ce pas là l'erreur et si t est un coéficient ou cette variable est elle renseignée

 

[Victor21]

Re : Problème de Date

Bonjour.

Pas spécialiste du VBA, loin de là, mais la structure d'une date n'inclue-t-elle pas, en plus du jour et du mois, une notion d'année?

 

[benoa]

Re : Problème de Date

La fonction RechercheH prend en paramètre : (nbr à rechercher dans la première colonne du tableau, tableau, ligne du coefficient , nbr approché de ce coef).

Je pense que c'est un problème de format de date :
Est ce que 01/01/2012 est considéré comme une date au format jj/mm/aaaa et est ce que l'appel des différentes fonctions ne changerait pas ce format ?