Discussion :

[WilliamH]

Bonjour à tous,

J'essaie de me lancer dans l'écriture de classes personnalisées sur VBA Excel. Désolé pour le manque de vocabulaire sur le sujet. J'ai besoin de créer une liste chaînée personnalisée qui va contenir des noeuds d'une classe personnalisée également.

Je vous présente un exemple minimaliste de mon problème. Voici les deux classes (une pour la liste chaînée et une pour les noeuds). Je ne souhaite pas de curseur dans la classe "Chaine" (variante "xCourant" par exemple) et je souhaite utiliser une méthode "initialise" dans la classe "Chaine" qui va initialiser une longue chaine de noeuds grâce à une boucle.

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
'Classe Chaine
Option Base 1
 
'---------------------------------------------Variables------------------------------------------------------
Private xPremier As Noeud
 
'--------------------------------------------Propriétés------------------------------------------------------
Property Get Premier() As Noeud
    Set Premier = xPremier
End Property
Property Let Premier(newPremier As Noeud)
    Set xPremier = newPremier
End Property
 
'----------------------------------------------Méthodes-------------------------------------------------------
Sub initialise()
    'Initialisation de liste
    Dim tmp As New Noeud
    tmp.Valeur = 1
    Set xPremier = tmp
    Dim i As Integer
    For i = 2 To 5 'valid
        tmp.Suivant = New Noeud
        tmp.Suivant.Valeur = i
        Set tmp = tmp.Suivant
    Next i
 
    'Parcours de liste (pour vérification ici)
    Set tmp = xPremier
    Do While Not tmp Is Nothing 'doit s'arrêter lorsque les 5 noeuds sont parcourus
        MsgBox "Valeur: " & tmp.Valeur
        Set tmp = tmp.Suivant
    Loop
End Sub

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
'Classe Noeud
Option Base 1
 
'---------------------------------------------Variables------------------------------------------------------
Private xValeur As Integer
Private xSuivant As Noeud
 
'--------------------------------------------Propriété------------------------------------------------------
Property Get Valeur() As Integer
    Valeur = xValeur
End Property
Property Let Valeur(newValeur As Integer)
    xValeur = newValeur
End Property
 
Property Get Suivant() As Noeud
    Set Suivant = xSuivant
End Property
Property Let Suivant(newSuivant As Noeud)
    Set xSuivant = newSuivant
End Property

Code :

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

1
2
3
4
5
'Macro à exécuter
Sub main()
    Dim chaine1 As New chaine
    chaine1.initialise
End Sub

Le code que je vous présente lance une boucle infini. Je comprends que le problème vient de l'utilisation d'une unique variable temporelle (instance de classe "Noeud") qui créer une chaîne d'un seul maillon qui se mord la queue.

Jusqu'ici je m'en suis toujours sorti avec les questions posées par d'autres utilisateurs mais là je sèche complétement.

Merci d'avance pour votre aide.

EDIT: Correction de la propriété "Valeur" (merci à Philippe)

[Philippe PONS]

Salut,

tu peux t'aider de ce lien:
https://support.microsoft.com/en-us/kb/166394
Cordialement,

[WilliamH]

Bonjour,

Merci pour le lien. Je suis rassurer de voir que ma solution était déjà très proche. Par contre j'ai toujours le même problème.

Je remarque qu'au lieu de définir une propriété sur la variante private "xSuivant", le lien que tu m'as donné préfère lire et écrire directement sur "xSuivant" (variante public). J'ai fait la modification et la adaptation qui s'imposaient mais le problèem reste le même. La MsgBox me renvoie "Valeur: 0" alors qu'à chaque fois qu'un noeud nommé "tmp" est recréé, il reçoit tout de suite une valeur différente de 0.. Etrange.

Merci tout de même pour ce lien qui m'aidera sûrement plus tard.

Cordialement.

[Philippe PONS]

Je crois que dans ta classe Noeud, il y a une petite erreur
quand tu affectes une valeur.
Essaie ça:

Code :

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

1
2
3
4
Property Let Valeur(newValeur As Integer)
    'xValeur = Valeur
    xValeur = newValeur
End Property

[WilliamH]

Ah oui je suis allé un peu vite pour créer mon exemple minimaliste.

Je suis content. Je me rends compte que mes nœuds sont parcourus. Mais après le cinquième nœud, la boucle continue sans s’arrêter et affiche "Valeur: 0"

Le problème semble venir des instructions de la forme "Set noeud2 = noeud1.xSuivant" qui déclare un nœud non vide alors que noeud1.xSuivant l'est.

Merci encore.
William

[WilliamH]

J'ai fini par trouver une solution qui me convient en terme de visibilité, avec :
- une boucle d'écriture qui commence sur le premier nœud et non le deuxième
- une boucle de lecture avec une condition de fin de boucle intuitive, qui ne génère pas d'erreur quand la liste est vide

Le défaut c'est qu'on crée en fin de liste un nœud fictif qui n'est pas destiné à être parcouru en lecture.

Pour information, la version corrigée :

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
'Classe Chaine
Option Base 1
 
'---------------------------------------------Variables------------------------------------------------------
Public xPremier As Noeud
 
'----------------------------------------------Méthodes-------------------------------------------------------
Sub initialise()
    'Initialisation de liste
    Dim tmp As New Noeud
    Set xPremier = tmp
    Dim i As Integer
    For i = 1 To 5 'valid
        tmp.Valeur = i
        Set tmp.xSuivant = New Noeud
        Set tmp = tmp.xSuivant
    Next i
 
    'Parcours de liste (pour vérification ici: un modèle de parcours de liste)
    Set tmp = xPremier
    While Not tmp.xSuivant Is Nothing
        MsgBox "Valeur: " & tmp.Valeur
        Set tmp = tmp.xSuivant
    Wend
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Classe Noeud
Option Base 1
 
'---------------------------------------------Variables------------------------------------------------------
Private xValeur As Integer
Public xSuivant As Noeud
 
'--------------------------------------------Propriété------------------------------------------------------
Property Get Valeur() As Integer
    Valeur = xValeur
End Property
Property Let Valeur(newValeur As Integer)
    xValeur = newValeur
End Property

Code :

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

1
2
3
4
Sub main()
    Dim chaine1 As New chaine
    chaine1.initialise
End Sub

Merci encore à Philippe pour son aide.