Discussion :

[kamala113]

Bonjour,

Peut être quelqu'un peut il m'aider, je n'arrive pas à résoudre mon pb qui est donné ds le fichier de ce lien :
http://www.cjoint.com/c/FHCmn47rpOf (avec les macro)
http://www.cjoint.com/c/FHCmo0duy1f (sans les macros)

Il y a les onglets avec des dates que j ajoute chaque jour et pour lesquelles j ai des stratégies d'investissement différentes.

En fin de mois je souhaiterais pouvoir récuperer dans l onglet recap:

La synthèse des trades de chaque stratégie (en jaune dans le menu déroulant de l'onglet recap)

reprenant la date //heure// realized P&L// cumul realized P&L// Pts // Cumul realized Pts) mais à part faire un copier coller dans un nouvel onglet de tous les onglets du mois et à nouveau faire des tri de ce nouvel onglet je ne vois pas comment faire...

Enfin serait il possible d'ajouter un fonctionnalité de sorte à récuperer toutes les opérations de tous les onglets sur un seul onglet afin d'avoir une récap globale?

Je précise également que chaque jour j'ajoute un onglet des recap de trades de la journée


Merci beaucoup pour votre aide

Arnaud

[EricDgn]

Une solution assez simple:
- pour chaque mois commencer par créer une feuille dont le nom est "RECAP xx" ou xx est le n° du mois, tel qu'utilisé dans chaque onglet journalier
- dans chaque onglet journalier, ajouter un bouton qui appelle la macro ci-dessous, laquelle ajoute la date et la valeur en C6 dans la feuille RECAP du mois.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub RecapMois()
    Dim sNomOnglet As String, sNomRecap As String
    Dim laDate As Date, laValeur As Single, kR As Long
    sNomOnglet = ActiveSheet.Name
    sNomRecap = "RECAP " & Right(sNomOnglet, 2)
    laDate = DateSerial(Year(Date), Val(Right(sNomOnglet, 2)), Val(Left(sNomOnglet, 2)))
    laValeur = [D6]
    On Error Resume Next
    Worksheets(sNomRecap).Select
    If Err.Number = 9 Then
        MsgBox "Il faut commencer par créer une feuille  " & sNomRecap, , "Opération abandonnée"
        Exit Sub
    End If
    On Error GoTo 0
    '--- chercher la ligne de la 1ère cellule vide en colonne B, à partir de la 7e ligne
    kR = 7
    While Cells(kR, 2) <> ""
        kR = kR + 1
    Wend
    '--- inscrire date et valeur
    Cells(kR, 2) = laDate
    Cells(kR, 3) = laValeur
    Cells(kR, 2).Activate
End Sub

La macro ne vérifie pas
- que la même journée n'a pas été ajoutée 2 fois,
- que les journées sont entrées dans le bon ordre.

Et bonne chance au grand casino !