Bonjour le forum,
Je cherche depuis hier le moyen de copier/coller des plages de plusieurs feuilles, vers une feuille de données, sans activer ces différentes feuilles.
Mon code actuel, qui fonctionne très bien, est le suivant :
Problème pour moi, c'est que je suis obligé d'activer ces feuilles et que je souhaite lancer une macro quand j'arrive sur ma feuille de données (Plan d'action), avec Activate.
Or, ma macro tourne en boucle, ce qui me semble logique puisque je fais des aller/retour sur ma feuille plan d'action.
Donc, peut on copier coller des plages variables avec une boucle sans activer les feuilles correspondantes ?
Que faudrait-il changer dans mon code ?
Je vous remercie pour vos réponses.
Bien cordialement
Je cherche depuis hier le moyen de copier/coller des plages de plusieurs feuilles, vers une feuille de données, sans activer ces différentes feuilles.
Mon code actuel, qui fonctionne très bien, est le suivant :
Code:
Sub PA()
Dim ws As Worksheet, i As String
Application.ScreenUpdating = False
i = ActiveSheet.Name
For Each ws In worksheets
If ws.Name <> "Plan d'action" And ws.Name <> "Calendrier" Then
worksheets(ws.Name).Activate
Range("a1:j" & Range("B1000").End(xlUp).Row).Copy _
Destination:=Sheets("Plan d'action").Range("B65536").End(xlUp)(1).Offset(1, -1)
End If
Next ws:
Application.ScreenUpdating = True
End Sub
Or, ma macro tourne en boucle, ce qui me semble logique puisque je fais des aller/retour sur ma feuille plan d'action.
Donc, peut on copier coller des plages variables avec une boucle sans activer les feuilles correspondantes ?
Que faudrait-il changer dans mon code ?
Je vous remercie pour vos réponses.
Bien cordialement