Bonsoir à tous et avant tout un grand merci à tous ceux qui prenne le temps de nous répondre, je fais mes premier pas avec le VBA en fouinant et en compilant... mais la je suis tombé sur un os et je ne trouve pas.
J'ai un TreeView dans un usf qui marche parfaitement et que j'arrive à exploiter mais le problème et que je ne peux pas le lancer si je ne suis pas dans l'onglet ou se situe mes données.
Mes données sont sur feuil3 et je voudrai pouvoir le lancer lorsque je suis sur feuil4
Le problème doit venir des déclaration dans général mais je ne sais pas comment faire
Merci pour votre aide
J'ai un TreeView dans un usf qui marche parfaitement et que j'arrive à exploiter mais le problème et que je ne peux pas le lancer si je ne suis pas dans l'onglet ou se situe mes données.
Mes données sont sur feuil3 et je voudrai pouvoir le lancer lorsque je suis sur feuil4
Le problème doit venir des déclaration dans général mais je ne sais pas comment faire
Merci pour votre aide
Code:
Dim tw As MSComctlLib.TreeView
Dim Tbl, n
Private Sub UserForm_Initialize()
'Renseigne le TreeView
Tbl = Range("A2:G" & [A65000].End(xlUp).Row).Value
pere = "0"
nomPere = Application.VLookup(pere, Tbl, 2, False)
Set tw = Me.MonArbre
n = UBound(Tbl)
tw.Nodes.Add(, , "NoeudMat" & pere, nomPere).Expanded = False ' Racine arbre
Fils pere
'Renseigne la Listbox "Catégorie"
With Me.Catégorie
Catégorie.AddItem "Matériaux"
Catégorie.AddItem "Matériels"
Catégorie.AddItem "Main d'Oeuvre"
End With
'Renseigne la Listbox "Unité"
With Me.Unité
t = Feuil3.Range("P2:P" & Range("P65536").End(xlUp).Row)
Unité.List = t
End With
'Met le focus sur le Textbox
With Code2
.SetFocus
.SelStart = 0
.SelLength = Len(Code2.Text)
End With
Code2.AutoTab = True
End Sub