Microsoft 365 Transposer lignes et colonnes

[Niet]

Bonjour tout le monde !

J'espère que quelqu'un pourra m'aider ici, j'ai un grand tableau de données avec des réponses à un questionnaire.
Chaque ligne représente un répondant, et chaque colonne une de ses réponses. En gros mon problème est le suivant:

J'ai actuellement un tableau de ce type :

1	mot A1	mot B1	mot C1	mot D1
2	mot A2	mot B2	mot C2
3	mot A3	mot B3	mot C3	mot D3	mot E3
4	mot A4	mot B4	mot C4	mot D4
5	mot A5	mot B5	mot C5

Il peut y avoir entre 1 et 10 mots par ligne. Je sais comment transposer simplement les lignes en colonnes et inversement, mais ce qu'il me faudrait surtout c'est une liste de tous ces mots, sur une seule colonne, mais sans perdre le numéro correspondant. Comme ceci :

1	mot A1
1	mot B1
1	mot C1
1	mot D1
2	mot A2
2	mot B2
2	mot C2
etc ...	etc...

Je suis super nul avec les tableaux croisés dynamiques, j'ai essayé et je suis arrivé à rien... Et je sais pas où trouver la solution dans la mesure où à chaque fois que je cherches des solutions de transpositions je trouve rien qui permette de faire concrètement ça...

Merci d'avance 🙂

 

[JHA]

Bonjour à tous,

Un début de piste avec power Query et dépivoter les colonnes

JHA

 

[Niet]

Merci beaucoup ! Je connaissais pas du tout power Query, j'ai essayé et ça marche ! ça va bien m'aider

 

[sylvanu]

Bonjour Niet, JHA,
Ou une solution en VBA avec :

Sub Worksheet_Activate()
    Dim NomFeuille$, NomCellule$, L%, i%, j%
    NomFeuille = "Feuil1"       ' Mettre ici le nom de la feuille concernée
    NomCellule = "A2"           ' Mettre ici la première cellule du tableau (en haut à gauche )
    [A:B] = ""                  ' Colonnes où sont rangées les infos
    Application.ScreenUpdating = False
    Tablo = Sheets("Feuil1").Range(NomCellule).CurrentRegion
    L = 1
    For i = 1 To UBound(Tablo)
        For j = 2 To UBound(Tablo, 2)
            If Tablo(i, j) <> "" Then
                Cells(L, "A") = Tablo(i, 1)
                Cells(L, "B") = Tablo(i, j)
                L = L + 1
            End If
        Next j
    Next i
End Sub

La macro est automatique quand on sélectionne la feuille Résultat.

 

[Niet]

Bonjour Niet, JHA,
Ou une solution en VBA avec :

Sub Worksheet_Activate()
    Dim NomFeuille$, NomCellule$, L%, i%, j%
    NomFeuille = "Feuil1"       ' Mettre ici le nom de la feuille concernée
    NomCellule = "A2"           ' Mettre ici la première cellule du tableau (en haut à gauche )
    [A:B] = ""                  ' Colonnes où sont rangées les infos
    Application.ScreenUpdating = False
    Tablo = Sheets("Feuil1").Range(NomCellule).CurrentRegion
    L = 1
    For i = 1 To UBound(Tablo)
        For j = 2 To UBound(Tablo, 2)
            If Tablo(i, j) <> "" Then
                Cells(L, "A") = Tablo(i, 1)
                Cells(L, "B") = Tablo(i, j)
                L = L + 1
            End If
        Next j
    Next i
End Sub

La macro est automatique quand on sélectionne la feuille Résultat.

Merci beaucoup pour la réponse ! Perso je sais absolument rien faire avec le VBA mais ça aidera surement d'autres gens, je dois pas être seul au monde avec cette question