Copier Coller Tableaux dans une Nouvelle Feuille

Fermé
elsaleb Messages postés 2 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 13 août 2014 - 13 août 2014 à 11:46
elsaleb Messages postés 2 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 13 août 2014 - 13 août 2014 à 17:09
Bonjour,

Je cherche à recopier dans une nouvelle feuille des données provenant des feuilles 1 et 2 (ces données sont rangées dans des tableaux).
Les tableaux n'ont pas les mêmes étiquettes et ne sont pas rangés de la même manière, c'est d'ailleurs pourquoi je veux créer un nouveau tableau "Données".

Voici mon code, qui ne marche pas :

Sub CopyPaste()

Sheets("Feuil1").Select

Range("A:A,C:C,H:H,J:L,N:O,R:R,AF:AL").Select

Selection.Copy
Sheets("Données").Select
ActiveSheet.Paste

Sheets("Feuil2").Select

Range("A1:A50000,B1:B50000").Select
Selection.Copy
Sheets("Données").Select
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Feuil2").Select

Range("C1:C50000").Select
Selection.Copy
Sheets("Données").Select
Range("D65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Feuil2").Select

Range("D1:D50000").Select
Selection.Copy
Sheets("Données").Select
Range("K65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Données CRM").Select

Range("E1:E50000,F1:F50000").Select
Selection.Copy
Sheets("Données").Select
Range("E65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Sheets("Feuil2").Select

Range("G1:G50000").Select
Selection.Copy
Sheets("Données").Select
Range("H65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste


End Sub

J'ai utilisé l'enregistreur de macro et je l'ai retouché, je suis novice en vba...
Est ce quequelqu'un pourrait m'aider svp !
Merci beaucoup !!!


A voir également:

1 réponse

ddjidji59430
13 août 2014 à 17:07
Bonjour,
Comme on ne peut pas deviner ce que tu veux exactement; mets ton fichier sur
http://www.cjoint.com/ et annote le. C'est plus facile pour trouver une solution.
Dis nous bien a quoi ça sert !
0
elsaleb Messages postés 2 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 13 août 2014
13 août 2014 à 17:09
Merci beaucoup mais entre temps j'ai résolu mon problème !
0