Discussion :

[branqueira]

Bonjour,
J'ai fait de nombreuses recherches sur internet et je n'ai pas reussi à trouver une explication en ce qui concerne le tri d'un TreeView

Je m'explique :
Je possede un TreeView d'une profondeur de 4 et j'ai mis dans mon formulaire une zone de Texte qui me permet d'ecrire quelque chose pour pouvoir l'inserer dans le TreeView en tant que Fils par rapport au Noeud actuellement selectionné.

Ca il n'y a aucun probleme mais je n'arrive pas à le mettre dans l'ordre alphabetique, il se met à la fin.

Voila un petit d'exemple

Voila le TreeView au début:
Corps d'état
------Maçonnerie
------Peinture
------Plomberie
------VRD

je veux inserer par exemple "Occultations"

il me met :
Corps d'état
------Maçonnerie
------Peinture
------Plomberie
------VRD
------Occultations

au lieu de :
Corps d'état
------Maçonnerie
------Occultations
------Peinture
------Plomberie
------VRD


PS: un bon dessin vaut beaucoup mieux qu'un long discours

[tee_grandbois]

Bonsoir,
Il n'existe de méthode 'rapide' de retrier un treeview (du genre me.orderby). La seule que je connaisse c'est de faire un clear puis de trier le recordset et de recharger le treeview

Code :

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

1
2
Me.MonTreeview.Nodes.Clear   ' Pour effacer le treeview
Set NewNode = Me.MonTreeview.NodesAdd(....    ' Pour ajouter

[branqueira]

Fichtre, ben tant pis
justement "tee_grandbois" utilise egalement ta façon mais c'est un peu chiant car quand on fait le clear, le treeview disparait et ensuite quand on cliques sur le + pour voir l'arboresence cela ne fait rien et il faut recliquer.

ben tant pis et merci quand meme

[tee_grandbois]

Fichtre, ben tant pis
justement "tee_grandbois" utilise egalement ta façon mais c'est un peu chiant car quand on fait le clear, le treeview disparait et ensuite quand on cliques sur le + pour voir l'arboresence cela ne fait rien et il faut recliquer.

ben tant pis et merci quand meme

Si tu utilises clear , ton treeview disparait : c'est le but. Mais tu peux le recharger en utilisant add comme je te l'ai indiqué, et si tu veux voir l'arborescence sans appuyer sur le '+', après le .add tu utilises :

Code :

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

Mynode.Expanded = True

[SilkyRoad]

bonjour

tu peux tester cette procédure pour effectuer un tri lors de l'ajout d'un élément

Code :

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

1
2
3
4
Dim Nd As Node 
Set Nd = _ 
    TreeView1.Nodes.Add(, , "maClé", "Le texte", "Image1", "Image2") 
Nd.Sorted = True

michel

[branqueira]

Ca marche pas

j'ai fait comme tu m'as dit "SilkyRoad" à part que j'ai les parametres "Relative" et "Relationship" dans la définition du TreeView.
Cela a une incidence?

Code :

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

1
2
3
4
5
 
Dim Noeud As Node
Set Noeud = TreeEtat.Nodes.Add(TreeEtat.SelectedItem.Key, tvwChild,
        idKey, Me.Nom_CE.Value, 1)
Noeud.Sorted = True

[branqueira]

C'est bon j'ai trouvé
il faut mettre

Code :

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

1
2
 
Noeud.Parent.Sorted = True

au lieu de

Code :

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

1
2
 
Noeud.Sorted = True

Bon ben je mets le tag "Résolu"

Merci à vous tous