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?

1 réponse

  1.
    Gyrus Messages postés 3360 Statut Membre 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
    1. slideurpro
       
      Nickel, ça marche, merci !
      0

Discussions similaires

Jeux Bundle Copy ?
boobs60 -
bilobilo -

4 réponses
UNIVERSAL COPY
rosarian -
cf -

39 réponses