arnaud75017
XLDnaute Junior
Bonjour,
J'ai un tableau sur chaque feuille de type Feuil1 , Feuil2 etc. et je souhaiterais regrouper toutes les données dans l'onglet synthèse.
Le code est presque terminé, le seul problème est qu'il n'active pas la feuille concernée, la code Sheets("Feuil##").Activate ne fonctionne pas.
Vous trouverez l'extrait de la macro concerné juste en dessous. Merci beaucoup !
Sub
For Each Ws In Worksheets
If Ws.Name Like "Feuil##" Or Ws.Name Like "Feuil#" Then
Sheets("Feuil##").Activate
ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Copy
Sheets("synthèse").Select
Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).PasteSpecial
End If
Next Ws
End sub
J'ai un tableau sur chaque feuille de type Feuil1 , Feuil2 etc. et je souhaiterais regrouper toutes les données dans l'onglet synthèse.
Le code est presque terminé, le seul problème est qu'il n'active pas la feuille concernée, la code Sheets("Feuil##").Activate ne fonctionne pas.
Vous trouverez l'extrait de la macro concerné juste en dessous. Merci beaucoup !
Sub
For Each Ws In Worksheets
If Ws.Name Like "Feuil##" Or Ws.Name Like "Feuil#" Then
Sheets("Feuil##").Activate
ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Copy
Sheets("synthèse").Select
Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).PasteSpecial
End If
Next Ws
End sub