Discussion :

[Lameth]

Hello,

Pas de probleme de code mais plus sur le concept, le pirncipe, l'algoritmique.

Supposons que j'ai une liste dans Excel avec des dates et des valeurs:

Date1 x1
Date2 x2
Date5 x3
Date6 x4
Date7 x5
Date8 x6
Date10 x7
Date11 x8
Date13 x9

Premier cas de consience. Je veux par exemple calculer une moyenne glissante des trois derniere dates, c'est a dire la moyenne des x entre DateN et DateN-3. Probleme je n'ai pas toutes les dates et une contrainte imposee et de dire que si j'ai pas DateN, la valeur affectee a DateN-1 est dupliquee. Donc en Date6 ma moyenne est (x4+x3+x2)/3 et en Date13 (x9+2*x8)/3.

Oui la premier idee simple est de retraiter ma liste de date en vue d'avoir un historique rempli mais si c'est la solution evident c'est aussi une solution qui ne me satisfait pas au vu de mon nombre de donnees (encore une boucle qui va s'incrementer de de 1 a 5000... Perte de temps et de stabilite).

Maintenant j'ai une deuxieme historique, aussi a trous et les dates ne concordent pas necessairement au premier et je vais devoir comparer les deux a dates egales cela va de soi.

Date2 y1
Date3 y2
Date4 y3
Date5 y4
Date7 y5
Date8 y6
Date09 y7
Date12 y8
Date13 y9

Comment faire? Encore une boucle pour faire coincider mes dates?

Quelle methodologie adopteriez vous?

Merci

Lam

[ouskel'n'or]

Pour avoir toutes les cellules de tes 5000 lignes renseignées, c'est simple. Tu crées une formule dans une colonne qui dit ça qui faut pour faire ça qui faut
Je suppose...
que tes dates sont en colonne 1 (A)
Que tes moyennes sont en colonne 2 (B)
En colonne 3 (C) je colle une formule à l'aide de cette macro

Code :

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

1
2
3
4
5
6
Sub test()
Dim FL1 As Worksheet
    Set FL1 = Worksheets("feuil1")
    FL1.Range("C2").FormulaR1C1 = "=IF(RC[-2]="""",R[-1]C[-2],RC[-2])"
    FL1.Range("C2").Copy FL1.Range("C3:c5000")
End Sub

Rien ne t'empêche ensuite de couper la colonne C pour la coller à la place de la colonne A
Pour les sommes, tu fais une formule sur la troisième ligne et de la même manière tu la copies jusquà la 5000 ième
Pour la comparaison, ça va être plus coton. Peux-tu me dire si une liste est plus longue que l'autre et si toutes les dates d'un tableau sont contenues dans l'autre, et lesquelles (feuil1 ou feuil2 ?)
A+

En fait, pour la moyenne, il faut copier la formule sur toutes les lignes puis nettoyer les sur-numéraires.
Là je place la moyenne en colonne B

Code :

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

1
2
3
4
5
6
7
8
9
Sub TestSomme()
Dim FL1 As Worksheet
    Set FL1 = Worksheets("feuil1")
    FL1.Range("B3").FormulaR1C1 = "=SUM(R[-2]C[-1]:RC[-1])/3"
    FL1.Range("B3").Copy FL1.Range("B4:B5000")
    For i = 1 To 5000 Step 3
         FL1.Range("B" & i & ":B" & i + 1).ClearContents
    Next
End Sub

[Lameth]

Merci, effectivement, comme je le disais c'est la solution qui coule de source. Pour les comparaisons, les listes ne sont pas necessairement de la meme taille ni concordantes, gros probleme...

Mais la ou je suis embette c'est aussi que je vais affiner, c'est a dire que ma moyenne ne va pas toujours contenir le meme nombre de donnees. En effet, si je fais une moyenne sur un mois, ca peut etre 28, 29, 30 ou 31 cellule en supposant que mes dates soint regulieres, ce qui n'est en plus pas le cas.

Mes dates et mes valeurs sont issues d'une requete SQL qui tappe dans Access par ADO Excel VBA. Je commence a imaginer une possibilite de stocker le resultat de ma requete dans un tableau et de dire de faire un calcul qui prenne toutes les valeurs entre Date et Date-3mois (en valeur proche) mais je sais pas trop comment m'y prendre, le process algorithmique reste flou...

[ouskel'n'or]

Qu'est-ce qui te manque ? La requête pour récupérer tes données sur Access ? Si c'est ça, je te conseille de regarder ici, ou ici, chapitre "Comment importer les données d'une table Access dans la feuille de calcul ?", ou de poster une autre discussion sur ce problème si tu rencontres des difficultés.
Une fois que tu sauras faire ça, le reste est de la roupie de sansonnet
Bon courage
A+

[Lameth]

Non non, mes donnees sont extraites de la table Access aisement le probleme ne porte pas la dessus.

Je cherche juste la solution algorithmique optimale pour faire une moyenne mobile d'un historique de 3 mois glissant (par exemple) alors que mes donnees sont incompletes, et de comparer avec un autre jeu de donnees...

[ouskel'n'or]

Comment fais-tu si une des dates correspond entre les deux feuilles mais pas les deux autres ?
Donne-nous un exemple de ce que tu fais. Dates de feuil1, dates de feuil2, moyenne dans feuil1, moyenne si correspondance dans feuil2, avec exemple pour moyenne sur une seule date correspondante, ou avec deux ou avec trois... parce que là, je suis un peu dans le brouillard