Discussion :

[Al__22]

Bonjour le forum,

Je viens vers vous car ça fait un petit moment que je cherche sans résultat (peut être pas suffisamment pour certains mais je recherche peut être mal ).

Pour info j'ai notamment trouvé ceci et cela mais à part me perdre j'ai pas plus avancé

J'ai un UserForm avec un TreeView et différents ComboBox qui restent toujours les même quelque soit le nœud du TreeView sélectionné.
Or j'aimerai que le nom du nœud que j'ai sélectionné change en fonction de si je change un de mes ComboBox.

Ex : Nom actuelle du nœud : Noeud 1 Vir
Choix ComboBox : Vir/Dir/Lir

Je choisis Lir => Nom du noeud devient : Noeud 1 Lir

Merci à tous ceux qui pourront m'aider

[Al__22]

Bonjour le forum,

Je me permet un petit UP car c'est un problème qui me tiens plutôt a cœur
Bon après si c'est impossible vous pouvez aussi me le dire je me vexerai pas promis (enfin pas trop )

[Al__22]

C'est encore moi

Non juste pour vous dire qu'à force d'essais dans tout les sens j'ai réussi mon petit tour de force.
Mais que à moitié, je m'explique :
Non seulement je devais réussir à faire changer le nom du nœud mais aussi garder ce suffixe en mémoire pour pouvoir l'afficher plus tard.
C'est chose faite quand je change chacun de mes petits nœuds les un après les autres.
Mais si jamais je ferme l'UserForm puis le rouvre, je perds ce que j'avais sauvegardé (j'ai toujours les bon noms de nœuds mais je n'ai plus en mémoire les sufixes) et lorsque je créé un nouveau noeud parent il garde en mémoire les noms des fils mais pas les suffixes.
Donc si quelqu'un à une idée ou à besoin de plus d'explications merci d'avance.

Le bout de code correspondant au changement de nom + sauvegarde suffixe :

Code :

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

1
2
3
4
5
6
7
    If Not UserForm1.TreeView1.SelectedItem.FullPath = UserForm1.TreeView1.SelectedItem.Text Then
    UserForm1.TreeView1.SelectedItem.Text = "Noeud n°" & Right(CStr(UserForm1.TreeView1.SelectedItem.Key), 1) & "_" & CB_lite.Text
        If Not DicoPlis.Exists(UserForm1.TreeView1.SelectedItem.Key) Then
        DicoPlis.Add UserForm1.TreeView1.SelectedItem.Key, CB_lite.Text
        Else: DicoPlis.Item(UserForm1.TreeView1.SelectedItem.Key) = CB_lite.Text
        End If
    End If

Si il y a besoin de plus de chose ne pas hésiter à me demander

EDIT : J'ai trouvé ceci pensez-vous que c'est la direction que je devrai prendre durant l'initialisation de l'userform ?

[Al__22]

C'est tout bon j'ai réussi merci à vous tous