Probleme copy paste

Résolu/Fermé
slideurpro - Modifié par slideurpro le 9/01/2014 à 17:39
 slideurpro - 10 janv. 2014 à 08:46
Bonjour,

J'ai un problème avec copy et paste.
J'ai crée une zone de la cellule A2 à A23 que j'ai nommé "ZoneA" dans l'onglet B et j'aimerais la copié dans une même zone mais situé dans un onglet différent (ici onglet "A")

J'ai tout dabord testé comme cela
Application.Workbooks("Classeur1.xlsm").Worksheets("B").Range("zoneA").Copy
Application.Workbooks("Classeur1.xlsm").Worksheets("A").Columns("A2").Paste

Puis j'ai testé en créant une zone "ZoneAbis" dans l'onglet A pour copier la "ZoneA" de l'onglet B.

Application.Workbooks("Classeur1.xlsm").Worksheets("B").Range("zoneA").Copy
Application.Workbooks("Classeur1.xlsm").Worksheets("A").Range("ZoneAbis").Paste

J'espère que je ne vous ai pas perdu.

Mes deux façons de faire ne fonctionne pas , pourquoi?
A voir également:

1 réponse

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
9 janv. 2014 à 17:53
Bonjour,

Essaie comme cela
Sub Test()
With Workbooks("Classeur1.xlsm")
.Worksheets("B").Range("zoneA").Copy
With .Worksheets("A")
.Paste Destination:=.Range("A2")
End With
End With
Application.CutCopyMode = False
End Sub

A+
0
Nickel, ça marche, merci !
0