XL 2016 Conversion de colonne en lignes

GADENSEB · 29 Janvier 2018

Bonjour,
j'aimerais, Pour l'onglet "Abonnements 2018" et pour chaque colonne C =OUI
Transformer la ligne concernée comme pour le modelé dans l'onglet "FINAL"

Sachant qu'il faut faire varier "Onglet FINAL" :
- La colonne A : 01/01/2018 puis 01/02/2018 ....... jusqu’à 01/12/2018
- La colonne B : 01/2018 puis 02/2018, calé sur la colonne A ....jusqu’à 12/2018

C'est deux dates correspondent aux colonnes de mois Janvier à Décembre dans l'onglet "Abonnements 2018"
Je sais pas si j'ai été suffisamment clair ...

Est-ce jouable ?

Bonne am
Seb

redexcel · 29 Janvier 2018

Salut

Peux-tu etre plus clair stp et ecrire manuellement sur le fichier ce que tu voudrais voir apparaitre ?

GADENSEB · 29 Janvier 2018

hello
pas de soucis.
Voila une version plus détaillée !!
Bonne am
Seb

redexcel · 29 Janvier 2018

OK j'ai compris mais ça necessite du temps
je regarderais quand j'aurais un peu plus de temps

GADENSEB · 29 Janvier 2018

Ok pas de soucis.
thanks

gosselien · 29 Janvier 2018

Bonjour,

Petite question: tu ne peux pas mettre tes dates dans une colonne et non en ligne ?

P.

GADENSEB · 29 Janvier 2018

Hello
nan je ne peux pas.
C'est un format bien précis pour un futur import dans un logiciel
Seb

vgendron · 29 Janvier 2018

Hello
un essai par macro à mettre dans un module Standard

VB:

Sub Macro1()
'
' Macro1 Macro
'
Dim tablo() As Variant
'
    tablo = sheets("Abonnements 2018").Range("A1").CurrentRegion.Value
    With Sheets("Final")
        For i = LBound(tablo, 1) + 1 To UBound(tablo, 1)
            If UCase(tablo(i, 3)) = "OUI" Then
             For j = 13 To 24 'pour chaque mois
                 Fin = .Range("A" & .Rows.Count).End(xlUp).Row + 1
                 .Range("A" & Fin) = DateSerial(2018, j - 12, 1) 'Date
                 .Range("B" & Fin) = tablo(i, 8)  'Libelle
                 .Range("C" & Fin) = tablo(i, 4)  'Debit
                 .Range("D" & Fin) = tablo(i, 11)  'Crédit
                 .Range("E" & Fin) = tablo(i, j)  'Montant
                 .Range("F" & Fin) = tablo(i, 6)  'Analytique
            Next j
           End If
        Next i
    End With
End Sub

vgendron · 29 Janvier 2018

Modif

VB:

Sub Macro1()
'
Application.ScreenUpdating = False
' Macro1 Macro
'
Dim tablo() As Variant
'
    tablo = Sheets("Abonnements 2018").Range("A1").CurrentRegion.Value
    With Sheets("Final")
        For i = LBound(tablo, 1) + 1 To UBound(tablo, 1)
            If UCase(tablo(i, 3)) = "OUI" Then
             For j = 13 To 24 'pour chaque mois
                 Fin = .Range("A" & .Rows.Count).End(xlUp).Row + 1
                 .Range("A" & Fin) = DateSerial(2018, j - 12, 1) 'Date
                 .Range("B" & Fin) = tablo(i, 8)  'Libelle Colonne H
                 .Range("C" & Fin) = tablo(i, 3)  'Debit = Nv Cpt = ColonneC
                 .Range("D" & Fin) = tablo(i, 11)  'Crédit  =Cpte Abonnement =Colonne S ???
                 .Range("E" & Fin) = tablo(i, j)  'Montant
                 .Range("F" & Fin) = tablo(i, 6)  'Analytique = Colonne F
            Next j
           End If
        Next i
    End With
Application.ScreenUpdating = True
End Sub

GADENSEB · 29 Janvier 2018

hello
Super job !!!!
il ne manque l’incrémentation de de "xx/2018" dans la colonne "Libellé"

vgendron · 29 Janvier 2018

ah oui, j'avais pas vu
le xx/2018 sera déjà présent dans le libellé, ou il faut le rajouter?

GADENSEB · 29 Janvier 2018

En fait il faut faire varier le "xx" en fonction du mois de la date en colonne A
01/01/2018 -> 01/2018
01/02/2018 -> 02/2018.......

vgendron · 29 Janvier 2018

s'il faut juste le remplacer

VB:

Sub Macro1()
'
Application.ScreenUpdating = False
' Macro1 Macro
'
Dim tablo() As Variant
'
    tablo = Sheets("Abonnements 2018").Range("A1").CurrentRegion.Value
    With Sheets("Final")
        For i = LBound(tablo, 1) + 1 To UBound(tablo, 1)
            If UCase(tablo(i, 3)) = "OUI" Then
             For j = 13 To 24 'pour chaque mois
                 Fin = .Range("A" & .Rows.Count).End(xlUp).Row + 1
                 .Range("A" & Fin) = DateSerial(2018, j - 12, 1) 'Date
                 .Range("B" & Fin) = WorksheetFunction.Substitute(tablo(i, 8), "xx", Format(j - 12, "00")) 'Libelle Colonne H
                 .Range("C" & Fin) = tablo(i, 3)  'Debit = Nv Cpt = ColonneC
                 .Range("D" & Fin) = tablo(i, 11)  'Crédit  =Cpte Abonnement =Colonne S ???
                 .Range("E" & Fin) = tablo(i, j)  'Montant
                 .Range("F" & Fin) = tablo(i, 6)  'Analytique = Colonne F
            Next j
           End If
        Next i
    End With
Application.ScreenUpdating = True
End Sub

vgendron · 29 Janvier 2018

si le libellé d'origine n'a pas la date "xx/2018"
mets cette ligne en lieu et place de l'existante

VB:

                .Range("B" & Fin) = tablo(i, 8) & " " & Format(j - 12, "00") & "/2018" 'Libelle Colonne H

GADENSEB · 29 Janvier 2018

C'est parfait !!!
Un grand merci à toi !!!!

XL 2016 Conversion de colonne en lignes

GADENSEB

XLDnaute Impliqué

Pièces jointes

redexcel

XLDnaute Junior

GADENSEB

XLDnaute Impliqué

Pièces jointes

redexcel

XLDnaute Junior

GADENSEB

XLDnaute Impliqué

gosselien

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

GADENSEB

XLDnaute Impliqué

Discussions similaires