Créer une arborescence

Version imprimable

30/10/2017, 11h16
seblutfr

Créer une arborescence

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.
30/10/2017, 11h56
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).
30/10/2017, 17h43
SR.SFC

bonjour,

Si l’arborescence est fixe (ou rarement modifiée), il est possible de trier par 'liste personnalisée"
31/10/2017, 21h43
Tonton Nico

Bonjour,

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

Tonton

1 pièce(s) jointe(s)

Bonsoir,

Exemple en PJ

Code:

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

02/11/2017, 11h56
seblutfr

Je vais tenter ce bout de macro qui me semble pas mal :)
Merci !
02/11/2017, 13h23
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 ! :ccool: