Problème mise en place jb-TreeView

[Horloman]

Bonjour,

Boisgontier m'avait fait parvenir son VBA sur l'affichage en arborescence.
Je n'arrive pas à le faire fonctionner sur le fichier joint.

Merci d'avance

 

[ChTi160]

Re : Problème mise en place jb-TreeView

Bonjour Horloman
Bonjour le fil
Bonjour le Forum

Après un rapide coup d Œil ,j'ai constaté qu'il n'y a pas de Userform dans ton fichier (est ce normal ?)

Bonne journée
Amicalement
Jean marie

 

[Horloman]

Re : Problème mise en place jb-TreeView

Bonjour ChTi160,

Je n'ai pas très bien compris ta remarque: J'ai deux macro (Calcul et affiche).

Par contre celle de jb-TreeView n'est pas là. Le code est au niveau des cellules Q.

Meilleures salutations et bonne journée.

 

[BOISGONTIER]

Re : Problème mise en place jb-TreeView

Bonjour,

cf pj

Dim tw As MSComctlLib.TreeView
Dim Tbl, n
Private Sub UserForm_Initialize()
  Tbl = Range("A2:N" & [N65000].End(xlUp).Row).Value
  pere = "0"
  nomPere = Application.VLookup(pere, Tbl, 4, False)
  Set tw = Me.MonArbre
  n = UBound(Tbl)
  tw.Nodes.Add(, , "NoeudMat" & pere, nomPere).Expanded = True    ' Racine arbre
  Fils pere
End Sub

Sub Fils(parent)       ' procédure récursive
  For i = 2 To n
    cd = Tbl(i, 1)
    niv = Len(cd) - Len(Replace(cd, ".", ""))
    If niv = 0 Then temp = "0" Else temp = Left(cd, Len(cd) - 2)
    If temp = parent Then
      tw.Nodes.Add("NoeudMat" & parent, tvwChild, "NoeudMat" & _
        Tbl(i, 1), Tbl(i, 1) & ": " & Tbl(i, 2) & "-" & Tbl(i, 4)).Expanded = True
      Fils Tbl(i, 1)
    End If
  Next i
End Sub

http://boisgontierjacques.free.fr/fichiers/Formulaire/TreeViewNomenclature.xls

jb

 

[Horloman]

Re : Problème mise en place jb-TreeView

Merci beaucoup Boisgontier. Très efficace.

Bonne journée.