Probleme copy paste

Résolu
slideurpro -  
 slideurpro -
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

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
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
slideurpro
 
Nickel, ça marche, merci !
0

Discussions similaires

Jeux Bundle Copy ?
boobs60 -
bilobilo -

4 réponses
Arobase (@)
NöNö$ -
NöNö$ -

2 réponses