TreeView sur 3 niveaux

Version imprimable

07/01/2025, 20h02
ThieBEN

TreeView sur 3 niveaux

Bonjour à toutes et tous,
Je souhaite faire un TreeView à partir de deux feuilles de calcul.
Une qui contient des Directions avec chacune des Services qui y sont rattachés.
Une qui contient des Personnes qui sont rattachées aux Services des différentes Directions.
La Feuille contenant les Personnes contient également des informations liées aux personnes qui devront s’afficher sur le formulaire en fonction de la personne choisie dans le TreeView.
La première partie du TreeView fonctionne à partir de la Feuille « Direction » mais les nœuds de la Feuille « Base » qui devraient contenir les personnes n’apparaissent pas.
Merci de votre aide et conseils.

2 pièce(s) jointe(s)

Hello,
en pièce jointe le classeur corrigé :
1 - Il y avait sur certains noms des caractères parasites à la fin (espace etc ...)
2 - Il n'y avait pas forcément correspondance entre les colonnes de la feuille Base et celle de la feuille Direction (ex : DGA Transition écologique)
3 - J'ai viré tous les espaces pour les noms de clés
4 - La construction des clés pour la boucle 2 n'était pas bonne.
5 - Dans la gestion des erreurs j'ai rajouté Noeudmere parce que Element not found c'est pas très explicite.
6 - J'ai mis des choses en commentaire dans l'activation du formulaire (pour pas qu'il soit redimensionner).
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub UserForm_Initialize()
    On Error GoTo ErrorHandler
    Dim Col As Integer, Ligne As Integer
    Dim NoeudMere As String
    Dim NoeudFille As String
    Dim texte As String
 
    ' Check if the "Direction" sheet exists
    If Not SheetExists("Direction") Then
        MsgBox "Sheet 'Direction' not found!"
        Exit Sub
    End If
 
 
    With Sheets("Direction")
        ' Adding parent nodes from the first row of columns 1 to 5
        For Col = 1 To 5
            TreeViewAgent.Nodes.Add , , Replace(.Cells(1, Col).Value, " ", ""), .Cells(1, Col).Value
        Next Col
 
        ' Adding child nodes under each parent node
        For Col = 1 To 5
            Ligne = 2
            NoeudMere = Replace(.Cells(1, Col).Value, " ", "")
            Do While .Cells(Ligne, Col) <> ""
                NoeudFille = Replace(NoeudMere, " ", "") & "_" & Replace(.Cells(Ligne, Col).Value, " ", "")
                texte = .Cells(Ligne, Col).Value
                TreeViewAgent.Nodes.Add NoeudMere, tvwChild, NoeudFille, texte
                Ligne = Ligne + 1
            Loop
        Next Col
    End With
 
 
    ' Check if the "Base" sheet exists
    If Not SheetExists("Base") Then
        MsgBox "Sheet 'Base' not found!"
        Exit Sub
    End If
 
    With Sheets("Base")
        ' Adding nodes for the "Base" sheet
        Col = 29
        Ligne = 2
        Do While .Cells(Ligne, Col).Value <> ""
            NoeudMere = Replace(.Cells(Ligne, Col).Value, " ", "") & "_" & Replace(.Cells(Ligne, Col - 26).Value, " ", "")
            NoeudFille = .Cells(Ligne, 1).Value
            texte = .Cells(Ligne, 2).Value
            TreeViewAgent.Nodes.Add NoeudMere, tvwChild, NoeudFille, texte
            Ligne = Ligne + 1
        Loop
    End With
    Exit Sub
 
 
ErrorHandler:
    MsgBox "An error occurred: " & Err.Description & " -> " & NoeudMere
 
 
End Sub

Pièce jointe 663429

Ami calmant, J.P

08/01/2025, 09h51
ThieBEN

1 pièce(s) jointe(s)

Bonjour et Merci jurrassic pork, lorsque je colle le code dans mon classeur original il me renvoi une erreur voir image jointe.

ben normalement dans le code de ton formulaire tu avais la fonction :

Code:

1
2
3
4
5
6
' Function to check if a sheet exists
Function SheetExists(SheetName As String) As Boolean
    On Error Resume Next
    SheetExists = Not Sheets(SheetName) Is Nothing
    On Error GoTo 0
End Function

08/01/2025, 10h33
ThieBEN

OK il n'y était plus sur mon formulaire original. Maintenant j'ai une autre erreur

Citation:

An error occured: Element not found ->
08/01/2025, 11h15
jurassic pork

TU as certainement un noeudMere vide Pour savoir où, met en commentaire On Error GoTo ErrorHandler au début de ta procédure , il y a aura une fenêtre d'erreur et tu verras la ligne incriminée en jaune
08/01/2025, 11h58
ThieBEN

Citation:

Envoyé par jurassic pork

TU as certainement un noeudMere vide Pour savoir où, met en commentaire On Error GoTo ErrorHandler au début de ta procédure , il y a aura une fenêtre d'erreur et tu verras la ligne incriminée en jaune

J'ai vérifié il n'y a pas de noeudMere vide, le message affiche le nom et la direction qu'il ne trouve pas alors qu'il y est bien. Par contre je n'ai pas la ligne en jaune pour voir d'où vient le problème.
08/01/2025, 13h49
ThieBEN

Après avoir mis

Citation:

On Error GoTo ErrorHandler

en commentaire le message me renvoi

Citation:

Erreur d'exécution 35601 Element not found