Infos de plusieurs feuil sur ma feuil de "Récap".

[Daniel]

Bonjour à toutes et à tous et " Bonne Année ".
Question: Comment automatiser la transcription de l'ensemble des données inscrites sur plusieurs feuilles sur ma feuille de "Récap".
Voir piece jointe.
Je vous remerci d'avance. A bientôt Daniel

 

[OnErrorResumeNext]

bonjour Daniel,

tu peux copier cette macro que tu places dans un module standard.
Condition : ta page de récup doit être toujours à droite des autres, comme dans ton exemple, sinon la boucle ne s'effectue pas correctement.

-----------------------------------------------------------------------------
Sub Recap()
Application.ScreenUpdating = False

For Each sh In Worksheets
If sh.Name = "Recap" Then Exit For
Worksheets(sh.Name).Activate
Range("B6:M" & [B65536].End(xlUp).Row).Copy Destination:= _
Worksheets("Recap").[B65536].End(xlUp).Offset(1, 0)

Worksheets("Recap").Activate
Next
End Sub
------------------------------------------------------------------------------


amicalement

 

[Daniel]

Bonjour OERN,

Parfait,Excellent, rien à redire, formidable.
Merci " OnErrorResumeNext "
Bonne fin de journée.

 

[Daniel]

Bonsoir OERN et le Forum,

J'ai oco un ti soucis...
Sur l'ensemble des feuilles sélectionnées, certaines devraient être omise. Imaginons onglet profession, onglet age...
Que dois-je apporter en complément de cette excellente macro.
Merci encore et à bientôt. Daniel

 

[OnErrorResumeNext]

Daniel,

essaye comme suit, ça devrait le faire :

-----------------------------------------------------------------------------
Sub Recap()
Application.ScreenUpdating = False

For Each sh In Worksheets

If Left(sh.Name, 8) = "Attelier" Then
Worksheets(sh.Name).Activate
Range("B6:M" & [B65536].End(xlUp).Row).Copy Destination:= _
Worksheets("Recap").[B65536].End(xlUp).Offset(1, 0)
End If

Next

Worksheets("Recap").Activate

End Sub
------------------------------------------------------------------------------

La macro ne s'interesse qu'aux feuilles dont le nom commence par "Attelier", avec 2 "t",puisque tu les a nommées comme ça.


amicalement