Bonjour le forum!!!! je viens vers vous car j'ai un probleme avec un treeview, j'ai un treeview avec deux niveaux et j'aimérais ajouter un autre niveau et je n'arrive pas je ne sais pas pour quoi
SVP si quelqu'un ici peut m'aider!!!!!
je joins mon fichier
PS: ce code m'a été fourni par Hasco qui m'a beaucoup aidé.
J'espere vos reponses!! merci, je ovus met le code car mon fichier est trop grand et j'ai ne pas .zip seulement .rar
portillo
voila mon code
Private Sub Fermer_Click()
Unload Me
End Sub
Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)
If Not Node.parent Is Nothing Then
indicematricule = Sheets("ALGE").Cells(Range(Node.Key).Row, 8)
codematricule = Sheets("ALGE").Cells(Range(Node.Key).Row, 7)
codepoint = Sheets("ALGE").Cells(Range(Node.Key).Row, 5)
End If
End Sub
Private Sub UserForm_Initialize()
Dim Pere As String
Dim c As Range
Dim DarLignes As Long
Dim d As Range
DarLignes = Sheets("ALGE").Range("B900").End(xlDown).Row
'Ce placer sur la première ligne, deuxieme colonne
Set c = Range("BDALGE")(1, 2)
Do
'L'ajouter en tant que Pere
Pere = c.Text
MonArbre.Nodes.Add(, , Pere, Pere).Expanded = False
' mais aussi en tant que fils (premier numéro de register)
AjouteFIls Pere, c
' se positionner à la ligne suivante
Set c = c.Offset(1)
Do
'Si c'est un fils on l'ajoute
If c.Text = Pere Then
AjouteFIls Pere, c
Set c = c.Offset(1)
Else
Exit Do 'sinon sortir de la boucle
End If
Loop While c.Text = Pere 'Boucler tant qu'on est sur le même pere
Loop While Not c.Text = "" 'boucler jusqu'à la première cellule vide
End Sub
Sub AjouteFIls(Pere As String, cellule As Range)
Fils = cellule.Offset(, 1)
On Error Resume Next
MonArbre.Nodes.Add(Pere, tvwChild, cellule.Offset(, 1).Address, cellule.Offset(, 1).Text).Expanded = True
End Sub
Sub Ajoutefils2(AjouteFIls As String, cellule As Range)
fils2 = cellule.Offset(, 1)
On Error Resume Next
MonArbre.Nodes.Add("AjouteFIls" & Pere, tvwChild, "AjouteFIls" & cellule.Offset(, 1).Address, cellule.Offset(, 1).Text).Expanded = True
End Sub
SVP si quelqu'un ici peut m'aider!!!!!
je joins mon fichier
PS: ce code m'a été fourni par Hasco qui m'a beaucoup aidé.
J'espere vos reponses!! merci, je ovus met le code car mon fichier est trop grand et j'ai ne pas .zip seulement .rar
portillo
voila mon code
Private Sub Fermer_Click()
Unload Me
End Sub
Private Sub MonArbre_NodeClick(ByVal Node As MSComctlLib.Node)
If Not Node.parent Is Nothing Then
indicematricule = Sheets("ALGE").Cells(Range(Node.Key).Row, 8)
codematricule = Sheets("ALGE").Cells(Range(Node.Key).Row, 7)
codepoint = Sheets("ALGE").Cells(Range(Node.Key).Row, 5)
End If
End Sub
Private Sub UserForm_Initialize()
Dim Pere As String
Dim c As Range
Dim DarLignes As Long
Dim d As Range
DarLignes = Sheets("ALGE").Range("B900").End(xlDown).Row
'Ce placer sur la première ligne, deuxieme colonne
Set c = Range("BDALGE")(1, 2)
Do
'L'ajouter en tant que Pere
Pere = c.Text
MonArbre.Nodes.Add(, , Pere, Pere).Expanded = False
' mais aussi en tant que fils (premier numéro de register)
AjouteFIls Pere, c
' se positionner à la ligne suivante
Set c = c.Offset(1)
Do
'Si c'est un fils on l'ajoute
If c.Text = Pere Then
AjouteFIls Pere, c
Set c = c.Offset(1)
Else
Exit Do 'sinon sortir de la boucle
End If
Loop While c.Text = Pere 'Boucler tant qu'on est sur le même pere
Loop While Not c.Text = "" 'boucler jusqu'à la première cellule vide
End Sub
Sub AjouteFIls(Pere As String, cellule As Range)
Fils = cellule.Offset(, 1)
On Error Resume Next
MonArbre.Nodes.Add(Pere, tvwChild, cellule.Offset(, 1).Address, cellule.Offset(, 1).Text).Expanded = True
End Sub
Sub Ajoutefils2(AjouteFIls As String, cellule As Range)
fils2 = cellule.Offset(, 1)
On Error Resume Next
MonArbre.Nodes.Add("AjouteFIls" & Pere, tvwChild, "AjouteFIls" & cellule.Offset(, 1).Address, cellule.Offset(, 1).Text).Expanded = True
End Sub
