Discussion :

[dy974]

Bonjour,

Mettant en place des reporting, je dois agréger plusieurs feuilles en une seule pour créer des TCD.
J'ai plusieurs feuilles qui contiennent le même tableau. Pour tout mettre dans le même tableau, j'ai adapté plusieurs codes trouvés ici ou ailleurs.

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
 
Sub synthese()
Dim Sh As Worksheet
Dim Lastrow As Integer
Application.ScreenUpdating = False
[Recap!2:65536].EntireRow.Delete
With Sheets("Recap")
    For Each Sh In Sheets
    Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        If Sh.Name <> .Name Then
            Sh.Range("A2:M2" & Lastrow).Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
        End If
    Next Sh
End With
End Sub

Sur les 5 feuilles à traiter, tout ce passe bien pour 4 mais pour une la macro ne prends les données que jusqu'à la ligne 21 et je ne comprends pas pourquoi.

Quelqu'un aurait-il une idée, est-ce un problème de code ou de structure de fichier ?
Merci de votre aide.

Pour info, je me débrouille, mais je ne suis pas un pro de VBA. D'autant plus que pendant quelques mois je n'utilisait plus Excel et j'ai perdu un peu mais automatisme.

[Philippe Tulliez]

Bonjour,
Une solution "clé sur porte" dans cette contribution Regrouper plusieurs feuilles sur une autre. (2003-2010)

[dy974]

Merci de votre réponse.

Mais j'aimerais quand même comprendre pourquoi mon code ne marche pas correctement sur une seule feuille.

[Philippe Tulliez]

Bonjour,
A cause de la ligne 9

Code :

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

   Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Tu utilises l'objet ActiveSheet qui est comme son nom l'indique la feuille active or tu boucles sur la collection des feuilles du classeur tu dois alors utiliser l'objet sh.

[dy974]

Nickel merci,
j'ai donc remplacé ActiveSheet par Sh et j'ai retrouvé mes petits.