Construction arborescence

[seb.bc]

Bonjour à toutes et à tous!

Je souhaite pouvoir construire une l'arborescence à partir d'un fichier ou j'ai une liste de point.Chaque point appartient à un parent.
Il n'a pas de parent quand il s'agit d'un point "racine".
😕 Je ne sais ABSOLUMENT pas comment m'y prendre pour faire cela.
Voir le fichier joint qui sera plus parlant je pense que de longues explications... du moins si c'est compréhensible? Sur la feuil1 les points et leurs parents réspectifs et sur la feuil2 le chemin reconstitué.
Merci beaucoup d'avance.

 

[seb.bc]

Re : Construction arborescence

Personnes n'a une idée? de suggestion? un hypothèse dont je pourrai m'inspirer?
J'ai beau me casser la tête la dessus je ne vois toujours pas comment m'y prendre...
HELP les amis...

 

[Roland_M]

Re : Construction arborescence

bonsoir

rien de bien difficile si ce n'est de savoir qui avec qui !?
sur quel critères de famille !?
exp (Feuil2)
pourquoi : INFRA-GEO / COMMON / CAFETERIA / BATCAFE
et puis : INFRA-GEO / COMMON / CAFETERIA / ELECCAFETERIA
pourquoi pas : INFRA-GEO / COMMON / CAFETERIA / BATCAFE / ELECCAFETERIA
en un seul !?

Roland

 

[seb.bc]

Re : Construction arborescence

Bonjour Roland et merci pour ta réponse.
Tu me demande sur quels critères, mais il n'y a pas besoin de critère.
Dans ton exemple le parent de ELECCAFETERIA c'est CAFETERIA (feuil1 ligne 19) et non BATCAFE.
Donc INFRA-GEO / COMMON / CAFETERIA / BATCAFE / ELECCAFETERIA ne peux pas exister. M'a tu suivis?

 

[mutzik]

Re : Construction arborescence

Bonjour Seb, le fil

vois si tu peux t'inspirer du fichier attaché

 

[seb.bc]

Re : Construction arborescence

Bonjour Mutzik, merci pour ton aide mais :
1- quand j'ouvre le fichier et que je clic sur "Afficher l'USF" j'ai le message d'erreur "Erreur d'exécution '53' Fichier introuvable"
et en effet en cliquant sur "Débogage" je trouve "userform1" dans "feuilles" et dans "module1" le seul code est :

Sub Lancer()
UserForm1.Show
End Sub

2- Si je veux suivre les liens sur la feuil3 j'ai le message :
Vous n'êtes pas autorisé(e) à accéder à cette ressource.
Vous devez vous connecter.
Vous devez vous identifier.

Je n'avance toujours pas avec mon pb, snifff 🙁

 

[Roland_M]

Re : Construction arborescence

bonjour

Ok vu !
si j'ai un peu de temps aujourd'hui j'y regarde !

Roland

 

[seb.bc]

Re : Construction arborescence

Merci merci merci !!!

 

[Luki]

Re : Construction arborescence

Bonjour à tous,

Voici une solution Vba, 2 boucles imbriquées.

Code pas super optimisé mais ça tourne.

Regarde et dis-nous.

Edition:

J'ai ajouté une petite gestion d'erreurs, et limité les niveaux d'arboresecnce à 100 en cas de boucle infinie.

J'ai introduit 3 erreurs volontaires dans ton fichier. à toi de les retrouver...😛

 

[mutzik]

Re : Construction arborescence

re,

désolé, j'avais oublié qu'il fallait deux fichiers supplémentaires
tu mets les deux fichiers attachés dans le même répertoire que le xls et ca tourne

 

[seb.bc]

Re : Construction arborescence

Alors la bravo Luki! 🙂
MERCI, MERCI, MERCI.

Les 3 erreurs m'ont sauté aux yeux, je bosse la dessus depuis plusieurs jours (le "-" en parent, le "T" en plus à ALGE et le "N" en plus à COMMON).

Merci à toi, merci au forum...😉