Discussion :

[pinhut]

Le fichier fonctionne merci beaucoup ! Ce que vous avez fait est absolument GENIAL vraiment, je n'aurai jamais penser pouvoir obtenir un résultat d'une telle qualité !!! Maintenant il va falloir que je m'approprie le code et rechercher des tutos (en esperant que ce soit abordable étant donné mon niveau) sur cette notion de TreeView afin de pouvoir le manipuler à ma guise!

Je ne sais comment vous remercier tant ce que vous avez fait est superbe !! Alors juste MERCI, c'est un sujet plus que résolu !!!!

Une fois que j'aurai bien bossé la chose je me demandais, sans en abuser bien-sûr, si je pouvais m'adresser à toi directement en message privé si j'ai des questions sur ton code ?? (j'imagine qu'énormément de personnes ont déjà dût te demander ça!).

Dans le cas contraire pas de souci, et peut-être à bientôt sur le forum !!!

[Theze]

Bonjour,

Il est préférable, pour que tout le monde en profite, que la discussion se passe ici car il peut y avoir des personnes qui pourront intervenir pour t'aider.
Le TreeView te permets de gérer les parents/enfants (compteurs/sous-compteurs) de façon graphique et logique (explorateur de Windows) mais il va falloir l'associer à des TextBox pour récupérer les valeurs de chacun. Maintenant, il te faut savoir quoi faire une fois l'architecture de tes compteurs créée ! Est-ce juste le volume de chacun que tu souhaites récupérer ou d'autres valeurs comme le nom de l'utilisateur et ses coordonnées ? Comment compte-tu architecturer ton classeur car je me doute que toutes ces valeurs vont devoir aller quelque part ? Gérer les compteurs et sous-compteurs par des couleurs différentes, créer un décalage de colonne et de ligne ?

Hervé.

[pinhut]

Bonjour Theze !

C'est noté !

Ce que je souhaite faire c'est "uniquement" transférer l'architecture de configurée dans une feuille de travail, de cette maniere il n'y aura plus qu'à indiquer en brut les volumes de chacun des compteurs et sous-compteurs associés. Je suis donc parvenu à récupérer et à transférer l'architecture dans ma feuille Feuil2. Le but étant d'avoir une présentation pour l'instant basique comme s'en suit:

Compteur 1
Sous Compteurs 1.1
Sous Compteurs 1.2

Compteur 2
Sous-compteur 2.1

Compteur 3 etc...

Voici comment je procède, un peu barbare certes

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
18
19
20
21
Dim Noeud_Parent As Node
Dim Noeud_Enfant As Node
Idx_Remplissage = 1
 
Set Noeud_Parent = TreeView1.Nodes(1).Child
Set Noeud_Enfant = Noeud_Parent.Child
 
For i = 0 To TxtSousCompteur.Text
 
Worksheets("Feuil2").Cells(Idx_Remplissage, 1).Value = Noeud_Parent.Key
    Do Until Noeud_Enfant Is Nothing
        Worksheets("Feuil2").Cells(Idx_Remplissage + 1, 1).Value = Noeud_Enfant.Key
        Set Noeud_Enfant = Noeud_Enfant.Next
        Idx_Remplissage = Idx_Remplissage + 1
    Loop
    Idx_Remplissage = Idx_Remplissage + 1
    Set Noeud_Parent = Noeud_Parent.Next
    If i <  TxtSousCompteur.Text Then ' Condition pour éviter d'etre l'enfant d'un parent vide
    Set Noeud_Enfant = Noeud_Parent.Child
    End If
Next i

Cela m'affiche les enfants de premier niveau, j'ai tenté de créer une fonction dans laquelle j'aurai en paramètre le noeud racine et un chiffre qui indiquera quel niveau "d'enfant" je souhaite afficher, mais le compilateur n'aime pas la façon dont je passe un noeud en paramètre, et le récursif est un vrai casse tête, mais je persévère !

il est vrai que je n'avais pas encore pensé à la façon de présenter l'architecture, mais en effet rien qu'un décalage de colonne entre compteurs et sous compteurs rendrait le document plus buvable, saut de lignes entre les niveaux de compteurs principaux ...

Ensuite une fois que l'utilisateur aura rempli le document crée, je vais créer des graphiques de consommation, mettre des alertes, ce qui me passera par la tête !!

D'ailleurs j'ai cherché sur le net mais je ne pense pas formuler correctement ma requête, je souhaiterai que ce que je transfère (remplissage d'une feuille après l'architecture définie) soit dans un tableau, mais un tableau dans le sens "esthétique" avec des couleurs et ce genre de chose que propose excel.

[pinhut]

Ah en je viens de m'apercevoir d'une faute

Ma boucle n'est pas

Code :

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

 for i=0 to TxtSousCompteur.Text

mais

Code :

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

for i=1 to TxtCompteur.Text