Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Treeview compter les noeuds

  • Initiateur de la discussion Initiateur de la discussion ThomasR
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ThomasR

XLDnaute Occasionnel
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]
 

Pièces jointes

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
 
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
 
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
 
re,

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

pour info

Code:
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 😉
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
Réponses
18
Affichages
4 K
P
S
  • Question Question
Réponses
7
Affichages
1 K
M
  • Question Question
Réponses
2
Affichages
1 K
D
Réponses
3
Affichages
1 K
darib52
D
Y
Réponses
6
Affichages
2 K
P
Réponses
3
Affichages
1 K
P
M
Réponses
10
Affichages
2 K
A
P
Réponses
9
Affichages
2 K
philest
P
J
Réponses
6
Affichages
3 K
X
Réponses
4
Affichages
1 K
Réponses
21
Affichages
3 K
S
Réponses
4
Affichages
2 K
skrutt
S
S
  • Question Question
Réponses
0
Affichages
2 K
Sébastien
S
P
Réponses
1
Affichages
1 K
P
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…