[VBA-Excel]Problème de création Treeview

Version imprimable

18/08/2006, 14h36
marsupilami34

[VBA-Excel]Problème de création Treeview
Bonjour,
Je viens encore vous embêtter avec les Treeview.
Je viens de passer de la version 5.0 à la version 6.0 mais lorsque je veux créer mon arboresence il me met une erreur su genre

Citation:

Type incompatible

Pour afficher mon arbo j'utilse le code suivant pour un noeud père :
Code:

1 2 3 Dim NouveaudNoeud as Node Set NouveauNoeud=Treeview1.Add.Nodes(,,NodeKey,"Noeud1"
Y a t-il un problème dans ce code ?

Merci d'avance

bonjour

tu peux tester cet exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
    Dim k As Byte, j As Byte
    Dim Img1 As String, Img2 As String
 
    '----------------- création structure TreeView ------------------
    'Noeuds principaux
    For k = 1 To 5
        'Ajoute un noeud et associe les images qui devront s'afficher
        TreeView1.Nodes.Add , , "maClé1" & k, "ParentNode"
    Next
 
    'Noeuds enfants
    For j = 1 To 5
        For k = TreeView1.Nodes.Count To TreeView1.Nodes.Count + 2
            'Ajoute un noeud et associe les images qui devront s'afficher
            TreeView1.Nodes.Add "maClé1" & j, tvwChild, _
                    "maClé2" & Str(k), "ChildNode" & k
        Next
    Next
   '------------------------------------------------------------------
End Sub

bon apres midi
michel

18/08/2006, 15h44
marsupilami34

Super, ca marche comme je veux.

Merci encore pour tout.