Discussion :

[CEREFX]

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éclarations dans général (les 2 premières lignes) mais je ne sais pas comment faire

Merci pour votre aide

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim tw As MSComctlLib.TreeView
Dim Tbl, n
Private Sub UserForm_Initialize()
 
'Renseigne le TreeView
        With Feuil3
            Tbl = Range("A2:N" & [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
         End With
 
 
'Renseigne la Listbox "Catégorie"
        With Me.Catégorie
            Catégorie.AddItem "Matériau"
            Catégorie.AddItem "Matériel"
            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

Merci Beaucoup

[Invité]

Bonjour,
à ton avis à quoi sert le With?

Code :

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

1
2
With Feuil3
           Tbl = .Range("A2:N" & [A65000].End(xlUp).Row).Value

Bien que dans ton cas il n'est pas très utile, au moins pour ça!

[CEREFX]

Bonjour,
effectivement il ne sert à rien je l'ai rajouté au cas ou... Mais les déclarations sont avant

Code :

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

1
2
Dim tw As MSComctlLib.TreeView
Dim Tbl, n

[Invité]

peut importe car ton astroblème est là!

Code :

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

1
2
With Feuil3
            Tbl = Range("A2:N" & [A65000].End(xlUp).Row).Value

Code :

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

   Tbl = Feuil3.Range("A2:N" & [A65000].End(xlUp).Row).Value

Code :

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

1
2
With Feuil3
            Tbl = .Range("A2:N" & [A65000].End(xlUp).Row).Value

[Marc-L]

Salut !

Robert, pour ton néologisme !



______________________________________________________________________________________________________
Je suis Paris, Charlie, …

[Invité]

salut Marc
oui! si je note pas sa signification, je risque de ne plus me comprendre.

Jean d'Ormesson est de mon avis la langue française est trop fade!

De l'anglais astrobleme, mot inventé par Robert S. Dietz en 1963 composé de ἄστρον, ... L'astroblème caché sous la glace a été révélé indirectement par les ...

mélange d'une faute de frappe en d'un correcteur d’orthographe!