Copier / Coller de plage variable

[Sly le globe trotter]

Bonjour,

je m'en remets à vos talents d'excelliens pour le sortir de la panade 😀 J'ai effectué quelques recherches sur le net sans trouver comment résoudre mon problème.

Je cherche à copier / coller des plages de données variable sans succès.

Du coup, je procède ainsi

Sheets("Treated Data").Cells(lin_syn, 1) = Sheets("Raw Data").Cells(lin, 1)
Sheets("Treated Data").Cells(lin_syn, 2) = Sheets("Raw Data").Cells(lin, 2)
Sheets("Treated Data").Cells(lin_syn, 3) = Sheets("Raw Data").Cells(lin, 3)

N'est-il possible d'utiliser la fonction copy pour copier / coller une plage de données variable ?

Merci pour votre aide précieuse.

 

[tototiti2008]

Re : Copier / Coller de plage variable

Bonjour Sly,

à tester :

with Sheets("Treated Data")
.Range(.Cells(lin_syn, 1),.Cells(lin_syn, 3)).Copy Sheets("Raw Data").Cells(lin, 1)
end with

Edit : Oups, en effet, j'ai inversé...
Bonjour Softmama

 

[Sly le globe trotter]

Re : Copier / Coller de plage variable

Bonjour tototiti2008,

Ta méthode fonctionne parfaitement en inversant les cellules à copier et coller !
Merci beaucoup.

Du coup, cela donne

With Sheets("Raw Data")
    .Range(.Cells(lin, 1), .Cells(lin, 3)).Copy Sheets("Treated Data").Cells(lin_syn, 1)
End With

Bonne continuation !

 

[Softmama]

Re : Copier / Coller de plage variable

Bonjour,

Dans un cadre général tu peux utiliser la Méthode Copy telle qu'elle s'applique à une plage de cellules de la façon suivante :

[I]expression[/I].[B]Copy[/B](Destination)

avec expression qui renvoie un objet Range

Par exemple de la façon suivante :

[I]Sheets("Feuil1").Range("A1")[/I].Copy Destination:=Sheets("Feuil2").Range("A1")

Dans le cas qui t'intéresse, tu peux avantageusement remplacer ton code par :

    Sheets("Raw Data").Cells(lin, 1).Resize(3).Copy Destination:=Sheets("Treated Data").Cells(lin_syn, 1)

[EDITION] Houlàlà, Bonjour Tototiti2008, je prends mon temps pour répondre moi, dsl !