Transposer plusieurs lignes - plusieurs colonnes Résolu/Fermé

Question

Bonjour,

J'ai un tableau avec en 1re colonne des ID, en 2e colonne des dates de mesure, et en 3e colonne des résultats de mesure :

Colonne_1 Colonne_2 Colonne_3
ID1 ID1_date_M1 ID1_M1
ID1 ID1_date_M2 ID1_M2
ID2 ID2_date_M1 ID2_M1
ID3 ID3_date_M1 ID3_M1
ID3 ID3_date_M2 ID3_M2
ID3 ID3_date_M3 ID3_M3
...

Je cherche une formule pour réorganiser ce tableau afin d'obtenir comme résultat :

Colonne_1 Colonne_2 Colonne_3 Colonne_4 Colonne_5 Colonne_6
ID1 ID1_date_M1 ID1_M1 ID1_date_M2 ID1_M2
ID2 ID2_date_M1 ID2_M1 
ID3 ID3_date_M1 ID3_M1 ID3_date_M2 ID3_M2 ID3_date_M3 ID3_M3
...

Une solution a été proposée dans le passé par via55, mais le fichier cjoint n'est plus accessible...

Merci pour votre aide,

Philippe

via55 · Answer

Bonjour Philippe 

Je ne me rappelle pas la solution que j'avais proposé d'autant plus que tu ne dis pas de quel post il s'agit

Proposition par macro pour des données en A, B, C sur la première feuille et qu'on transpose sur une seconde feuille (adapter la macro si nécessaire pour les noms des feuilles)

Alt+F11 pour ouvrir l'éditeur VBA puis Insertion - Module puis copier la macro dans la page, la modifier éventuellement et fermer l'éditeur
Lancer la macro depuis la feuille 1

Sub transposition()
Dim ligne1 As Long, ligne2 As Long
ligne1 = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 'derniere ligne remplie 1ere colonne feuille 1
For n = 2 To ligne1
nbID = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Range("A1:A" & n), Sheets("Feuil1").Range("A" & n)) ' NB.SI sur l'ID depuis le début de la colonne
If nbID = 1 Then
ligne2 = Sheets("Feuil2").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row + 1 'première ligne vide colonne 1 feuille 2
Sheets("Feuil2").Range("A" & ligne2) = Sheets("Feuil1").Range("A" & n)
Else
ligne2 = Sheets("Feuil2").Columns(1).Find(Sheets("Feuil1").Range("A" & n), , , xlWhole, xlByColumns, xlPrevious).Row 'ligne de l'ID dans feuille 2
End If
Sheets("Feuil2").Cells(ligne2, nbID * 2) = Sheets("Feuil1").Range("B" & n)
Sheets("Feuil2").Cells(ligne2, nbID * 2 + 1) = Sheets("Feuil1").Range("C" & n)
Next
End Sub
Cdlmnt
Via

via55 · Answer

Re,

Bizarre ! si cette erreur apparaît c'est vraisemblablement que le macro ne trouve pas en feuille 2 l'ID de la feuille 1 qui devrait normalement déjà y être inscrit  puisque cette ligne de macro ne s'exécute que si le NB.SI donne un autre résultat que 1 (un nombre supérieur donc l'ID est déjà présent dans la plage en col A qui précède)
La macro fonctionne correctement chez moi

Impossible d'en dire plus sans voir ton fichier et l'erreur se produire, donc si tu peux le poster sur cjoint.com je regarderai

Cdlmt
Via

via55 · Answer

Bonjour Philippe

Rien de méchant, en fait la macro bug car ta feuille 2 est totalement vierge
Mets des titres en A1,B1 et C1 et ça fonctionnera
Par contre vu la longueur du fichier  la macro mets un petit peu de temps 

Cdlmnt
Via

via55 · Answer

Bonsoir Philippe

Il suffit de remplacer les 2 dernières lignes de la macro par ces 3 ci !
Sheets("Feuil2").Cells(ligne2, nbID * 3 - 1) = Sheets("Feuil1").Range("B" & n)
Sheets("Feuil2").Cells(ligne2, nbID * 3) = Sheets("Feuil1").Range("C" & n)
Sheets("Feuil2").Cells(ligne2, nbID * 3 + 1) = Sheets("Feuil1").Range("D" & n)
Le principe pour trouver la bonne formule pour avoir les dates en colonnes de 3 en 3( 2 puis 5 puis 8  ...)c'est de résoudre un système d'équation :
on veut que la date 1 soit en colonne 2 et que la date 2 soit en colonne 5 et ainsi de suite donc il faut que 1 donne 2 et que 2 donne 5 soit :
a*1+b=2   et   a*2 +b=5 
On résoud le système : en soustrayant 2a - a donne a,    b - b donne 0   et 5 - 2 donne 3 donc  a=3
En remplaçant a par 3 dans la 1ere équation on va trouver b  :
3*1 + b = 2   ou  3 + b = 2 soit b = 2 - 3  donc b = -1
l'équation recherchée est de la forme y = 3x - 1
d'où dans la ligne de macro nbID * 3 - 1 pour obtenir la colonne de la date
ensuite on rajoute  1 pour la colonne suivante mesure 1 et on rajoute 2 pour la colonne d'après mesure 2 
CQFD ☺

Si tu veux une option avec 3 mesures, 4 mesures ...  il te suffit d'appliquer la méthode 

Cdlmnt
Via

Transposer plusieurs lignes -> plusieurs colonnes

4 réponses

Discussions similaires