Discussion :

[issoram]

Bonjour le forum,

Je voudrais faire un type de ce style

Code :

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

1
2
3
4
5
6
7
Type Typologie
 
    code As String
    libelle As String
    typoParent As Typologie
 
End Type

mais impossible car références circulaires.

Comment pallier à ce problème? Je suis obligé de passer par les objets?

Merci d'avance. Bonne journée

[fring]

Bonjour,

Création de l'objet personnalisé en tête de module

Code :

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

1
2
3
4
Type Typologie
    code As String
    libelle As String
End Type

Utilisation de cet objet dans une procédure

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim typoParent As Typologie
 
typoParent.code = "xxx"
typoParent.libelle = "zzz"
 
Debug.Print typoParent.code
 
End Sub

Pour plus d'infos --> http://fauconnier.developpez.com/art.../classes/#LIII

[Jean-Philippe André]

salut,

tu peux utiliser une variable qui servira de clé, exemple ID de type Double

Code :

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

1
2
3
4
5
6
Type Typologie
    id As Double
    code As String
    libelle As String
    idParent As Double
End Type

[issoram]

Merci à vous 2.

jpcheck: oui effectivement c'est simple et efficace
fring: je ne pas trop compris ta réponse...

Bonne soirée