Alimenter listview avec un élément de treeView

Version imprimable

13/01/2025, 15h16
ThieBEN

Alimenter listview avec un élément de treeView

Bonjour à toutes et tous. Je souhaiterais à l'aide d'un Treeview en prenant un élément dans l'arborescence afficher dans une Listview les informations liées à l'élément choisi dans le TreeView. J'ai cherché je ne trouve pas comment faire. Il y a beaucoup de choses sur la ListView mais au niveau des deux TreeView - Listview je ne trouve rien qui corresponde à ce que je souhaite faire. Si vous avez une idée, un conseil ou chercher je vous en remercie d'avance.
14/01/2025, 07h51
jurassic pork

2 pièce(s) jointe(s)

Hello,
en pièce jointe, un exemple de drag and drop entre un treeview et une listview. A Adapter pour ce que tu veux faire (au moment du drop au lieu de mettre ce qui est dragué , allez chercher les infos et les mettre à la place).
Pièce jointe 663578

Ami calmant, J.P
14/01/2025, 09h58
ThieBEN

Merci Jurassic Pork, mais dans mon cas il y beaucoup d'informations par personne et je souhaiterais que simplement en cliquant sur le nom il affiche les données correspondantes dans la listeview. J'ai un autre souci j'ai des doublons dans mon treeview car pour une peronne il y plusieurs années différentes. Il faudrait retirer les doublons et permettre le choix en fonction de l'année, mais pour ça il faut que je rajoute un noeud année et là ça devient compliqué. Merci des conseils.
15/01/2025, 02h21
Nullosse

1 pièce(s) jointe(s)

Pièce jointe 663597

Merci Nulosse, je crois que je vais rester sur des TextBox plus facile à organiser sur un userform. En revanche quelqu'un à t-il une solution pour supprimer les doublons dans le treevieew et rajouter un noeud avec possibilité pour un nom d'afficher les infos entre différentes année. Exemple d'arborescence = Une Direction - Un Service - Un NomPrenom - Année 1 Année 2 Année 3... Ajouter un Noeud pour les Années qui sont dans la feuille "Base" voir code du TreeView.

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
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

Bonjour à toute et tous, je ne trouve rien sur les doublons dans un treeview le code que j'ai adapté à mon treeview ne fonctionne pas et je n'arrive pas à créer un nouveau noeud sur les années.

Citation:

Exemple de structure des nœuds après l'ajout :
Nœud parent (niveau 1) Direction
Nœud enfant (niveau 2) Service avec le Nom
Sous-nœud sous l'enfant (niveau 3)Nom + années

Merci de vos conseils et de votre aide

Code pour supprimer les doublons ne fonctionne pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub SupprimerDoublonsTreeView()
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    Dim strItem As String
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
 
    ' Nombre d'éléments dans le TreeView (ajustez "TreeView1" avec le nom réel de votre contrôle)
    n = TreeView1.Nodes.Count
 
    ' Parcourir tous les éléments du TreeView
    For i = n To 1 Step -1
        strItem = TreeView1.Nodes(i).Text ' Récupérer le texte de l'élément
        If dict.Exists(strItem) Then
            ' Si l'élément existe déjà dans le dictionnaire, supprimer le nœud
            TreeView1.Nodes(i).Delete
        Else
            ' Si l'élément n'existe pas, l'ajouter au dictionnaire
            dict.Add strItem, Nothing
        End If
    Next i
End Sub