XL 2019 statistiqe par jour

blackice

XLDnaute Nouveau
bonjour j'ai des statistiques de trading
pourriez vous modifier le tableau de résultat
pour avoir des statistiques par jour et creer un tableau du lundi au vendredi de 0 a 24 h
et ne garder que le trade qui est pris le premier dans l'heure
exemple il y a 5 trade pour le AUDUSD de 10h a 11h le lundi
et je veux garder que le premier trade de l'heure
 

Pièces jointes

  • forex fury 28.03 to 30.05 coinexx broker gmt+3.xlsx
    901 KB · Affichages: 15

job75

XLDnaute Barbatruc
Bonjour blackice,

Voyez le fichier joint et cette macro dans le code de la feuille "1er trade" :
VB:
Private Sub Worksheet_Activate()
Dim tablo, ncol%, d As Object, i&, x$, n&, j%
With [table_1]
    .Sort .Cells(1), xlAscending, Header:=xlYes  'tri de sécurité
    tablo = .Value
End With
ncol = UBound(tablo, 2)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo)
    x = Left(tablo(i, 1), 13) & tablo(i, 5) 'les minutes sont exclues
    If Weekday(tablo(i, 1), 2) < 6 And Not d.exists(x) Then 'du lundi au vendredi
        d(x) = ""
        n = n + 1
        For j = 1 To ncol
            tablo(n, j) = tablo(i, j)
        Next j
    End If
Next i
'---restitution---
If FilterMode Then ShowAllData 'si la feuille est filtrée
With [A2] '1ère cellule de destination, à adapter
    If n Then .Resize(n, ncol) = tablo
    .Offset(n).Resize(Rows.Count - n - .Row + 1, ncol).ClearContents 'RAZ en dessous
End With
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
Elle se déclenche quand on active la feuille.

Bien noter que les dates/heures sont au format US sous forme de textes, je ne les ai pas modifiées.

A+
 

Pièces jointes

  • forex fury 28.03 to 30.05 coinexx broker gmt+3(1).xlsm
    898.5 KB · Affichages: 7

blackice

XLDnaute Nouveau
je voudrais un tableau comme sur la feuille 1
1591734926932.png
 

job75

XLDnaute Barbatruc
Bonjour blackice, chris le forum,

Il suffit de copier les tableaux de droite, les formules recalculent les valeurs :
VB:
'---tableaux de droite---
With Feuil1 'CodeName
    Intersect(.UsedRange, .Columns(ncol + 1).Resize(, .Columns.Count - ncol)).EntireColumn.Copy Cells(1, ncol + 1)
End With
With UsedRange: End With 'actualise les barres de défilement
Fichier (2).

A+
 

Pièces jointes

  • forex fury 28.03 to 30.05 coinexx broker gmt+3(2).xlsm
    900.2 KB · Affichages: 6

blackice

XLDnaute Nouveau
merci c'est exactement ce que je voulais
mais il y a une erreur
tous les trades en date du
05/07/2020 ont disparus
je l'ai remarquer pour le audcad a 19h et le nzdjpy a 18h en date du 05/07/2020 ils ne devraient pas etre a 100%
car sur la feuille 1 en ligne 5624 le nzdjpy est un lost (perte) et c'est le premier trade de l'heure
 

Discussions similaires

Réponses
14
Affichages
734

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 229
Messages
2 086 426
Membres
103 206
dernier inscrit
diambote