Microsoft 365 Transposition Colonne en Lignes avec des dates

dg62

XLDnaute Barbatruc

• 20 Juin 2019

• #2

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.

 

Vote positif 0 Vote négatif

D

danyboun31

XLDnaute Nouveau

• 20 Juin 2019

• #3

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 20 Juin 2019

• #4

Re,
exemple avec transpose

 

Pièces jointes

• Transpose avec Date (1).xlsx

  14.1 KB · Affichages: 6

Vote positif 0 Vote négatif

D

danyboun31

XLDnaute Nouveau

• 20 Juin 2019

• #5

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

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 20 Juin 2019

• #6

re,
une macro à optimiser,

 

Pièces jointes

• Transpose avec Date (1) .xlsm

  20.9 KB · Affichages: 5

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 20 Juin 2019

• #7

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

 

Vote positif 0 Vote négatif