Treeview compter les noeuds

[ThomasR]

Bonjour le forum,

je cherche un moyen de compter le nombre de facture visualisé dans le treeview de cette macro.

je cherche aussi un moyen de l'exporter dans un nouveau classeur.

D'avance merci
Thomas®

Cette macro est inspiré du post de Plouf (le lien est dans ma piece jointe)

[file name=Classeur1_20050706231439.zip size=25946]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050706231439.zip[/file]

 

[MichelXld]

bonjour Thomas

j'espere que cette macro pourra t'aider

MsgBox TreeView1.Nodes.Count


sinon je n'ai pas compris ce que tu souhaites exporter


bonne journée
MichelXld

 

[ThomasR]

Bonjour MichelXld, le forum,

Merci pour cette info ca peux toujours servir

mais dans ce cas je cherche a compter le nombre visualisé .

et nom le total, enfin je souhaite le total visible.

j'ai essayer

For i = 1 To FC_Tree.Nodes.Count
If FC_Tree.Nodes.Item(i).Expanded = True Then
compteur = compteur + 1
End If
Next i
Label2.Caption = compteur

mais il me compte tout même le parent

exemple

-thomas
-maison
-chat
-chien
nadia
-bureau
-poisson

je veux = 3 (chat, chien, poisson)

D'avance merci

 

[MichelXld]

bonjour Thomas

pour le nombre de visibles , as tu essayé

Private Sub CommandButton3_Click()
Dim i As Integer, x As Integer
For i = 1 To FC_Tree.Nodes.Count
If FC_Tree.Nodes(i).Visible = True Then x = x + 1
Next i
MsgBox x
End Sub


bon apres midi
MichelXld

 

[ThomasR]

Bonjour MichelXld, le forum,

Mon premier choix etait .visible mais ca me compte le nombre de visible mais je ne veux pas compter les parents je veux uniquement compter les derniers noeux d'une chaine .

Mais merci pour ta proposition

 

[ThomasR]

re,

J'ai trouvé seul comme un grand B) .

pour info

Dim i As Integer, x As Integer
For i = 1 To FC_Tree.Nodes.Count
If FC_Tree.Nodes.Item(i).Visible = True Then
If FC_Tree.Nodes(i).Children = 0 Then
x = x + 1
T = T & ' ' & FC_Tree.Nodes.Item(i).Text

End If
End If
Next i
MsgBox 'Il y a ' & x & ' au compteur'
MsgBox 'Voici ce qui a était compté'
MsgBox T

maintenant il ne me reste plus qu'a trouver comment exporter l'arboressence dans l'etat afin de ne visualiser que les items selectionné.

si quelqu'un à une piste je suis prenneur