Rechercher : dans
Par :

[Excel][VBA] Copier sans sélectionner

Dernière réponse le 5 jun 2006 à 18:02:49 netman44, le 31 mai 2006 à 12:50:31 
 Signaler ce message aux modérateurs

Bonjour,

Je cherche à copier des données d'un onglet pour les coller dans un autre mais sans sélectionner les onglets en question au cours de l'opération.

Pour cela, je pensais avoir résolu le problème en attribuant des noms à chaque plage concernée mais visiblement le fait de copier la plage oblige quand même à aller dans l'onglet.

Mon problème est que chaque onglet de ma feuille contient un code à l'activation qui repositionne la feuille :
Range("F2").Select
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column

Donc quand je fais l'opération suivante :
Range("PLAGE_1").Copy '(sur l'onglet 1)
Range("PLAGE_2").Paste '(sur l'onglet 2)

La deuxième ligne échoue car le fait d'aller sur l'onglet 2 sélectionne la cellule F2 et annule du même coup la copie de "PLAGE_1".

Merci de votre aide.

Netman

1

Lupin.A, le 31 mai 2006 à 15:41:33

Bonjour,


Application.EnableEvents = False
Range("PLAGE_1").Copy '(sur l'onglet 1)
Range("PLAGE_2").Paste '(sur l'onglet 2)
Application.EnableEvents = True


Lupin

Répondre à Lupin.A

2

 netman44, le 5 jun 2006 à 18:02:49

Bonjour et merci pour ta réponse. Mon problème est résolu avec cette astuce.

Netman

Répondre à netman44