IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

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


Sujet :

VBA

  1. #1
    Membre habitué
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2010
    Messages
    185
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2010
    Messages : 185
    Points : 167
    Points
    167
    Par défaut 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

  2. #2
    Membre émérite
    Avatar de pijaku
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    1 814
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Août 2010
    Messages : 1 814
    Points : 2 948
    Points
    2 948
    Billets dans le blog
    10
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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-
    Cordialement,
    Franck

  3. #3
    Invité
    Invité(e)
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  4. #4
    Membre habitué
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2010
    Messages
    185
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2010
    Messages : 185
    Points : 167
    Points
    167
    Par défaut Merci Pijaku
    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 !!!

  5. #5
    Membre habitué
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Novembre 2010
    Messages
    185
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Conseil

    Informations forums :
    Inscription : Novembre 2010
    Messages : 185
    Points : 167
    Points
    167
    Par défaut @ dysorthographie
    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).

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Débutant] Définir une valeur par défaut d'une propriété
    Par Rainui dans le forum VB.NET
    Réponses: 15
    Dernier message: 10/01/2013, 23h58
  2. Réponses: 14
    Dernier message: 23/04/2012, 23h32
  3. Réponses: 3
    Dernier message: 22/08/2010, 18h40
  4. Réponses: 6
    Dernier message: 17/05/2010, 22h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo