Tableau de C colonnes et L lignes vers C-Y colonnes et LxY l

Bonjour à toutes et à tous,

Grace à votre aide j'ai déjà résolu une partie de mon problème. Il en subsiste un pour aller au bout de ma tache.

Je dois transformer un tableau de C colonnes et L lignes en C-Y colonnes et Lx(Y-1) lignes.

Dans la foulée il faut créer une colonne supplémentaire qui contiendra le nombre de répétition des lignes de base.

De manière à être plus clair, je joins un exemple avec tableau de base et tableau désiré.

L'objectif est de reformater la base pour pouvoir créer un TCD.

Merci d'avance pour votre aide.

Bonjour Jacko70,

un petit clic en C1 et le tour est joué quelles que soient les vraies dimensions de ton tableau.

Evidemment, détruire le code quand l'opération est terminée pour éviter toute catastrophe!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Target.Address = [C1].Address Then
    iCol = Cells(1, Columns.Count).End(xlToLeft).Column
    iRow = Range("A" & Rows.Count).End(xlUp).Row
    '
    sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
    sCol1 = Split(Columns(iCol - 2).Address(ColumnAbsolute:=False), ":")(1)
    sCol2 = Split(Columns(iCol - 1).Address(ColumnAbsolute:=False), ":")(1)
    '
    Range("A2:" & sCol1 & iRow).Copy Destination:=Range("A" & iRow + 1 & ":" & sCol1 & iRow + (iRow - 1))
    Range(sCol & "2:" & sCol & iRow).Copy Destination:=Range(sCol2 & iRow + 1 & ":" & sCol2 & iRow + (iRow - 1))
    '
    Columns(iCol).ClearContents
End If
'
End Sub

A+

12reformatage.xlsm (16.92 Ko)

Bonjour,

Une proposition à étudier.

Cdlt.

Un grand Merci à tous les deux, l'un ou l'autre ça le fait !!!

J'insiste, un grand merci pour le partage de savoir faire et le temps passé !!

RE,

Content que tu sois content.

J'aurai aimé cependant que tu écrives que ma proposition primait sur celle de Curulis57 (que je salue amicalement !).

Dans l'incertitude, on va faire avec...

Cdlt.

Bonjour Jean-Eric,

j'avais regardé ta proposition! Waow!

Euuuh, n'est-ce pas un peu compliqué pour un problème si simple?

Je t'avouerai que je n'y comprends quasi rien! J'ai encore du chemin à faire!

Et je te laisserai volontiers la préséance!

A+

Re-

J'ai essayé d'appliquer ta macro dans mon classeur Jean-Eric et d'adapter... mais je n'y arrive pas...

Desole, je suis vraiment un débutant en VB et macro excel... Help...

Je joins mon classeur... le formatage doit avoir lieu depuis l'onglet Base....

9module-def.xlsm (208.68 Ko)

RE,

Peux -tu préciser ce que tu souhaites ?

Cdlt.

Merci Jean-Eric,

En fait, en partant de l'onglet import, Je souhaite arriver au résultat que j'ai mis dans l'onglet résultat.

Ca serai surement plus clair comme cela que quelques lignes d'explications.

9module-def.xlsm (280.23 Ko)

Re,

A tester en long et en large.

Cdlt.

16module-def.xlsm (216.71 Ko)

Ca m'a l'air de fonctionner parfaitement.

Je vous teindrai au courant si problème par la suite et cas de redimensionnement de l'import (augmentation de la base), mais c'est parfait !!

Un grand coup de chapeau et un grand merci...

Vive Jean-Eric !!

Rechercher des sujets similaires à "tableau colonnes lignes lxy"