Microsoft 365 Transposition Colonne en Lignes avec des dates

danyboun31

XLDnaute Nouveau
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

DateJanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember
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 :
LibelleDateValeur
totoJanuary
2​
totoFebruary
2​
totoMarch
2​
.........

Merci de votre aide.
 

Pièces jointes

  • Transpose avec Date.xlsx
    13.8 KB · Affichages: 7
Dernière édition:

dg62

XLDnaute Barbatruc
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.
 

dg62

XLDnaute Barbatruc
re

macro finale

VB:
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
 

Discussions similaires