Mettre des données en ligne en colonne mais pas toutes !!!

[raphal]

Bonjour

J'ai un tableau que je souhaite remettre en forme pour plus facilement analyser les données par la suite et les visualiser dans des graphes.

Un exemple valant mieux qu'un long discours je vous joins une maquette du fichier et de ce que je souhaite. Y aurait-il une macro (je n'y connais pratiquement rien) car j'ai beaucoup de lignes...

Merci d'avance

 

[camarchepas]

Re : Mettre des données en ligne en colonne mais pas toutes !!!

Bonjour,

Voici une façon de faire .

Sub essai()
Dim Tourne As Long, LigneOr As Long, Ligne As Long, LigneMax As Long
Dim Transfert As Variant, LesMois As Variant, LesAnnées As Variant
Dim Mem As String
LesAnnées = Sheets("Feuil1").Range("A3:AA3")
LesMois = Sheets("Feuil1").Range("A4:AA4")
LigneMax = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For LigneOr = 5 To LigneMax
Transfert = Sheets("Feuil1").Range("A" & LigneOr & ":AA" & LigneOr)
For Tourne = 4 To UBound(Transfert, 2)
 Ligne = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row + 1
 Sheets("Feuil2").Range("A" & Ligne) = Transfert(1, 1)
 Sheets("Feuil2").Range("B" & Ligne) = Transfert(1, 2)
 Sheets("Feuil2").Range("C" & Ligne) = Transfert(1, 3)
 If LesAnnées(1, Tourne) <> "" Then Mem = LesAnnées(1, Tourne)
 Sheets("Feuil2").Range("D" & Ligne) = Mem
 Sheets("Feuil2").Range("E" & Ligne) = LesMois(1, Tourne)
 Sheets("Feuil2").Range("F" & Ligne) = Transfert(1, Tourne)
Next Tourne
Next LigneOr
End Sub

 

[raphal]

Re : Mettre des données en ligne en colonne mais pas toutes !!!

Bonjour
Merci déjà pour la marco, moi qui n'y connais pas trop grand chose là ça calme

J'ai recopié la macro. Mais quand je la lance il m'annonce "Erreur de compilation Sub ou Function non définie" et pointe comme ceci une ligne
Sheets("Feuil2").Range("A" & Ligne) = Transfert(1, 1)

 

[raphal]

Re : Mettre des données en ligne en colonne mais pas toutes !!!

La ligne IF est en rouge, c'est peut-être elle qui est en cause?

 

[raphal]

Re : Mettre des données en ligne en colonne mais pas toutes !!!

En pièce jointe ce que me donne le lancement de la macro..

 

[camarchepas]

Re : Mettre des données en ligne en colonne mais pas toutes !!!

Bonsoir ,

Je pense que tu n'as pas monté le code au bon endroit.

Voici donc le fichier clé en main.

Ici , ça marche du feu de dieu.

Si cela ne fonctionne pas , il faudrait savoir sous quelle version Excel tu travailles , et si tu es sous MAc ou autre ...