Treeview

[CB60]

Bonjour
Comment modifier cette ligne de code:

treew.Nodes.Add(, , "NoeudMat" & pere, Table(1, 1)).Expanded = True

pour pouvoir mettre des images en début des nœuds.
normalement
object.Add(relative, relationship, key, text, image, selectedimage)


merci

 

[Simply]

Re : Treeview

Hi,

Tips
An MSForms (all VBA) treeview

 

[CB60]

Re : Treeview

Bonjour Simply
Ce week end je suis allé sur le lien que tu me donne, je n'ai malheureusement pas trouvé de solution à mon soucis.

 

[tototiti2008]

Re : Treeview

Bonjour Bruno, Bonjour Simply,

Il faut utiliser des ImageList
un tuto : Utiliser le contrôle ImageList en VBA Excel

sinon l'outil dans ma signature est un exemple d'utilisation
J'ai déclaré des variables

Dim ImageOuvr As New ImageList

et la première procédure du Module MGestImages les remplit
Puis on associe l'ImageList au treview

Set treew.ImageList = ImageOuvr

Ensuite pour les afficher il faut donner leur index dans l'ImageList

treew.Nodes.Add(, , "NoeudMat" & pere, Table(1, 1), 1, 2).Expanded = True

Edit : il faut penser à changer la propriété Style du Treeview, pour prendre une valeur avec Picture

 

[CB60]

Re : Treeview

Bonjour Tototiti
je regarde tout cela ce soir, et reviens vers vous dire ce qu'il en est.
Merci

 

[tototiti2008]

Re : Treeview

Re,

un exemple simplifié

 

[jeffe]

Re : Treeview

Hello, voici un autre exemple si ça peut aideer

 

[CB60]

Re : Treeview

Bonjour à Tous
Probléme résolu ( plutot ignorance!!)
Merci