Microsoft 365 Transposition Colonne en Lignes avec des dates

[danyboun31]

Bonjour,

Je souhaites transformer un onglet en ligne vers un onglet en colonne
Les colonnes comportent des dates et sur chaque ligne ensuite des valeurs

Date

January

February

March

April

May

June

July

August

September

October

November

December

toto

2​

2​

2​

2​

2​

2​

2​

2​

2​

2​

2​

2​

Titi

5​

5​

5​

5​

5​

5​

5​

5​

5​

5​

5​

5​

pour donner en resultat :

Libelle	Date	Valeur
toto	January	2​
toto	February	2​
toto	March	2​
...	...	...

Merci de votre aide.

 

[dg62]

Bonjour DAnyboun31

il faut essayer avec une formule matricielle "Transpose"

par contre, dans votre classeur les données d'origine et attendues ne correspondent pas. Nous ne sommes pas dans votre tête pour interpréter ce que vous souhaitez réellement.

 

[danyboun31]

Bonjour,

J'ai modifier le fichier dans mon 1er post.
J'ai essaye avec la formule Matricielle, mais ca n'a pas fonctionné si je selectionne toutes les lignes
Peut etre avec une Macro ? je ne suis pas suffisament aguéri au VBA

Merci

 

[dg62]

Re,
exemple avec transpose

 

[danyboun31]

Merci dg62

En fait, je ne souhaite pas une colonne pour chaque ligne
Mais tout regrouper dans une seule colonne, comme dans mon fichier

Merci

 

[dg62]

re,
une macro à optimiser,

 

[dg62]

re

macro finale

Sub transpose()
Dim cel As Range
Dim a, d, mois, valeur As Integer
a = 1
d = 1
For Each cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
For i = 1 To 12
    valeur = cel.Offset(0, i).Value
    mois = cel.Offset(-d, i).Value
        
        With Sheets("result")
                .Range("A" & i + a).Value = cel
                .Range("B" & i + a).Value = mois
                .Range("C" & i + a).Value = valeur
        End With

Next i
d = d + 1
a = a + 12
Next
End Sub