Discussion :

[FFGUY]

Bonjour,

J ai fait cette petite Macro qui devrait pouvoir me faire un resume annuelle de mes performances.
Donc J ai une Tab Menu (ou je veux faire apparaitre mon resume annuelle), puis une Tab par mois.
Donc je vais chercher le nom des differentes courses dans chaque Tab de mois et les 3 criteres de perf associes.
Ce n est pas les memes courses tous les mois et si une course a deja eu lieux un mois precedent, je veux que les criteres de perf de ce mois se mette a la suite.
Voila le code que j ai fait, helas quand je le lance rien ne se passe:

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
Sub Build_yearly_report()
Dim LastRaw As String
NbSheet = Sheets.Count
LastRaw = Worksheets("Menu").Range("A65536").End(xlUp).Row + 1
 
 
    For i = 2 To NbSheet
        For j = 2 To Sheets(i).Range("A65536").End(xlUp).Row
            For k = 15 To Sheets("Jan").Range("A65536").End(xlUp).Row
        If Sheets(i).Range("D" & j) = Sheets(1).Range("A" & k) Then
        Sheets(1).Cells(k, (3 * i) + 1) = Sheets(i).Range("G" & j & ":I" & j)
        Else
        Sheets(i).Range("D" & j & ":F" & j).Copy
        Worksheets("Menu").Cells(LastRaw, "A").Paste
        LastRaw1 = LastRaw + 1
        Sheets(i).Range("G" & j & ":I" & j).Copy
        Sheets(1).Cells(LastRaw, (3 * i) + 1).Paste
        End If
            Next k
        Next j
    Next i
End Sub

[FFGUY]

Re J ai fait ca qui marche pas trop mal mais helas ca ne me gere pas les nouvelles courses. Concretement, avec cette macro je n obtiens que les resultats de l annee pour les courses que j ai couru en Janvier.
Une idee ?

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
25
26
27
28
29
30
Sub Build_yearly_report()
Dim LastRaw As String
NbSheet = Sheets.Count
LastRaw1 = Worksheets("Menu").Range("A65536").End(xlUp).Row + 1
LastRaw2 = Sheets(2).Range("A65536").End(xlUp).Row
 
If IsEmpty(Sheets(1).Range("A16")) = True Then
    Sheets(2).Range("D2:F" & LastRaw2).Copy
    Sheets(1).Range("A15").Select
    ActiveSheet.Paste
    Sheets(2).Range("G2:I" & LastRaw2).Copy
    Following = Sheets(1).Range("G65536").End(xlUp).Offset(1, 0).Row
    Sheets(1).Range("G" & Following).Select
    ActiveSheet.Paste
End If
    For i = 3 To NbSheet
        Last = Sheets(i).Range("A65536").End(xlUp).Row
        For j = 2 To Last
            Laste = Sheets(1).Range("A65536").End(xlUp).Row
            For k = 15 To Laste
        If Sheets(i).Range("D" & j) = Sheets(1).Range("A" & k) Then
         Sheets(i).Range("G" & j & ":I" & j).Copy
         Sheets(1).Cells(k, (Sheets(i).Index * 3) + 1).Select
         ActiveSheet.Paste
        Else
        End If
        Next k
        Next j
        Next i
End Sub