copier des colonnes sur une seule feuille

[bobafric]

Salut à tous
Je voudrai une fonction ou un code pour copier par exemple:
la colonne A1:A100 de la feuille 1 sur la colonne b de la feuille X
la colonne A1:A100 de la feuille 2 sur la colonne c de la feuille X
la colonne A1:A100 de la feuille 3 sur la colonne d de la feuille X
la colonne A1:A100 de la feuille 4 sur la colonne e de la feuille X

J'ai utilisé le signe $ dans mes formules mais je ne m'en sors pas.
Peut être qu'il existe un site avec un tutoriel mais je ne le connais pas.
Merci à tous
Bob

 

[exene]

Re : copier des colonnes sur une seule feuille

Bonsoir,
Je vous réponds tardivement because réunion sur le plan de secours en cas de pandémie grippe A [H1N1]. Cela va être difficile de vous distribuer le courrier en cas d'épidémie !( vous en êtes où au Sénégal?) . Merci à JCLG pour le complément de code, cela fonctionne vraiment bien. Pour CISCO ci-joint le fichier vide.
A+

 

[CISCO]

Re : copier des colonnes sur une seule feuille

Bonsoir

Ci-dessous, une possibilité sans macro. Il te reste à supprimer les zéros si ceux-ci te gênent, puis à copier coller les formules.

@ plus

 

[JCGL]

Re : copier des colonnes sur une seule feuille

Bonjour à tous,

Exene : tu pourrais avantageusement remplacer ce code :

Option Explicit

Sub Copie_Exene()

Sheets("recap").Range("B2:P114").ClearContents
Sheets("T1").Range("B2:B114").Copy Destination:=Sheets("recap").Range("B2")
Sheets("T2").Range("B2:B114").Copy Destination:=Sheets("recap").Range("C2")
Sheets("T3").Range("B2:B114").Copy Destination:=Sheets("recap").Range("D2")
Sheets("T4").Range("B2:B114").Copy Destination:=Sheets("recap").Range("E2")
Sheets("T5").Range("B2:B114").Copy Destination:=Sheets("recap").Range("F2")
Sheets("T6").Range("B2:B114").Copy Destination:=Sheets("recap").Range("G2")
Sheets("T7").Range("B2:B114").Copy Destination:=Sheets("recap").Range("H2")
Sheets("T8").Range("B2:B114").Copy Destination:=Sheets("recap").Range("I2")
Sheets("T9").Range("B2:B114").Copy Destination:=Sheets("recap").Range("J2")
Sheets("T10").Range("B2:B114").Copy Destination:=Sheets("recap").Range("K2")
Sheets("T11").Range("B2:B114").Copy Destination:=Sheets("recap").Range("L2")
Sheets("T12").Range("B2:B114").Copy Destination:=Sheets("recap").Range("M2")
Sheets("T13").Range("B2:B114").Copy Destination:=Sheets("recap").Range("N2")
Sheets("T14").Range("B2:B114").Copy Destination:=Sheets("recap").Range("O2")
Sheets("T15").Range("B2:B114").Copy Destination:=Sheets("recap").Range("P2")
Range("B2").Select
End Sub

Par celui-ci :

Option Explicit

Sub Copie_JC()
Dim X As Byte
Sheets(1).Range("B2:IV114").ClearContents
For X = 2 To Sheets.Count
Sheets(X).Range("B2:B114").Copy Sheets(1).Cells(2, X)
Range("A1").Select
Next X
End Sub

Pas besoin de rajouter des lignes en cas de rajout de feuilles

A+ à tous

 

[exene]

Re : copier des colonnes sur une seule feuille

Bonjour à tous,

Merci CISCO et JCGL pour votre aide, je vais essayer vos propositions et surtout essayer de comprendre et la formule et la macro

Bonne journée.