Probleme copy paste

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

1 réponse

  1. Gyrus
    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
    1. slideurpro
      Nickel, ça marche, merci !
      0

Discussions similaires

Jeux Bundle Copy ?
boobs60

4 réponses