TreeView et cases à cocher

Version imprimable

11/04/2008, 14h26
supertoms

TreeView et cases à cocher

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 ! ;)

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:

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.

11/04/2008, 15h34
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 !:yaisse2:

bonjour

un autre exemple pour cocher tous les noeuds enfants :

Code:

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

Code:

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

11/04/2008, 16h02
cafeine

Quelle est la clé pour le noeud tout en haut de ton treeview ?
11/04/2008, 16h04
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.

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

Code:

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"

13/04/2008, 22h57
supertoms

La réponse était :

Code:

TreeView1.Nodes(5).Checked = True

...après 2 jours de recherche :mouarf: