Faire une synthèse de plusieurs feuilles dans une seule avec VBA
Y
Bonjour,
Je n'arrive pas à trouver la solution pour le code ci-dessous. Je souhaite faire dans un onglet "Synthèse" une consolidation de toutes les feuilles du classeur sauf certaines. Je vous joins le code ci-dessous car je n'arrive pas à trouver l'erreur.
J'ai aussi un message "erreur 1004...", il ne veut pas du sheets(j).select et du rows(i).select.
Pouvez-vous m'aider? svp :)
Sub synthese()
Dim j As Long, i As Long
Dim derniereligne As Integer
Dim lastrowconsolidation As Integer
Application.ScreenUpdating = False
For j = 3 To Worksheets.Count - 5
derniereligne = Range("A1000000").End(xlUp).Row
For i = 3 To derniereligne
Sheets(j).Select
Rows(i).Copy
Selection.Copy
Sheets("2022 Synthèse (2)").Select
lastrowconsolidation = Range("A1000000").End(xlUp).Row + 1
Cells(lastrowconsolidation, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i
Next j
Application.ScreenUpdating = True
MsgBox "La synthèse est terminée", vbOKOnly + vbInformation, "Information"
End SubEdit modo : merci de mettre le code entre balises SVP
Bonjour Ylena, le forum,
En joignant un fichier représentatif de ta demande (et sans données confidentielles) , tu augmenterais tes chances d'obtenir une réponse adaptée,
Cordialement,