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

XL 2019 statistiqe par jour

  • Initiateur de la discussion Initiateur de la discussion blackice
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

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
 
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...
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

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