Discussion :

[supertoms]

Salut à tous,
je suis complètement débutant en matière de VBA et j'ai un problème !
J'ai réussi à créer une TreeView mais je veux associer à chaque branche de cette TreeView des cases à cocher.
Pouvez-vous m'expliquer comment faire ?
Le must serait d'avoire un système de cochage avec cases blanches si toutes les cases "filles" sont cochées et avec cases grisées sinon, comme on le voit dans certaines install de logiciels notament. Vous me suivez ?
Merci pour votre aide !

[cafeine]

Hello,

voici un code qui répercute le cochage aux enfants d'un membre du treeview

dans cet exemple, TreeMain est le nom du contrôle Treeview
la clé "top" est celle du haut de mon treeview ... à toi d'adapter ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub treeMain_NodeCheck(ByVal Node As Object)
 
Dim nd As Node
On Error Resume Next
 
For Each nd In Me.treeMain.Nodes
    If nd.Key <> "top" Then
        If nd.Parent = Node Then
            nd.Checked = Node.Checked
            ' allez hop je me la joue récursif
            treeMain_NodeCheck nd
        End If
    End If
Next nd
Set nd = Nothing
 
End Sub

Sinon pour ajouter des cases à cocher dans le treeview il faut aller dans les propriétés et cocher (et oui !) la case Checkboxes.

[supertoms]

Merci beaucoup !
J'ai copié ton code mais ca ne fonctionne pas, les cases de dessou ne se cochent pas automatiquement.

Sinon merci pour l'autre info, j'ai réussi à mettre les cases à cocher pour chaque membre de la treeview avec l'option "Checkboxes".

Du coup j'ai une autre question : comment fait-on pour récupérer les noms des checkbox et par conséquend pour savoir si elles sont cochées ou non ?

Merci d'avance !

[SilkyRoad]

bonjour


un autre exemple pour cocher tous les noeuds enfants :

Code :

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

1
2
3
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
    CocheDecoche Node.Child, Node.Children, Node.Checked
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CocheDecoche(Noeud As MSComctlLib.Node, _
        NbEnfants As Integer, boolNd As Boolean)
    Dim i As Integer
    Dim xNoeud As Node
 
    If NbEnfants = 0 Then Exit Sub
    Set xNoeud = Noeud
 
    For i = 1 To NbEnfants
        If xNoeud.Children > 0 Then _
            CocheDecoche xNoeud.Child, xNoeud.Children, boolNd
 
        xNoeud.Checked = boolNd
        If i < NbEnfants Then Set xNoeud = xNoeud.Next
    Next
 
End Sub

bon week end
michel

[supertoms]

Merci ça fonctionne !
Au sujet de mon autre question ? Comment fait-on pour récupérér les valeur des checkbox et par la suite effectuer des traitements ?
Merci d'avance.

[supertoms]

cafeine, la clé est "maClé1" je crois, voici mon code :

Code :

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

1
2
3
4
5
6
   TreeView1.Nodes.Add , , "maClé1", "Etude" ', "Image1", "Image2"
   TreeView1.Nodes.Add "maClé1", tvwChild, "maClé11", "Recherche concept" ', "Image1", "Image2"
 
   TreeView1.Nodes.Add , , "maClé2", "Calcul" ', "Image1", "Image2"
   TreeView1.Nodes.Add "maClé2", tvwChild, "maClé21", "Calcul prédimensionnement" ', "Image1", "Image2"
   TreeView1.Nodes.Add "maClé2", tvwChild, "maClé22", "Calcul statique linéaire" ', "Image1", "Image2"

[cafeine]

Quelle est la clé pour le noeud tout en haut de ton treeview ?