GROS problème d'agregation, j'ai besoin d'AIDE, SVP !!!!
Résolu
eupeup
Messages postés
57
Date d'inscription
mardi 11 mars 2003
Statut
Membre
Dernière intervention
24 avril 2013
-
1 sept. 2006 à 16:13
eupeup Messages postés 57 Date d'inscription mardi 11 mars 2003 Statut Membre Dernière intervention 24 avril 2013 - 4 sept. 2006 à 10:46
eupeup Messages postés 57 Date d'inscription mardi 11 mars 2003 Statut Membre Dernière intervention 24 avril 2013 - 4 sept. 2006 à 10:46
4 réponses
cs_Dowin
Messages postés
11
Date d'inscription
mardi 5 octobre 2004
Statut
Membre
Dernière intervention
15 avril 2008
2 sept. 2006 à 17:51
2 sept. 2006 à 17:51
Salut
J'ai essayé un truc a toi de voir si ca marche chez toi et surtout si c'est ce que tu cherches.
Sur la feuille 1 j'ai les trades et un CommandButton1 et la feuille 2 affiche l'agrégation.
Voila le code :
Dim IndexHeure As Integer
Dim Ligne As Integer
Dim LigneAffichage As Integer
Dim CoursMontant As Boolean
Dim CoursDescendant As Boolean
Dim CoursMonotone As Boolean
Private Sub AnalyseCours()
Do
If Worksheets(1).Cells(Ligne, 2) <> Worksheets(1).Cells(Ligne - 1, 2) Then
If Worksheets(1).Cells(Ligne, 2) > Worksheets(1).Cells(Ligne - 1, 2) Then
CoursMontant = True
CoursMonotone = False
If CoursMontant = CoursDescendant Then
If CoursMonotone = False Then
Agregation
IndexHeure = Ligne
End If
End If
CoursDescendant = False
Else
CoursDescendant = True
CoursMonotone = False
If CoursMontant = CoursDescendant Then
If CoursMonotone = False Then
Agregation
IndexHeure = Ligne
End If
End If
CoursMontant = False
End If
Else
CoursMonotone = True
End If
AnalyseHeure
Ligne = Ligne + 1
Loop Until Worksheets(1).Cells(Ligne, 1) = ""
Agregation
End Sub
Private Sub AnalyseHeure()
If (Worksheets(1).Cells(IndexHeure, 1) * 24 * 60 * 60) - (Worksheets(1).Cells(Ligne, 1) * 24 * 60 * 60) > 0.1 Then
Agregation
IndexHeure = Ligne
CoursMontant = False
CoursDescendant = False
CoursMonotone = True
End If
End Sub
Private Sub CommandButton1_Click()
CoursMontant = False
CoursDescendant = False
CoursMonotone = True
IndexHeure = 1
Ligne = 2
LigneAffichage = 1
AnalyseCours
End Sub
Private Sub Agregation()
For i = IndexHeure To Ligne - 1
Volume = Volume + Worksheets(1).Cells(i, 3)
Cours = Cours + (Worksheets(1).Cells(i, 2) * Worksheets(1).Cells(i, 3))
Next i
Worksheets(2).Cells(LigneAffichage, 1) = Worksheets(1).Cells(IndexHeure, 1)
Worksheets(2).Cells(LigneAffichage, 2) = Format(Cours / Volume, "########0.00")
Worksheets(2).Cells(LigneAffichage, 3) = Volume
LigneAffichage = LigneAffichage + 1
End Sub
j'ai les fichiers excel que je peux t'envoyer par mail si tu veux.
Dorian
J'ai essayé un truc a toi de voir si ca marche chez toi et surtout si c'est ce que tu cherches.
Sur la feuille 1 j'ai les trades et un CommandButton1 et la feuille 2 affiche l'agrégation.
Voila le code :
Dim IndexHeure As Integer
Dim Ligne As Integer
Dim LigneAffichage As Integer
Dim CoursMontant As Boolean
Dim CoursDescendant As Boolean
Dim CoursMonotone As Boolean
Private Sub AnalyseCours()
Do
If Worksheets(1).Cells(Ligne, 2) <> Worksheets(1).Cells(Ligne - 1, 2) Then
If Worksheets(1).Cells(Ligne, 2) > Worksheets(1).Cells(Ligne - 1, 2) Then
CoursMontant = True
CoursMonotone = False
If CoursMontant = CoursDescendant Then
If CoursMonotone = False Then
Agregation
IndexHeure = Ligne
End If
End If
CoursDescendant = False
Else
CoursDescendant = True
CoursMonotone = False
If CoursMontant = CoursDescendant Then
If CoursMonotone = False Then
Agregation
IndexHeure = Ligne
End If
End If
CoursMontant = False
End If
Else
CoursMonotone = True
End If
AnalyseHeure
Ligne = Ligne + 1
Loop Until Worksheets(1).Cells(Ligne, 1) = ""
Agregation
End Sub
Private Sub AnalyseHeure()
If (Worksheets(1).Cells(IndexHeure, 1) * 24 * 60 * 60) - (Worksheets(1).Cells(Ligne, 1) * 24 * 60 * 60) > 0.1 Then
Agregation
IndexHeure = Ligne
CoursMontant = False
CoursDescendant = False
CoursMonotone = True
End If
End Sub
Private Sub CommandButton1_Click()
CoursMontant = False
CoursDescendant = False
CoursMonotone = True
IndexHeure = 1
Ligne = 2
LigneAffichage = 1
AnalyseCours
End Sub
Private Sub Agregation()
For i = IndexHeure To Ligne - 1
Volume = Volume + Worksheets(1).Cells(i, 3)
Cours = Cours + (Worksheets(1).Cells(i, 2) * Worksheets(1).Cells(i, 3))
Next i
Worksheets(2).Cells(LigneAffichage, 1) = Worksheets(1).Cells(IndexHeure, 1)
Worksheets(2).Cells(LigneAffichage, 2) = Format(Cours / Volume, "########0.00")
Worksheets(2).Cells(LigneAffichage, 3) = Volume
LigneAffichage = LigneAffichage + 1
End Sub
j'ai les fichiers excel que je peux t'envoyer par mail si tu veux.
Dorian
cs_Kobaya
Messages postés
2
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
3 septembre 2006
2 sept. 2006 à 16:16
2 sept. 2006 à 16:16
bonjour Peupeu,
il faut d'abord qur tu définisses "monotone" : est-ce 1/10e du cours, plus, moins ?
pour la gestion des secondes, j'ai Excel 200 et windows 2000 SP4, et en utilisant le format "hh:mm:ss.00", on voit jusqu'au 1/100e, donc à priori c'est bon, non ?
prends comme référence Dep heure de départ + 1 seconde (ex. :A1+"00:00:01"). Parcours ensuite la liste, et tant que l'heure est inférieure à Dep, tu agrèges.
il faut d'abord qur tu définisses "monotone" : est-ce 1/10e du cours, plus, moins ?
pour la gestion des secondes, j'ai Excel 200 et windows 2000 SP4, et en utilisant le format "hh:mm:ss.00", on voit jusqu'au 1/100e, donc à priori c'est bon, non ?
prends comme référence Dep heure de départ + 1 seconde (ex. :A1+"00:00:01"). Parcours ensuite la liste, et tant que l'heure est inférieure à Dep, tu agrèges.
eupeup
Messages postés
57
Date d'inscription
mardi 11 mars 2003
Statut
Membre
Dernière intervention
24 avril 2013
4 sept. 2006 à 09:39
4 sept. 2006 à 09:39
Merci les gars pour votre aide.
Dowin merci pour ton code, je vais le tester de suite, par contre si'il ya moyen de me filer ta feuille excel, ca le ferait grave ( je t'ai envoyé mon adresse par message privé)
Et pour Kobaya, je crains que ca le fasse pas avec les centièmes car je dois gérer des heures qui sont précises au millième.
Sinon monotone signifie que dans le même dixième de seconde si le cours évolue, il doit évoluer dans le même sens (augmenter ou baisser).
Par exemple si dans un même dixième le cours baisse, et qu'à l'instant suivant (toujours dans le même dixième) le cours se met à grimper, alors l'évolution n'est plus monotone, du coup on débute une nouvelle agrégation.
J'espère que j'ai été assez clair.
Sinon dans l'exemple que j'ai filé dans mon premier message, on peut voir que les 7 dernières lignes sont situées dans le même dixième, pourtant on va égréger les lignes en deux groupes. Un premier contiendra les quatres premières lignes (car le cours évolue de manière croissante) et le second contiendra les trois derniers (car le cours s'est mis à baisser).
Voila, merci et Dowin si tu peux m'envoyer ta feuille excel ce serait mortel.
++
Peupeu
Dowin merci pour ton code, je vais le tester de suite, par contre si'il ya moyen de me filer ta feuille excel, ca le ferait grave ( je t'ai envoyé mon adresse par message privé)
Et pour Kobaya, je crains que ca le fasse pas avec les centièmes car je dois gérer des heures qui sont précises au millième.
Sinon monotone signifie que dans le même dixième de seconde si le cours évolue, il doit évoluer dans le même sens (augmenter ou baisser).
Par exemple si dans un même dixième le cours baisse, et qu'à l'instant suivant (toujours dans le même dixième) le cours se met à grimper, alors l'évolution n'est plus monotone, du coup on débute une nouvelle agrégation.
J'espère que j'ai été assez clair.
Sinon dans l'exemple que j'ai filé dans mon premier message, on peut voir que les 7 dernières lignes sont situées dans le même dixième, pourtant on va égréger les lignes en deux groupes. Un premier contiendra les quatres premières lignes (car le cours évolue de manière croissante) et le second contiendra les trois derniers (car le cours s'est mis à baisser).
Voila, merci et Dowin si tu peux m'envoyer ta feuille excel ce serait mortel.
++
Peupeu
eupeup
Messages postés
57
Date d'inscription
mardi 11 mars 2003
Statut
Membre
Dernière intervention
24 avril 2013
4 sept. 2006 à 10:46
4 sept. 2006 à 10:46
Dowin, je viens de tester ton code, et je crois bien que c'est exactement ce que je cherchais, donc c'est nikel nikel.
Je vais vérifier tous les ptits détails, mais je crois avoir bien compris comment t'as fait, donc je devrais pouvoir m'en sortir.
Si je galere je re posterai un message.
Merci beaucoup !!!
Je vais vérifier tous les ptits détails, mais je crois avoir bien compris comment t'as fait, donc je devrais pouvoir m'en sortir.
Si je galere je re posterai un message.
Merci beaucoup !!!