Problème macro récupération de données
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:
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.
