Transposer 182 feuilles sur une seule feuille

[jmst]

Bonjour les princes d'excel,
Auriez-vous une astuce pour transposer 182 feuilles (numérotées 1, 2. 3, 4 ,,,,, 182) d’un classeur sur un autre classeur en une seule feuille ?
Une feuille va de ligne A1 à A29 et de colonne A à BC ou mieux exprimé le tableau va de A1 :BC29.
Il n’y a pas de cellules fusionnées.
Les feuilles ont une formule qui ce référent à une 'LISTE ORIGINALE' de nom avec
=SI(D3=" ";"";DECALER(INDEX('LISTE ORIGINALE'!$B$1:$B$101;EQUIV(D3;'LISTE ORIGINALE'!$A$1:$A$101;0);1);0;0))
Puis plusieurs concaténer =CONCATENER(Y3;" ";Z3;" ";AA3)
Si mon raisonnement est juste la nouvelle feuille ira de ligne A1 à A5278 et de colonne A à BC ou mieux exprimé le tableau ira de A1 :BC5278.
Je trouve des fonctions sur les blogs qui copie les feuilles 1,2,3,...182 sur un autre classeur, mais ne "transpose" pas sur une seule feuille
Avec mes remerciements pour votre aide.

 

[skoobi]

Re : Transposer 182 feuilles sur une seule feuille

Bonjour jmst, bienvenue sur XLD,

souhaites-tu récupérer les valeurs ou les formules sur cette feuille?

 

[jmst]

Re : Transposer 182 feuilles sur une seule feuille

Je désire garder les deux..
J’ai rencontré plusieurs difficultés à la copie "manuelle".
Les cellules fusionnées : je les est supprimées.
Le collage par valeur fonctionne, mais pas les formules.
Chaque feuille ce réfère à une liste.
Donc si je prends les formules n’importe comment elle risque de ne plus fonctionner.
Elle doive garder leurs références d’origine.
De A1 à A29 pour la première feuille
De A30 à A58 pour la deuxième
Ce qui me pose souci c’est les formules qui n’on pas les $.$
A la première feuille tout va bien
A la deuxième elle recommence par ex à D3 alors quelle devrait être D58
Merci pour ton aide
PS Il est possible que seulement les valeurs suffisent
il suffit de recopié les formules en suite.

 

[skoobi]

Re : Transposer 182 feuilles sur une seule feuille

PS Il est possible que seulement les valeurs suffisent
il suffit de recopié les formules en suite.

Je te comprends pas là.... Si tu veux récupérer les formules tu auras de toute façon la valeur qu'elles génèrent.

Si tu veux garder les formules, il vaut mieux que tu envoie un bout de ton fichier, avec 2 ou 3 feuilles comme exemple pour voir le résultat des formules après copie.

 

[jmst]

Re : Transposer 182 feuilles sur une seule feuille

J'aimerai que la formule reste intact et non pas sa valeur.
j' ai enlever les lignes vide donc elle ne vont plus j'usqu'a A29
le fichier etait plus grand que 48 k
Dommage que vous n'accepté .rar seulement .zip

Si tu as une idée pour transposer seulement les valeurs cela serai déjà bien.
Recopier des formules n’est pas trop difficile, ni trop long.
Par contre copier/coller feuille à feuille c’est 182 calvaires dans mon cas.
Avec mes remerciements pour votre(vos) aide(s).

 

[skoobi]

Re : Transposer 182 feuilles sur une seule feuille

Re,

Test ce code dans la feuille "futur feuille unique". A priori c'est bon.
Il faudra bien entendu faire les adaptations nécessaires dans le code (en gras).

Sub transfert()
Dim LigSuiv As Long, i As Integer
For i = [COLOR=Blue][B]3 To Sheets.Count[/B][/COLOR]
  LigSuiv = Range("A65536").End(xlUp).Row + 1
  Sheets(i).Range("C1:BC[B][COLOR=Blue]20[/COLOR][/B]").Copy Range("A" & LigSuiv)
Next
End Sub

 

[jmst]

Re : Transposer 182 feuilles sur une seule feuille

Merci pour ta macro qui fonctionne que sur 2 feuilles !!!
Du classeur que je t’ai envoyé j’ai rajouté une troisième feuille
Modifier le nombre de lignes sur les 3 feuilles (BC29)
Modifier la macro

Sub transfert()
Dim LigSuiv As Long, i As Integer
For i = 4 To Sheets.Count
LigSuiv = Range("A65536").End(xlUp).Row + 1
Sheets(i).Range("C1:BC29").Copy Range("A" & LigSuiv)
Next
End Sub

Elle ne prend que les 2 premières feuilles ( 1 et 2 ) ignore la 3
Par contre elle prend les lignes supplémentaires que tu n’as pas dans le fichier joint.

Si je prends la macro sur le classeur des 182 feuilles elle ne prend pas les valeurs ni les formules. Et s’arrête aussi à la deuxième feuille ?

PS j’ai beaucoup de peine avec les macros

 

[jmst]

Re : Transposer 182 feuilles sur une seule feuille

Attend ne bouge pas il y avais un bug sur mon ordi il semble que ta macro fonctionne correctement mais il calcul comme un fou.

Ok super mille mercis. Ça marche.

Je teste et ferme la discussion sitôt les contrôles fait.

PS je ne sais pas si l’on doit fermer la discussion quand le problème est résolu

 

[jmst]

Re : Transposer 182 feuilles sur une seule feuille

Dans un premier contrôle tous semble juste.
Une question :

Dans ta macro, j’ai mis le chiffre 4 à la place de 3 et elle ma transposé les 182 feuilles.

Je pansais quelle s’arrêterai à la feuille 4 ou 3

 

[skoobi]

Re : Transposer 182 feuilles sur une seule feuille

Re,

non, elle commence à la 4 ou 3 et s'arrête à la dernière.