Sujet Précédent Sujet Suivant

[Excel][VBA] Copier sans sélectionner

Résolu/Fermé
netman44 Messages postés 59 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 29 janvier 2020 - 31 mai 2006 à 12:50
netman44 Messages postés 59 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 29 janvier 2020 - 5 juin 2006 à 18:02
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
A voir également:

2 réponses

Réponse 1 / 2
Utilisateur anonyme
31 mai 2006 à 15:41
Bonjour,


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


Lupin
2
Réponse 2 / 2
netman44 Messages postés 59 Date d'inscription dimanche 9 avril 2006 Statut Membre Dernière intervention 29 janvier 2020 1
5 juin 2006 à 18:02
Bonjour et merci pour ta réponse. Mon problème est résolu avec cette astuce.

Netman
1