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

 

[tototiti2008]

Re : copier des colonnes sur une seule feuille

Bonjour bobafric,

Feuille X
en B1 :
=Feuil1!A1
en C1
=Feuil2!A1
en D1
=Feuil3!A1
en E1
=Feuil4!A1

ensuite, sélectionnes de B1 à E1 et recopie jusqu'en ligne 100

 

[JCGL]

Re : copier des colonnes sur une seule feuille

Bonjour à tous,

Peux-tu essayer avec ce code :

Option Explicit

Sub Copie()

Sheets("F1").Range("A1:A100").Copy Destination:=Sheets("X").Range("B1")
Sheets("F2").Range("A1:A100").Copy Destination:=Sheets("X").Range("C1")
Sheets("F3").Range("A1:A100").Copy Destination:=Sheets("X").Range("D1")
Sheets("F4").Range("A1:A100").Copy Destination:=Sheets("X").Range("E1")
Range("A1").Select
End Sub

A+ à tous

 

[bobafric]

Re : copier des colonnes sur une seule feuille

Merci Totitoti et JCGL pour votre réponse ultra rapide.
Bien sûr ça fonctionne, mais je voudrais éviter de reproduire chaque ligne de code car j'ai 31 feuilles. Mon projet à 31 feuilles se constitue ainsi:
Feuille "cumul" sur laquelle je copie
en "B1:B50" les cellules "A1:A50" de la feuille "1"
en "C1:C50" les cellules "A1:A50" de la feuille "2"
en "D1😀50" les cellules "A1:A50" de la feuille "3"
et ainsi de suite jusqu'à la feuille "31"
en espérant que j'ai été assez clair et que le projet soit faisable je vous remercie d'avance pour vos efforts.
Bob

 

[Pierrot93]

Re : copier des colonnes sur une seule feuille

Bonsoir Bob, Jean-Claude🙂 re toto

il nous faudrait un peu plus de précision, comment se nomment exactement tes feuilles et combien de feuilles au total dans ton classeur ? c'est les 31 premières dont les cellules sont à copier ?

bonne soirée
@+

 

[hoerwind]

Re : copier des colonnes sur une seule feuille

Bonjour,

En faisant appel à une fonction complémentaire de Morefunc (à télécharger gratuitement sur le net) :

B1 : =DECALERFEUILLE($A1;COLONNE()-1)
à copier vers le bas et vers la droite.

 

[JCGL]

Re : copier des colonnes sur une seule feuille

Bonjour à tous,
Salut Pierrot 🙂,

Avec les réserves émises par Pierrot : la feuille 1 est la feuille 'Cumul' et 31 feuilles suivent :

Option Explicit

Sub Copie()
Dim X As Byte
For X = 2 To 5
Sheets(X).Range("A1:A50").Copy Destination:=Sheets("Cumul").Cells(1, X)
Range("A1").Select
Next X
End Sub

Dans le fichier joint je me suis limité à une feuille 'Cumul' et quatre feuilles de données donc cinq feuilles (2 To 5)

A++ 🙂
A+ à tous

 

[CISCO]

Re : copier des colonnes sur une seule feuille

Bonsoir

Une autre solution, tellement simple que je me demande si j'ai bien compris le problème !!

@ plus

 

[CISCO]

Re : copier des colonnes sur une seule feuille

Bonjour

Sur le même principe, mais en plus simple

@ plus

 

[CISCO]

Re : copier des colonnes sur une seule feuille

Rebonjour

Et une autre version utilisant la fonction CHOISIR, avec des noms de feuille très différents les uns des autres...

@ plus

 

[exene]

Re : copier des colonnes sur une seule feuille

Bonjour,
Je travaille sur un sujet similaire,c'est pourquoi je me permets d'intervenir dans la discussion pour vous demander conseil. Comme dans l'exemple, j'ai un onglet cumul ou je voudrais récupérer en plage B2:B114 puis en plage C2:C114 ,etc, les informations contenues dans les plages B2:B114 des différents autres onglets. Je n'arrive pas à comprendre les formules de CISCO ? . En même temps j'ai adapté à mon projet la première macro de JCGL, cependant je n'arrive pas à effacer les informations contenues dans l'onglet cumul avant chaque lancement de la macro. Je suppose qu'il faut écrire en début de code l'instruction Clear mais je suis grand débutant en VBA.

Merci pour votre aide.

 

[CISCO]

Re : copier des colonnes sur une seule feuille

Bonjour à tous, bonjour exene.

Envoies nous un petit bout de fichier en pièce jointe avec juste les premières lignes de chaque feuille pour qu'il fasse moins de 48 ko. Au besoin, zippe le.

@ plus

 

[JCGL]

Re : copier des colonnes sur une seule feuille

Bonjour à tous,

Peux-tu essayer avec en début de code

Sheets("Cumul").Range("B4:Z120").ClearContents

A+ à tous

 

[JCGL]

Re : copier des colonnes sur une seule feuille

Bonjour à tous,

Sans retour de Bob...

Un code "universel"... (Pfiou.. Prétentieux le gars...)
Bon OK, avec ce code sur 1 000 lignes... 😀

Comme déjà relevé par Pierrot 🙂 et votre serviteur..., il est impératif que la feuille qui doit recevoir les colonnes soit la feuille 1 (quelque soit son nom, elle doit être en PREMIÈRE position)

Option Explicit

Sub Copie()
Dim X As Byte
Sheets(1).Range("B1:IV1000").ClearContents
For X = 2 To Sheets.Count
Sheets(X).Range("A1:A1000").Copy Sheets(1).Cells(1, X)
Range("A1").Select
Next X
End Sub

A++ 🙂
A+ à tous

 

[bobafric]

Re : copier des colonnes sur une seule feuille

Salut tout le monde
Je viens juste d'ouvrir mon PC, car au Sénégal je n'ai plus de courant depuis hier 23h et il est midi. Tu parles d'un bor........ Pardon mais ça fait du bien de se lacher.
J'ai opté pour le moment pour la solution de JCGL que j'ai testé avec bohneur et quelques modifications inhérente à mon programme.
Je vais testé toutes les autres pour apprendre à bosser grace à vous.
Je remercie tous les gars du forum, et je continue de suivre le fil car je vois qu'il y a comme exene qui sont intéressés.
A bientôt à tous et merci encore
Bob