case a cocher dans treeview

[jeffe]

bonjour le forum
après maintes recherches, je voudrais adapter un treeview pour pouvoir faire un calcul uniquement sur les items cochés dr treeview
voiciun bout de fiche si vous avez une idée
merci

 

[MichelXld]

Re : case a cocher dans treeview

bonsoir


Un exemple qui identifie les éléments cochés :

Dim NodX As Node
 
For Each NodX In TreeView1.Nodes
If NodX.Checked = True Then MsgBox NodX.Text
Next

Reste à voir ce que tu souhaites calculer ensuite.
Tu pourrais par exemple stocker des données calcul dans la propriété 'Tag' ...


bonne soirée
michel

 

[jeffe]

Re : case a cocher dans treeview

bonjour le forum, MichelXLD,

en fait je voudrais calculer la somme des puissances de chaque elements selectionné dans le treeview et mettre le resultat dans la textbox
je vois pas comment utiliser le tag

 

[MichelXld]

Re : case a cocher dans treeview

bonsoir


Un exemple complet, dans un userform contenant un treeview et un commandbutton :

Option Explicit
 
Private Sub UserForm_Initialize()
Dim ObjNoeud As Node
Dim I As Byte, J As Byte, H As Byte, F As Byte, G As Byte
 
With TreeView1
    'Noeud parent
    Set ObjNoeud = .Nodes.Add(, , "Niveau0", "Niveau0")
    With ObjNoeud
        .Tag = 50
        .Expanded = True
    End With
 
    For I = 1 To 2 ' Noeud enfant niveau 1
        Set ObjNoeud = .Nodes.Add("Niveau0", tvwChild, "Niveau1" & I, "Niveau1" & I)
        With ObjNoeud
            .Tag = 10 * I
            .Expanded = True
        End With
 
        For J = 1 To 2 ' Noeud enfant niveau 2
            H = H + 1
            Set ObjNoeud = .Nodes.Add("Niveau1" & I, tvwChild, "Niveau2" & H, _
            "Niveau2" & I & J)
            With ObjNoeud
                .Tag = 100 + H
                .Expanded = True
            End With
 
            For G = 1 To 2 ' Noeud enfant niveau 3
                F = F + 1
                Set ObjNoeud = .Nodes.Add("Niveau2" & H, tvwChild, "Niveau3" & F, _
                "Niveau3" & I & J & G)
                With ObjNoeud
                    .Tag = 1000 + F
                    .Expanded = True
                End With
 
            Next G
 
        Next J
    Next I
End With
 
TreeView1.CheckBoxes = True
 
Set ObjNoeud = Nothing
End Sub
 
 
 
Private Sub CommandButton1_Click()
    Dim NodX As Node
    Dim Resultat As Double
 
    For Each NodX In TreeView1.Nodes
    If NodX.Checked = True Then Resultat = Resultat + NodX.Tag
    Next
 
    MsgBox "Total des valeurs stockées dans la propriété 'Tag' = " & Resultat
End Sub

bonne soirée
michel

 

[jeffe]

Re : case a cocher dans treeview

bonjour le forum , MichelXLD
tout dabord, merci de te pencher sur mon problème
j'ai essayé de ma servir de l'aide pour exploiter le treeview et le tag mais rien ni fait, j'ai une page bleu (pas d'aide sur cet outil sur mon PC).

je viens d'essayer ta proposition et je me suis apperçu que ce n'est pas le nom du fils qui m'interresse, mais la valeur qui lui est associée dans mon tableau.

donc, je crois qu'il faut que je mémorise les valeurs à chaque fois que je coche pour l'afficher dans me textbox
de plus il faut que je décoche le père si je coche un fils ou plus

si tu as une idée
merci et bonne journée

 

[jeffe]

Re : case a cocher dans treeview

bonjour MichelXLD, le forum,
je reviens encore une fois pour le meme problème, je narrive pas à adapter votre exemple exemple.
quand je fais la sommes des valeurs cochées, je ne somme que la valeur corespondant à l'item sélectioné (If NodX.Checked = True Then Resultat = Resultat + Feuil2.Cells(TreeView1.SelectedItem.Index, 15) =séléction de l'item colone 15

existe il une instruction pour associer chaque checkbox à mon tableau( dela méme facon que selectedItem ?

merci de votre aide