Copier Coller Tableaux dans une Nouvelle Feuille

elsaleb Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
elsaleb Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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
 
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   Statut Membre Dernière intervention  
 
Merci beaucoup mais entre temps j'ai résolu mon problème !
0