Transposer la colonne de plusieurs feuille vers une feuille de recap en lig

Bonjour,

J'ai +2500 feuilles excel avec des données (des mots) dans la colonne A de chaque feuille (avec des cellules vides).

Je souhaite tout rassembler dans une seule feuille de RECAP, mais avec une "transposition" (les colonnes deviennent des lignes).

Je dois faire une macro vba?

Comment ? Je suis une quiche!

Merci d'avance pour l'aide apportée.

Il y a surement un post existant à ce sujet,

mais je ne l'ai pas trouvé, désolé pour la redondance ...

Bonjour,

Il existe la fonction Transpose()

ou bien

un copier/coller special cocher transpose

Crdlmt

bonjour,

merci, mais je ne souhaite pas refaire cette opération 2500 fois ...

je cherche le code pour faire une macro ...

Qui irait me chercher la colonne dans toutes les feuilles de ce classeur,

et qui me mettrait les infos en transposant sur ma feuille de RECAP.

Voila ce que je cherche

Je précise que ce sont des feuilles différentes, mais dans un même dossier,

je vous joint ici un exemple.

Attention, dans cette exemple, il s'agit d'un classeur avec 3 feuilles,

dans mon cas, ce sont +2000 feuilles d'un dossier

merci d'avance.

Re

Je persiste, avec la formule:

De toute façon, que ce soit en vba ou en formule, il te faut faire la liste des feuilles

Crdlmt

OK, mais quel est le code à mettre dans le module?

Je n'y connais rien en vba.

Merci

jerry a écrit :

Je n'y connais rien en vba.

Moi non plus, et c'est pour ça qu'il y a UNE formule !!!

Crdlmt

Bonsoir

Voila une macro pour faire une "Recap"

A+

Maurice

Sub TestRecap()
' Feuil4 = CodeName de Recap
Feuil4.Select
Application.ScreenUpdating = False
Range("C1:IV" & Rows.Count).Clear
L = 1
    For I = 1 To Sheets.Count
        Select Case Sheets(I).Name
            Case Feuil4.Name ' Feuil4 = CodeName de Recap
            Case Else
                Sheets(I).Select
                Slig = Sheets(I).Range("A" & Rows.Count).End(xlUp).Row
                Sheets(I).Range("A1:A" & Slig).Copy
                    Feuil4.Range("A" & L).PasteSpecial xlPasteValues, , , True
                L = L + 1
        End Select
      On Error Resume Next
      Application.Goto [A1], True
    Next I
Application.CutCopyMode = False
Feuil4.Select
Application.Goto [A1], True
End Sub

Bonjour Maurice,

merci de ton aide,

c'est justement un code comme ça que je cherche ...

1/ Ma feuille de récap (pour faire simple):

Feuil4

c'est du .ods, je ne le mentinne pas (je n'écris pas "Feuil4.ods" ??)

dans propirité, general, j'ai ça:

Type du fichier: Classeur OpenOffice.org 1.1 (.html)

2/ Mon fichier est à cet emplacement:

ça s'écrit bien comme ça?:

Ch Dir= "E:\ES-espagnol-2688"

=> il ne faut pas donner la direction, le chemin,

comme je l'ai vu sur des tutos sur youtube ou ailleurs?

3/ Les infos que je souhaite collecter sont dans la première colonne de chaque feuille,

les cellules contenant les valeurs vont de A6 à A350?

Souvent, A1 est vide ... Est-ce un problème?

cela s'écrit comme ça?:

"A6:A350"

Merci pour ton aide ...

Pas encore résolu ...

Oups, désolé, je n'avais pas bien compris le message,

je viens de voir ta formule à l'instant en téléchargeant le classeur que tu m'as renvoyé.

Il y a une petite modification à apporter.

C'est qu'en fait, j'ai des feuilles qui sont toutes indépendantes les unes des autres,

(ce ne sont pas des onglets au sein d'un classeur excel),

c'est un dossier comprenant des classeurs (chaque "classeur" = 1 feuille).

Bon, je me suis mal exprimé, j'ai peut être mal présenté mon problème.

Si tu sais comment faire, ce serait vraiment génial.

C'est pour ça que pour moi, je pense que l'idéal serait une macro vba ...

DjiDji59430 a écrit :

Re

Je persiste, avec la formule:

modele pour vba.ods

De toute façon, que ce soit en vba ou en formule, il te faut faire la liste des feuilles

Crdlmt

Re

non, il suffit de faire la liste des feuilles avec leur chemin complet.

Faire la liste des feuilles, tu n'y échapperas pas..

Crdlmt