Microsoft 365 Transformer liste avec des lignes qui se répètent en colonne

Pawi · 20 Juin 2023

Bonjour,

J'ai une liste très longue avec quatre ligne qui se répètent comme ceci:
Nom Pierre
Titre CEO
Société P&CO
Ville Londres
Nom Paul
Titre CFO
Société P&CO
Ville New York
Nom Jacques
Titre COO
Société P&CO
Ville Paris

J'aimerais bien pouvoir avoir cette liste en 4 colonnes avec Nom, Titre, Société et Ville en titre comme ceci:

Nom Titre Société Ville
Pierre CEO P&CO Londres
Paul CFO P&CO New York
Jacques COO P&CO Paris

Est-ce possible de faire cela d'une manière simple, s'il vous plaît?

Merci beaucoup!
Paulina

Cousinhub · 20 Juin 2023

Bonjour, et bienvenue sur Xld
Avec Power Query, en natif dans ta version...
Regarde ce que ça pourrait donner (Clic droit dans la requête, "Actualiser", pour mettre à jour)
PS, tu aurais dû fournir un fichier exemple, ça nous évite de le créer

sylvanu · 20 Juin 2023

Bonjour Pawi, Cousinhub,
Ou une approche VBA avec :

VB:

Sub Worksheet_Activate()
    Dim tablo, T, L%, i%
    [A2:D10000].ClearContents
    Application.ScreenUpdating = False
    tablo = Sheets("Feuil1").[A1].CurrentRegion
    ReDim T(1 To UBound(tablo), 1 To 4): L = 1
    For i = 1 To UBound(tablo) Step 4
        T(L, 1) = tablo(i + 0, 1): T(L, 2) = tablo(i + 1, 1)
        T(L, 3) = tablo(i + 2, 1): T(L, 4) = tablo(i + 3, 1)
        L = L + 1
    Next i
    [A2].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la Feuil2.

Microsoft 365 Transformer liste avec des lignes qui se répètent en colonne

Pawi

XLDnaute Nouveau

Cousinhub

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires