Faire une seule colonne avec pleins de colonnes

[Pierrot]

Bonjour à tous,

Mon problème est le suivant:
J'ai énormément de colonne les unes à côté des autres et je voudrais les mettre les unes sous les autres, pouvez vous m'aider.
Il ya une autre diificulté:
Chaque colonne a un titre et je voudrais qu'il passe comme info sur la ligne.
J'ai joins un fichier pour plus de compréhension.

Merci vraiment beaucoup!!!! Je n'en peux vraiment plus!!! [file name=Exemple_20051128181031.zip size=4735]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Exemple_20051128181031.zip[/file]

 

[anuky]

Bonsoir pierro et le forum,

Ci-joint un exemple de macro qui met en forme un tableau à peu près comme tu le souhaite.

Si tu souhaite de l'aide demande.
Tien nous au coran si ça te conviens.

Bon courrage

[file name=PierrotV1.zip size=9421]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PierrotV1.zip[/file]

 

[Pierrot]

C'est une sorte de miracle ta macro!!!!

Vraiment, merci beaucoup!!! Tu ne peux pas imaginer comme je suis content!!!!
Merci Merci!!!!

 

[john]

salut,

Voici comment faire.

Sub tri()
'
' Macro4 Macro
' Macro enregistrée le 28/11/2005 par john
'

'
Sheets('Feuil1').Select
Range('A3').Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(0, 0).Resize(tbl.Rows.Count, _
tbl.Columns.Count).Select

col = tbl.Columns.Count
ligne = tbl.Rows.Count
cpt = 0
For t = 1 To ligne - 1
For x = 2 To col
Sheets('Feuil1').Select
Cells(2 + t, 1).Select
Selection.Copy
Sheets('Feuil2').Select
Range('A' & x + cpt).Select
ActiveSheet.Paste
Sheets('Feuil1').Select
Cells(2 + t, x).Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Feuil2').Select
Range('B' & x + cpt).Select
ActiveSheet.Paste
Sheets('Feuil1').Select
Cells(2, x).Select
Application.CutCopyMode = False
Selection.Copy
Sheets('Feuil2').Select
Range('C' & x + cpt).Select
ActiveSheet.Paste
Next x
cpt = cpt + 4
Next t
End Sub

Bonne soirée.
John

 

[Pierrot]

Juste un truc,

Je ne sais pas pourquoi, mais ça fait des bug aau niveau de la date quand on transpose...
Je ne sais pas si tu l'as remarqué et si oui, est ce que tu penses savoir comment l'éviter, mille merci!!!

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Hou la la !!! Y'a du monde ! Mais comme je m'y suis énervé dessus je t'envoie quand même ma proposition :

Option Explicit 'oblige à déclarer touites les variables

Sub Macro1()
'déclaration des variables
Dim Col As Byte 'déclare la variable Col (dernière Colonne éditée)
Dim x As Byte, y As Byte 'déclare les variables x et y
Dim deb As Integer, fin As Integer 'déclare les variable deb (début) et fin
Dim plage As Range 'déclare la variable plage
Dim nb As Integer 'déclare la variable (nb de lignes)

Col = Range('IV3').End(xlToLeft).Column - 1 'définit la variable Col
deb = Range('A1').End(xlDown).Row 'définit la variabledeb
fin = Range('A65536').End(xlUp).Row 'définit la variable fin
nb = fin - deb + 1 'définit la variable nb
Set plage = Range(Cells(deb, 1), Cells(fin, 1)) 'définit la variable plage

'cette partie ne tiens compte des dates
For x = 1 To Col - 1 'boucle sur le nombre de colonnes -1
'copie les noms et les colle en dessous
plage.Copy Destination:=Cells(fin + 1, 1)
'copie la colonne des noms décalé de x+1 et la colle en dessous
plage.Offset(0, x + 1).Cut Destination:=Cells(fin + 1, 2)
fin = fin + nb 'redéfinit la variable fin
Next x

'mise en place des dates
For x = 1 To Col 'boucle sur le nombre de colonnes
Cells(2, x + 1).Copy 'copie la date
Range(Cells(deb, 3), Cells(deb + nb - 1, 3)).Select 'sélectionne la plage de destination
ActiveSheet.Paste 'cole la date
deb = deb + nb 'redéfinit la variable deb
Next x

Rows(2).ClearContents 'efface le contenue de la ligne 2
Range('A1').Select 'sélectionne la cellule A1
End Sub

 

[anuky]

Bonjour le forum,

Je ne sais pas pourquoi, mais ça fait des bug aau niveau de la date quand on transpose...
Je ne sais pas si tu l'as remarqué et si oui, est ce que tu penses savoir comment l'éviter

Quel genre de bug, chez moi j'ai vérifié, je n'ai pas trouvé d'erreur.
si tu est plus précis je pourrai peut-être t'aider.

A+

 

[Tibo]

Salut à tous,

Une petite solution par formule.

Solution qui demande à être affinée (pas trop le temps), mais ça marche...


@+ [file name=__Exemple_Pierrot.zip size=2376]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/__Exemple_Pierrot.zip[/file]