XL 2019 Eclater les catégories d'un tableau

Nico2978

XLDnaute Nouveau
Bonjour à tous,
je souhaiterais savoir si il est possible de transformer via une fonction excel ou via vba un tableau comme celui ci:
1712566913452.png


En une liste comme celle la:
1712566991258.png


Et si oui, comment faut-il s'y prendre s'il vous plaît?

Je vous remercie! Et au vu de l'heure bon appétit
 
Solution
Bon pour traiter les doublons il suffit d'ajouter un tri :
VB:
Sub Modifier()
Dim P As Range, i&
Set P = [A1].CurrentRegion
Application.ScreenUpdating = False
P.Rows(P.Rows.Count + 1).Resize(Rows.Count - P.Rows.Count - P.Row + 1).Delete xlUp 'RAZ
P.Copy P(P.Rows.Count + 2, 1)
Set P = P(P.Rows.Count + 2, 1).Resize(P.Rows.Count, P.Columns.Count)
P.Sort P.Columns(1), xlAscending, Header:=xlYes 'tri
For i = P.Rows.Count To 2 Step -1
    If P.Cells(i, 1) <> P.Cells(i - 1, 1) Then
        P.Rows(i).Insert xlDown
        P.Rows(1).Copy P.Rows(i)
        P.Cells(i, 1) = P.Cells(i + 1, 1)
        P.Cells(i + 1, 1) = ""
    Else
        P.Cells(i, 1) = ""
    End If
Next
P.Rows(1).Delete xlUp
End Sub

Discussions similaires

Réponses
13
Affichages
279
Réponses
20
Affichages
440
Réponses
17
Affichages
531

Statistiques des forums

Discussions
313 285
Messages
2 096 819
Membres
106 754
dernier inscrit
Pbabar