Macro avec boucle sur les feuilles de type (feuil##)

[arnaud75017]

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

 

[Paritec]

Re : Macro avec boucle sur les feuilles de type (feuil##)

Bonsoir Arnaud75017 le forum
je vais modifié je reviens.
Pourquoi faire simple quand on peut faire compliqué!!!
a+
papou😱

 

[Guest]

Re : Macro avec boucle sur les feuilles de type (feuil##)

Bonjour,

"Feuil##" n'est pas un nom de feuille mais un masque pour LIKE et uniquement LIKE.

Ws est une variable objet référençant une feuille donc activer Ws

Ws.Activate

Et sans activation de la feuille

     Dim shDest As Worksheet
    Set shDest = Sheets("synthèse")
    For Each ws In Worksheets
        If ws.Name Like "Feuil##" Or ws.Name Like "Feuil#" Then
            ws.UsedRange.Rows("2:" & ws.UsedRange.Rows.Count).Copy
            shDest.Cells(shDest.UsedRange.Rows.Count + 1, 1).PasteSpecial 'Etc.....
        End If
    Next ws

A+

 

[Paritec]

Re : Macro avec boucle sur les feuilles de type (feuil##)

Bonsoir Arnaud 75017 le forum
erreur
a+
papou😱

 

[arnaud75017]

Re : Macro avec boucle sur les feuilles de type (feuil##)

c'est vraiment top, j'ai pu terminer ma macro merci beaucoup !!