Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

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
 

chris

XLDnaute Barbatruc
RE

En dehors de tes totaux qui sont mathématiquement faux, chaque ligne détail de % de la solution donnée est strictement identique à tes tableaux...

Donc j'ai du mal à comprendre...
 

chris

XLDnaute Barbatruc
RE

J'ai vu ce qui péchait dans les % détail sur ma solution et ai corrigé

Il manque d'autres date dans la solution VBA notamment le 4 mai

Je maintiens la remarque sur les moyennes
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…