Discussion :

[laurentabj]

Bonjour à tous,

Je sèche sur le controle treeview que j'utilise pour la première fois.
Ci-après une procédure que j'ai écrite et qui fonctionnait parfaitement jusqu'à aujourd'hui.

Je subis une erreur 13 (incompatibilité de type) sur le 4e ligne :

Code :

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

Set tw = Me.TreeView2

La procédure entière :

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
 
Dim tw As MSComctlLib.TreeView
 
Private Sub UserForm_Initialize()
 
 
Dim i As Byte, J As Byte, s As String, F As Byte, G As Byte
 
 
Set tw = Me.TreeView2
 
tw.Nodes.Clear
 
With tw
    'Noeud parent
    .Nodes.Add , , "Niveau 1", "Mixed pallet recev. with RF, put away in bulk"
    Set ObjNoeud = .Nodes("Niveau 1")
    ObjNoeud.Bold = True
 
 
    For i = 1 To 13 ' Noeud enfant niveau 1
        .Nodes.Add "Niveau 1", tvwChild, "Niveau 1" & i, Worksheets("OPSEQUENCES").Cells(254 + i, 4)
    Next i
 
    For F = 1 To 8
    Set ObjNoeud = .Nodes.Add("Niveau 12", tvwChild, "Niveau 12" & F, Worksheets("OPTASK").Cells(220 + F, 6))
    ObjNoeud.ForeColor = &HB08050
    Next F
 
End With
 
For i = 1 To TreeView1.Nodes.Count
    TreeView1.Nodes.Item(i).Expanded = True
Next
 
Set ObjNoeud = Nothing
 
End Sub

Avez-vous une idée ?

Merci d'avance,
Laurent

[Gorfael]

Salut laurentabj et le forum

Je sèche sur le controle treeview que j'utilise pour la première fois.
Ci-après une procédure que j'ai écrite et qui fonctionnait parfaitement jusqu'à aujourd'hui.

Pas sûr de comprendre : tu l'utilises pour la première fois, et ça marchais avant ? Quand tu ne l'utilisais pas ?

Code :

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

1
2
3
Dim tw As MSComctlLib.TreeView
'..... 
Set tw = Me.TreeView2

Je ne connais pas TreeView, mais si tu as réussit à le mettre sur un USF, c'est peut-être devenu autre chose qu'un MSComctlLib. peut-être un contrôle ou un ActiveX ?
Faire un test avec TypeName ou VarType permettra peut-être de le préciser (que de peut-être!!! )
A+

[laurentabj]

Excusez ma réponse tardive, mais j'ai dû m'absenter pendant quelques temps...

Merci Gorfael pour ta réponse.

D'après ce que je crois savoir, le treeview est bien un contrôle activeX qui est fourni par la bibliothèque MSComctlLib.

Les tests suivants dans la fenêtre d'exécution me renvoient la même erreur 13 !

Code :

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

debug.Print TypeName(frmProcCustomization.TreProcCustomizationProcess)

Code :

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

debug.Print VarType(frmProcCustomization.TreProcCustomizationProcess)

[laurentabj]

Pour repréciser ma question et faire très simple, quel est le mystère suivant ??!


Mon code :

Code :

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

1
2
3
4
5
6
Private Sub UserForm_initialize()
 
Dim tw As TreeView
Dim i As Byte, J As Byte, s As String, F As Byte, G As Byte
 
Set tw = Me.TreProcCustomizationProcess

Erreur 13 sur le Set !


Le code de SilkyRoad qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim Tw As TreeView
Dim Base
Dim n As Integer, i As Integer, Nd As Integer
Dim Depart(1 To 20)
Dim twNode As Node
 
Set Tw = Me.MonArbre2

[Pierre Fauconnier]

Bonjour

Sans aller plus loin pour l'instant:
Quand ça fonctionnait et que cela ne fonctionne plus, c'est assez souvent qu'il y a eu une modification de logiciel sur le pc:

• Changement de version
• Installation d'un nouveau logiciel
• Désinstallation d'un logiciel
• ...

Te retrouves-tu dans une de ces situations?

[laurentabj]

Bonjour Pierre et merci pour ta réponse,

je ne pense pas avoir desinstallé/installé de logiciel entre-temps.

De plus, concernant les 2 bouts de code que j'ai posté à 12h11 : l'un fonctionne, et pas l'autre ! La seule différence est qu'il n'appartiennent pas au même classeur.
A part ça, la syntaxe est équivalente non ?

J'ai pensé que les bibliothèques chargées étaient peut être différentes, mais même en cochant les même bibliothèques, je rencontre le même problème....

Autre point que je viens de noter et qu'il me parait important de souligner :

Les propriétés du treeview de slkyroad contiennent une propriété "(personnalisé)" qui n'existe pas sur mon propre treeview.

Pourtant la propriété (A propos de) des 2 treeview renvoient toutes les deux : "Tree View ActiveX control - version 6.0 (SP6)"

Comment 2 contrôles identiques peuvent présenter des listes de propriétés différentes ?

[laurentabj]

Au risque de passer pour un soliloque, je poste quand même une solution qui m'a permis de contourner le problème (à défaut de le comprendre...)

J'ai copié le contrôle treeview d'un autre projet qui fonctionnait (celui de SilkyRoad) dans mon userForm, et je l'ai renommé du nom de mon ancien treeview.
Et là tout fonctionne !

Le problème semble donc bien lié à la disparition de la propriété (personnalisé) du contrôle.

Mais pourquoi celle-ci avait-elle disparue ? le mystère reste entier....