Classement de données par dateRésolu

Question

Bonjour &#224; tous.

J'essaie de cr&#233;er une macro Excel capable de classer des donn&#233;es par dates. Mes donn&#233;es de d&#233;part sont de la forme suivante : se sont des placements financiers pour un montant X, de tel jour &#224; tel jour :

Par exemple : 
      d&#233;part      fin         Montant
 20/01/06   25/01/06   150 000 000 ?
22/01/06   24/01/06   200 000 000 ?
21/01/06   22/01/06   300 000 000 ?    et ainsi de suite

je souhaite pr2senter ces donn&#233;es en classant le stock de placement pour chaue jour sur la p&#233;riode consid&#233;r&#233;e. pour l'ex le r&#233;sultat serai le suivant:

20/01/06   150 000 000 ?
21/01/06   450 000 000 ?      (150 000 000 + 300 000 000)
22/01/06   650 000 000 ?      (150 000 000 + 300 000 000 + 200 000 000)
23/01/06   350 000 000 ?      (150 000 000 + 200 000 000)
24/01/06   350 000 000 ?      (150 000 000 + 150 000 000)
25/01/06   150 000 000 ?     

Voilou  

merci de votre aide

jrivet · Accepted Answer

Salut, Regarde si ce qui suit peut t'aider Note: J ai juste fait une boucle de 3 pour ton exemple mais il faudra l'etendre a toute ta plage. Mais c est juste pour le principe. Teste sous Excel 2000. Dim i As Integer Dim Datei As Date Dim PremiereD As Date Dim DerniereD As Date Dim DateLoop As Date Dim tmpSomme As Long PremiereD = "31/12/2050" For i = 1 To 3 'Recupere la date dans la colone Date initiale Datei = CDate(Range("A" & i)) 'Memorise la date la plus ancienne If Datei < PremiereD Then PremiereD = Datei 'Recupere la date dans la colone Date Finale Datei = CDate(Range("B" & i)) 'Memorise la date la plus recente If Datei > DerniereD Then DerniereD = Datei Next 'Verifie la periode MsgBox PremiereD & "-> " & DerniereD For DateLoop = PremiereD To DerniereD 'Remise a zero de la sommme tmpSomme = 0 For i = 1 To 3 If DateLoop >= CDate(Range("A" & i)) And DateLoop <= CDate(Range("B" & i)) Then tmpSomme = tmpSomme + CLng(Range("C" & i)) End If Next MsgBox DateLoop & ": " & tmpSomme Next

geric57 · Answer

Merci Jrivet

jrivet · Answer

Re,

Mais de rien tant que ca peut aider ;)

geric57 · Answer

Juste un dernier petit probl&#232;me, comment afficher la liste des r&#233;sultats dans 2 colonnes (une date et une montant) dans la sheet excel et non dans des messages box ???

Merci!!!!!!!!!!!!

jrivet · Answer

Re,

Tu rajoute une variable Dim j as integer

Tu initialise j a 1 AVANT la boucle 
j = 1
For DateLoop = PremiereD To DerniereD

Tu remplace la ligne "MsgBox DateLoop & ": " & tmpSomme"
Par les trois lignes suivantes

Range("D" & j).value = DateLoop
Range("E" & j).value = tmpSomme
j = j +1


Et voila les dates sont dans la colonne D et les sommes dans la colonne E (apres tu les met ou tu veux...)

@+
Julien

geric57 · Answer

Nikel

merci

Classement de données par date

6 réponses

Discussions similaires