[Toutes versions] 2 questions sur les incontournables treeview

[guen]

Bonjour

Je bloque sur 2 points concernant les treeview, la première qui semble pourtant facile et la deuxième assez inexplicable...:
1 - comment fait-on pour sélectionner par le code un noeud précis d'un treeview quand on connait uniquement son text ? je sais faire par le numéro d'index (tvw.nodes(index).selected=true) mais pas avec la valeur du texte.
2 - après une sélection dans le treeview et seulement dans certaines conditions (mise à jour d'un sous-état), la police du treeview change complètement (grossit) et il faut que je fasse une sélection ailleurs pour que celui-ci revienne correct... pour être plus précis, cela se produit sur l'application d'un filtre dans le sous-état en fonction de la sélection dans l'explorateur... bizarre non ?
merci si vous avez des idées...
guen

[helas]

Bonjour
pour la question 1
Appel à une fonction qui retourne la clé en fonction du texte

Code :

1
2
 
Me!NomTreeview.Nodes(TreeviewKey("texte")).Selected = True

La fonction parcoure l'arborescence pour trouver la clé

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Function TreeviewKey(s As String) As String
 On Error GoTo erreur
 Dim tr As TreeView, n As Long
 TreeviewKey = ""
 Set tr = Me!NomTreeview.Object
 n = 1
 Do Until tr.Nodes(n).Text = s:  n = n + 1: Loop
 TreeviewKey = tr.Nodes(n).Key
 Exit Function
erreur:
End Function

pour la question 2
Etrange en effet, je propose :
En pas à pas, surveiller Font.Name ou Font.Size de l'objet Treeview dans toutes les procedures utilisées

Code :

1
2
3
 
Dim tr As Treeview
Set tr = Forms("NomFormulaire")!arborescence.Object