[Résolu]Récupération des données treeview (en case à cocher)

  • Initiateur de la discussion Initiateur de la discussion Cypat
  • 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 !

Cypat

XLDnaute Nouveau
Bonjour,
j'utilise un treeview de manière à pouvoir gérer des catégorie dans un formulaire.
Mon treeview marche impeccable mais je n'arrive pas à récupérer mes données.
Explication: Mon TreeView possède des cases à cocher, je souhaite pour chaque case a cocher, récuper le nom qui y est associer afin de le mettre dans une colonne de tableau.

Code:
For i = 0 To TreeView1.Nodes.Count - 1
      If Me.Controls("TreeView1").Selected(i) = True Then
 [K3000].End(xlUp).Offset(1, 0).Select
        ActiveCell.Value = Me.Controls("TreeView1").Selected(i)
        
        End If

    Next i
Je pense que je n'utilise pas la bonne méthode, mais je n'arrive pas à trouver ce dont j'ai besoin, une petite piste, un petit bout de code?

D'avance merci

PJ: Mon document de travail
 

Pièces jointes

Dernière édition:
Re : Récupération des données treeview (en case à cocher)

Salut Cypat,

Voici le code qui va bien 😉
Code:
Private Sub CommandButton1_Click()  Dim i As Integer
  Dim k As Integer
  Dim L As Integer
  '-- ecrit le resumé
  Dim Msg As String


  '-- Technique
  For i = 1 To TreeView1.Nodes.Count - 1
    If Me.TreeView1.Nodes(i).Checked = True Then
      Range("K" & Rows.Count).End(xlUp).Offset(1, 0).Value = Me.TreeView1.Nodes(i).Text
    End If
  Next i
  UserForm1.Hide
End Sub

A+
 
- 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

Réponses
4
Affichages
505
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Retour