XL 2016 Présentation arborescence

[Michest94]

Bonjour,

Je travail sur la restructuration d'une arborescence pour la présentée j'aurais voulu réaliser avec excel une presentation par rapport au répertoire racine.

Je pars de la cellule K4 affichant simplement le répertoire racine puis en cliquant sur la cellule k4 afficher la ligne 8 et ensuite en cliquant sur la cellule C10 se développe la colonne c10 idem pour les autres colonnes.

Merci pour votre aide,

 

[Robert]

Bonjour Michest et bienvenu, bonjour le forum,

C'est tellement clair que c'en est devenu transparent, puis le fichier nous aide tellement !....
Remarque je dis souvent ça et just'après quelqu'un de bien moins c** que moi donne la réponse... Mais là je doute quand même...

 

[sylvanu]

Bonjour Michest, Robert,
@Michest : Ligne c'est horizontal, Colonne c'est vertical.
un essai en PJ d'après ce que j'ai compris avec :

Sub Masque()
Application.ScreenUpdating = False
For L = 7 To 100
    If Rows(L).Hidden = True And Cells(L, "C") <> "" Then ' Si ligne masquée
        Rows(L & ":" & L - 2).Hidden = False
        Exit Sub
    End If
Next L
End Sub
Sub Demasque()
Application.ScreenUpdating = False
For L = 100 To 7 Step -1
    If Rows(L).Hidden = False And Cells(L, "C") <> "" Then ' Si ligne masquée
        Rows(L & ":" & L - 2).Hidden = True
        Exit Sub
    End If
Next L
End Sub
Sub MasqueTout()
    Application.ScreenUpdating = False
    Rows(7 & ":" & 1000).Hidden = True
End Sub
Sub DemasqueTout()
    Application.ScreenUpdating = False
    Rows(7 & ":" & 1000).Hidden = False
End Sub

 

[Robert]

Re,

Mais pourquoi doute-je de ma propre c***erie ?!...

 

[Michest94]

Bonjour Michest et bienvenu, bonjour le forum,

C'est tellement clair que c'en est devenu transparent, puis le fichier nous aide tellement !....
Remarque je dis souvent ça et just'après quelqu'un de bien moins c** que moi donne la réponse... Mais là je doute quand même...

Merci Robert d'avoir répondu,
Je ne comprends pas pourquoi le mot c** quand quelqu'un essai d'aider !!...
Par rapport à ton doute j'ai un début de piste.
Cdt

 

[Michest94]

Bonjour Michest, Robert,
@Michest : Ligne c'est horizontal, Colonne c'est vertical.
un essai en PJ d'après ce que j'ai compris avec :

Sub Masque()
Application.ScreenUpdating = False
For L = 7 To 100
    If Rows(L).Hidden = True And Cells(L, "C") <> "" Then ' Si ligne masquée
        Rows(L & ":" & L - 2).Hidden = False
        Exit Sub
    End If
Next L
End Sub
Sub Demasque()
Application.ScreenUpdating = False
For L = 100 To 7 Step -1
    If Rows(L).Hidden = False And Cells(L, "C") <> "" Then ' Si ligne masquée
        Rows(L & ":" & L - 2).Hidden = True
        Exit Sub
    End If
Next L
End Sub
Sub MasqueTout()
    Application.ScreenUpdating = False
    Rows(7 & ":" & 1000).Hidden = True
End Sub
Sub DemasqueTout()
    Application.ScreenUpdating = False
    Rows(7 & ":" & 1000).Hidden = False
End Sub

Bonjour Michest, Robert,
@Michest : Ligne c'est horizontal, Colonne c'est vertical.
un essai en PJ d'après ce que j'ai compris avec :

Sub Masque()
Application.ScreenUpdating = False
For L = 7 To 100
    If Rows(L).Hidden = True And Cells(L, "C") <> "" Then ' Si ligne masquée
        Rows(L & ":" & L - 2).Hidden = False
        Exit Sub
    End If
Next L
End Sub
Sub Demasque()
Application.ScreenUpdating = False
For L = 100 To 7 Step -1
    If Rows(L).Hidden = False And Cells(L, "C") <> "" Then ' Si ligne masquée
        Rows(L & ":" & L - 2).Hidden = True
        Exit Sub
    End If
Next L
End Sub
Sub MasqueTout()
    Application.ScreenUpdating = False
    Rows(7 & ":" & 1000).Hidden = True
End Sub
Sub DemasqueTout()
    Application.ScreenUpdating = False
    Rows(7 & ":" & 1000).Hidden = False
End Sub

Merci Sylvanu pour le retour,
C'est nickel je te joint un autre fichier ou je suis parti sur un TCD pour que tu vois mon arbo en construction et si tu peux l'adapter à ton fichier.
Merci
Cdt,

 

[patricktoulon]

bonjour
drôle de présentation d’arborescence
pour moi il ne s'agit la que d'un masquage/affichage d'une ligne tout les y lignes
rien a voir avec une présentation d'arborescence
un élément enfant d'un autre ne peut pas avoir les mêmes colonnes
c'est une logique appliqué partout en informatique

 

[sylvanu]

Bonjour,
@Michest, les fichiers 1 et 2 n'ont rien à voir. Dans le fichier 2 on ne sait même pas quels sont les attendus, et que doit représenter le graphique.
Donc nulle envie de l'adapter. Sorry.

 

[Michest94]

bonjour
drôle de présentation d’arborescence
pour moi il ne s'agit la que d'un masquage/affichage d'une ligne tout les y lignes
rien a voir avec une présentation d'arborescence
un élément enfant d'un autre ne peut pas avoir les mêmes colonnes
c'est une logique appliqué partout en informatique

Bonjour,
Oui effectivement, j'ai vu que dans mon fichier la structure de l'arbo etait incohérente autant pour moi je suis parti sur une une BD et un TCD avec l'idée de mon fichier incohérent réaliser une feuille interactive en partant du répertoire racine.(COAGE)
Cdt,

 

[Michest94]

Bonjour,
@Michest, les fichiers 1 et 2 n'ont rien à voir. Dans le fichier 2 on ne sait même pas quels sont les attendus, et que doit représenter le graphique.
Donc nulle envie de l'adapter. Sorry.

Ce n'est pas grave Sylvanu,
Merci quand même pour ton retour, vu que mon projet à but professionnel est au tout début de sa réalisation d'où ma demande confuse. Désolé!
(Actuellement l'arbo en question c'est la foire- fouille qui doit être remise à plat pour une restructuration donc en construction... )
En fait dans l'idée du fichier 1 c'est l'interactivité visuelle en partant du répertoire racine et de développé les sous répertoires.
Le fichier 2 est ce que j'ai réussi à faire car au début je n avais pas de retour , le graphique du TCD indique simplement le nombre de sous répertoires afin d'avoir une idée de la branche à développée.

 

[Michest94]

Bonjour,

Par rapport au projet arbo faite à l'initiale ma demande étant très confuse. Je reviens vers votre aide afin de voir par rapport au fichier excel joint si il est possible de l'adapter comme sur l'image liée.
Merci pour votre aide.

Cdt,
Michest

 

[sylvanu]

Bonjour Michest,
Pas sur d'avoir bien compris. Mais un essai en PJ, les explications sont dans le fichier.

 

[Michest94]

Bonjour Sylvanu,

Merci à toi c'est parfait!
Juste comment créer des répertoires et sous répertoires soit de nouveaux ou bien en ajout dans des répertoire existant.

 

[sylvanu]

Ah, bah oui, ça c'est ballot. Ca m'a échappé.
Il faut donc une astuce pour tout figer et être capable de rajouter des items.
Idée en PJ : Un clic sur A1 met en mode Insert qui permet de modifier les cellules ou Normal qui est le mode précédent.
C'est le plus simple que j'ai trouvé.

 

[patricktoulon]

bonjour @sylvanu @Michest

perso je partirais soit sur une commandbarpopup ou un xmldomdocument en mémoire pour créer mon arborecence
et je retranscrirais dans le même ordre sur la feuille
un popup est a la portée d'un débutant