Problème de lancement avec un TreeView sur un onglet différent

**CEREFX** · 10/02/2016, 22h14

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é · 11/02/2016, 08h42

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** · 11/02/2016, 09h42

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é · 11/02/2016, 15h11

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** · 11/02/2016, 15h15

Salut !

Robert,

pour ton néologisme !

______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Invité · 11/02/2016, 15h20

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!

**CEREFX** · 11/02/2016, 15h51

Bon ok " 1 point " pour toi ..... ou moi, ça dépend comment on se place....

Mais ca n'a résolu qu'une partie du problème, le Treeview se lance effectivement mais ne charge que le premier enfant...

Merci d'avoir essayer, au plaisir

Invité · 11/02/2016, 16h42

Code :

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

1
2
3
4
5
6
7
8
For i = 0 To 25
    père = Chr(65 + i)
    MonArbre.Nodes.Add Text:=père, Key:=père
    For i2 = 1 To 25
        FILS = Format(i2, "000")
        MonArbre.Nodes.Add père, 4, père & "_" & FILS, FILS
    Next
Next

**CEREFX** · 11/02/2016, 20h21

Ouh la c'est en dehors de mon petit champ de compétences

En fait j'ai testé la fonction Ubound et c'est elle qui ne me renvoie pas le bon nombre de ligne. Elle me renvoie le nombre de ligne de l'onglet actif est non pas de la feuil3.

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
42
43
44
45
46
47
48
49
50
51
52
53
54
Private Sub UserForm_Initialize()
'Renseigne le TreeView
        With Feuil3
            tbl = Feuil3.Range("A2:G" & [A65000].End(xlUp).Row).Value
            pere = "0"
            nomPere = Application.VLookup(pere, tbl, 2, False)
            Set tw = Me.MonArbre
            n = UBound(tbl)
            'n = Feuil3.Range("A65000").End(xlUp).Row
            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é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
 
 
Sub Fils(parent)       ' procédure récursive
 
        With Feuil3
            For I = 2 To n
            cd = tbl(I, 1)
            niv = Len(cd) - Len(Replace(cd, ".", ""))
                If niv = 0 Then temp = "0" Else temp = Left(cd, Len(cd) - 2)
                If temp = parent Then
                    tw.Nodes.Add("NoeudMat" & parent, tvwChild, "NoeudMat" & _
                    tbl(I, 1), tbl(I, 1) & " :  " & tbl(I, 2) & "         " & tbl(I, 3)).Expanded = False
                    Fils tbl(I, 1)
                End If
          Next I
        End With
End Sub

J'ai beaucoup de sous sous sous famille, j'ai plusieurs TW dans mon fichier qui sont déjà formaté et j'avais déjà bien avancé sur mon fichier...
Je te remercie donc beaucoup pour ton code, je vais continuer à chercher...

MERCI

Entre parenthèses.. c'est très étrange quand même

Code :

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

1
2
3
4
5
Sub essai3()
Dim tbl
 Tbl = Feuil3.Range("A2:G" & [A65000].End(xlUp).Row).Value
 MsgBox UBound(Tbl)
 End Sub

La réponse est 7 le nombre de ligne présente sur feuil1
!!!

Voila,

Code :

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

1
2
3
4
5
6
7
        tbl = Feuil3.Range("A2:G" & Feuil3.Range("A" & Rows.Count).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

Bonne soirée

Invité · 11/02/2016, 20h56

Comment pourrait elle te renvoyer le nombre de feuille!

Code :

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

1
2
 
            tbl = Feuil3.Range("A2:G" & [A65000].End(xlUp).Row).Value

Accessoirement le nombre de colonnes.

Code :

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

Ubound(tbl,1)

**CEREFX** · 11/02/2016, 21h39

C'est le nombre de ligne que je souhaitais pas de feuille.

Code :

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

1
2
3
4
Sub essai3()
tbl = Feuil3.Range("A2:G" & [A65000].End(xlUp).Row)
MsgBox "il y'a " & UBound(tbl) & " lignes et " & UBound(tbl, 2) & " colonnes dans " & ActiveSheet.Name
End Sub

Pour le nombre de lignes c'est :

Code :

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

UBound(tbl)

est égal à

Code :

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

UBound(tbl, 1)

pour colonnes c'est

Code :

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

UBound(tbl, 2)

LE problème était dans la définition du tableau, la partie souligné

Code :

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

tbl = Feuil3.Range("A2:G" & Feuil3.Range("A" & Rows.Count).End(xlUp).Row).Value

Cordialement

Problème de lancement avec un TreeView sur un onglet différent

Macros et VBA Excel

Discussions similaires

Partager

Partager