Discussion :

[seblutfr]

Bonjour,
Je rencontre un souci que je ne sais comment aborder sur Excel.
J'ai une liste de données, qui sont en fait des éléments normalement organisés en arborescence, pour chaque élément j'ai l'identifiant de son parent direct.
Et je souhaite réorganiser les lignes du fichier pour que chaque élément ait ses enfants en dessous de lui, éventuellement avec un décalage de colonne pour lire plus facilement, bref reconstituer l'arborescence. Il y a plusieurs centaines de lignes.
Par exemple, sur 3 colonnes, j'ai :
Code Nom Parent
R Racine -
E1 Elément 1 R
E2 Elément 2 R
E3 Elément 3 R
S1 Elément S1 E1
S2 Elément S2 E2
S3 Elément S3 S1

Et j'aimerais transformer ça en :
R
E1
S1
S3
E2
S2
E3

(désolé pour la mise en page, l'éditeur accepte les espaces pour séparer les éléments, mais pas la visu).

Comment aborderiez-vous le problème ? Macro ? Tableau croisé dynamique ? Formules ?
Merci d'avance pour vos pistes.

[Menhir]

Je peux me tromper mais, à mon avis, il n'y a qu'une macro VBA qui peut répondre à ton besoin.
Et au niveau algorithme, elle ne va pas être simple (tout à fait faisable mais pas simple).

[SR.SFC]

bonjour,

Si l’arborescence est fixe (ou rarement modifiée), il est possible de trier par 'liste personnalisée"

[Tonton Nico]

Bonjour,

Je pense qu'un petit fichier exemple des infos à trier serait sympa ^^

Tonton

[boisgontierjacques]

Bonsoir,

Exemple en PJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim n, ligne, debOrg, Tbl()
Sub Liste()
  Tbl = Range("A2:B" & [A65000].End(xlUp).Row).Value
  Set debOrg = [Q1]
  debOrg.Resize(25, 25).Clear
  n = UBound(Tbl)
  ligne = 0: Ecrit2 Tbl(1, 1), 1
End Sub
 
Sub Ecrit2(parent, niv)       ' procédure récursive
  ligne = ligne + 1
  debOrg.Offset(ligne) = parent
  For i = 1 To n
    If Tbl(i, 2) = parent Then Ecrit2 Tbl(i, 1), niv + 1
  Next i
End Sub

Boisgontier

[seblutfr]

Je vais tenter ce bout de macro qui me semble pas mal
Merci !

[Tonton Nico]

chapeau pour ce bout de code concis (d'ailleurs je vais essayer de tout comprendre, j'ai surement des trucs à apprendre de ces quelques lignes !!!); je ne pensais pas que ça serait aussi simple; du bon boulot !