Application Union - copier dans un ordre souhaité

[teter]

Bonjour,

Je souhaite copier des cellules discontinues d'une feuille et les copier sur une autre mais dans un ordre différent.
La macro suivante ne me permet pas de déterminer l'ordre de collage des cellules :

Sheets("Feuil1").Application.Union(Range("E1"), Range("F1"), Range("K1")).Copy (Sheets("Feuil2").Range("B1: D1"))

Ceci me collera les valeurs de
E1/Feuil1 en B1/Feuil2,
F1/Feuil1 en C1/Feuil2 et
K1/Feuil1 en D1/Feuil2 .

Comment faire pour copier par exemple :
E1/Feuil1 en B1/Feuil2,
K1/Feuil1 en C1/Feuil2 et
F1/Feuil1 en D1/Feuil2 ?


J'ai essayé d'inverser Range("F1") et Range("K1") dans ma macro mais sans succés.
Je pose la question car mon fichier source est beaucoup plus important que cet exemple ainsi que le nombre de cellules à coller.

Autre question : y a-t-il moyen de copier dans des cellules également dicontinues : copier en D1/Feuil2 plutôt qu'en C1/Feuil2 pour éviter un "Columns("C:C").Insert Shift:=xlToRight" et aussi pour que les collages suivants soient décallés également d'une cellule (celle qui devait être collée en D1 le serait en E1)?
J'éspère ne pas être trop confus


Merci de votre aide

A+

Teter

 

[tototiti2008]

Re : Application Union - copier dans un ordre souhaité

Bonjour teter,

je ne vois comme solution que de multiplier les Copy...

 

[teter]

Re : Application Union - copier dans un ordre souhaité

Bonjour à tous,

Qq'un aurait-il une idée ?

Merci

A+

Teter