Récupérer une plage de cellules

[nadir****]

Bonjour
Je voudrais récupérer une plage de cellules d'uen autre feuille dans la feuille active.
Voici le bout de programme que j'ai écrit mais qui ne fonctionne pas.
Est-ce que quelqu'un a une idée ?

Voici le code:

Sub Deplacement()

Range("Feuille1!A1").CurrentRegion.Copy
Range("A1").Select
ActiveSheet.Copy

End Sub

 

[Guest]

Re : Récupérer une plage de cellules

Re Nadir,

En supposant que Feuille1 existe bien.

Sub Deplacement()
Range("Feuille1!A1").CurrentRegion.Copy Destination:= Range("A1")
End Sub

Si c'est déplacer sans conserver les données d'origine mettre .Cut en lieu et place de .Copy

A+

 

[nadir****]

Re : Récupérer une plage de cellules

Merci Hasco.
A+

 

[nadir****]

Re : Récupérer une plage de cellules

Est-ce qu'il est possible de faire de même avec une feuille dans un autre classeur ?
Et que se passe-t-il si le classeur est fermé ?

 

[Guest]

Re : Récupérer une plage de cellules

Re Nadir,

C'est possible avec un classeur ouvert avec la syntaxe ci-dessous

Range("Feuille1!A1").CurrentRegion.Copy Destination:= WorkBooks("NomClasseur.xls").sheets("Feuil1").Range("A1")

ici le classeur 'NomClasseur.xls' est le classeur de destination de la plage mais l'inverse est possible aussi.

Pour les classeurs fermés, fait une recherche sur le forum, beaucoup de fils à ce sujets ont été traités. Il faut d'autres techniques.

A+