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