Définir une propriété par défaut d'une classe personnalisée (VBA)

Bonjour,
Je me souviens avoir fait ça il y a très longtemps mais je cherche à définir une propriété par défaut d'une classe personnalisée (VBA).

Je cherche un peu à faire comme dans la classe Collection qui propose par défaut la propriété Item...

Merci

Bonjour,

Tout d'abord, il faut souligner que VBA ne supporte pas directement la "mise par défaut" d'une propriété dans une classe.
Tu ne peux même pas le faire depuis l'ide...

La démarche :
1- créer son module de classe.
i.e :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Option Explicit   Private cValeur As Long   Property Get Value() As Long Value = cValeur End Property   Property Let Value(v As Long) cValeur = v End Property

---

Pour tester, dans un module, le code suivant va retourner une erreur d'exécution 438 :

Code:

---

1 2 3 4 5 6 7

Option Explicit   Sub test() Dim c As New Classe1 c.Value = 32 Debug.Print c End Sub

---

2- Exporter le module de classe :
-- sélectionner le module dans l'IDE,
-- Fichier/exporter un fichier

3- ouvrir ce fichier avec le bloc notes et y ajouter : Attribute Value.VB_UserMemId = 0, comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Option Explicit   Private cValeur As Long   Property Get Value() As Long Attribute Value.VB_UserMemId = 0 Value = cValeur End Property   Property Let Value(v As Long) cValeur = v End Property

---

4- enregistrer le fichier

5- Importer dans l'IDE (Fichier/Importer)

Refaite le test mentionné au 1-

Bonsoir,

Les modules de classe sont des objets que l'on charge en mémoire avec la méthode New!

New est le constructeur par défaut d la classe, il existe dans tous les langage objet.

Si en .net par exemple il est possible de passer de paramètres dans la méthode New(paramètres) {on appel ça la surcharge de constructeurs} ce n'est pas possible en vba.

En revanche il existe deux évènement lié à la classe que tu peux utiliser pour initialiser et révoquer tes objets!

Code:

---

1 2 3 4 5 6 7 8

Private Sub Class_Initialize() Set mInterface = CreateObject("Scripting.Dictionary") End Sub * * Private Sub Class_Terminate() Set mInterface = Nothing End Sub

---

Je suis désolé du temps mis pour répondre, une absence impromptu m'a obligé à mettre mon activité professionnelle de côté.

En tout cas c'est exactement ça que je recherchais et ça fonctionne nickel.

Merci beaucoup.

P.S. : Effectivement, je connaissais l'opération sur l'IDE Visual Studio pour VB6 !!!

Ce que tu écris est exact mais cela ne répond pas à ma question. Néanmoins ça peut être utile à d'autres qui ne connaissent pas ça (chose que je connaissais et que j'utilise depuis longtemps).