Discussion :

[jacou]

Bonjour,

J'ai cherché sur Internet et le forum, je n'ai rien trouvé:

J'aimerai Imprimer les membres d'un Objet Utilisateur, aussi bien ses propriétés que ses méthodes. En PHP il y a la fonction print_r(), y'a-t-il une fonction similaire en VBA ?

Par ailleurs j'ai vu une chose similaire qui est "Explorateur d'Objets" dans les fenêtres "Microsoft Visual Basic", y'a-t-il un moyen pour l'instancier en Code VBA comme suit ?

Code :

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

1
2
3
4
 
dim xobj as object
set xobj = New ObjectBrowser
...

Merci d'avance.

[jacou]

Désolé jpcheck,

J'aimerai exlporer en Code VBA une classe utilisateurs, non une classe définie par Microsoft, donc normalement .Properties n'existe pas.

Tu parles de GetOpenFileName, qui est probalement exlporateur Windows pour lire les noms de fichier, mais nullement adapté pour exlporer les instances des objets de classes utilisateurs.

Fenêtre d'Explorateur d'Objets obtenu par:

\\Microsoft Visual Basic\Affichage\Explorateur d'objets F2

Pour être plus clair, Par exemple simple,

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Type clsMyClassShowOptions
'
' VCD personalize:
'
  lAddress2Usage As Long
  lVcdFormat As Long
End Type
 
global goSO as clsMyClassShowOptions

Le type clsMyClassShowOptions contient .lAddress2Usage et .lVcdFormat, j'aimerai imprimer les valeurs des membres de la variable goSO sans référer à leur nom.

Pour les programmeurs PHP, on a
print_r $goSO;

qui sortira quelque chose comme cà:

Code :

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

1
2
3
4
5
 
$goSO => {
  lAddress2Usage => 1
  lVcdFormat => 2
}

[loufab]

Bonjour Jacou,

La POO avec VBA n'en a que le nom.

Regarde ce sujet (un peu long) mais instructif.

http://www.developpez.net/forums/sho...d.php?t=387202

Espérant que tu y trouveras ton bonheur.

Cordialement,

[jacou]

Merci loufab de ton lien,

C'est bien argumenté dans le fil de discussion, POO VBA est incomplète.

Or ici j'aimerais seulement instancier une classe "Exlorateur d'objets" déjà existante.

[Pierre Fauconnier]

Bonsoir

Merci loufab de ton lien,

C'est bien argumenté dans le fil de discussion, POO VBA est incomplète.

Or ici j'aimerais seulement instancier une classe "Exlorateur d'objets" déjà existante.

Tu souhaites lister les propriétés d'un objet instancié d'une classe perso, ou bien lister les propriétés et méthodes d'une classe perso?

DEuxième solution: Personnellement, je ne pense pas que cela existe en VBA.

Si l'objet personnalisé est créé en VBA, il y a un moyen (tordu, je reconnais...) en scannant les lignes du module de classe via vbcomponents à la recherche des propriétés et méthodes de l'objet, soit pour placer la première ligne de chaque propriété ou méthode "en brut", soit pour la traiter avec plus de "subtilité" de code pour créer un outil plus pro...

[EDIT] Exemple pour EXCEL
Avec la classe suivante

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
Option Explicit
 
Private mNom As String
 
Property Get Nom() As String
    Nom = mNom
End Property
 
Property Let Nom(Nom As String)
    mNom = Nom
End Property
 
Property Get Prenom() As String
    mprenom = Prenom
End Property
 
Property Let Prenom(Prenom As String)
    mprenom = Prenom
End Property
 
Sub Init()
 
End Sub
 
Function RetournerValeur(Par1 As String) As Boolean
 
End Function

appelée MaClasse,
le code suivant

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
Sub DocumenterClasse()
    Dim Ligne As String
    Dim i As Integer
    Dim NbreLignes As Integer
    Dim ChaineLigne As String
 
    NbreLignes = ThisWorkbook.VBProject.VBComponents("maclasse").CodeModule.CountOfLines
    For i = 1 To NbreLignes
        ChaineLigne = ThisWorkbook.VBProject.VBComponents("maclasse").CodeModule.Lines(i, 1)
        If Left(ChaineLigne, 3) = "Sub" Then Debug.Print ChaineLigne
        If Left(ChaineLigne, 12) = "Property Get" Then Debug.Print ChaineLigne
        If Left(ChaineLigne, 12) = "Property Let" Then Debug.Print ChaineLigne
        If Left(ChaineLigne, 8) = "Function" Then Debug.Print ChaineLigne
    Next i
End Sub

donnerait

Property Get Nom() As String
Property Let Nom(Nom As String)
Property Get Prenom() As String
Property Let Prenom(Prenom As String)
Sub Init()
Function RetournerValeur(Par1 As String) As Boolean

dans la fenêtre d'exécution.
[/EDIT]
[EDIT 2]
Avec Access, l'instanciation du vbcomponents est un peu différente, il faut modifier

Code :

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

1
2
 
ThisWorkbook.VBProject

par

Code :

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

1
2
 
Application.VBE.VBProjects("MonProjet")

ou MonProjet représente le nom du projet VBA(!!) tel que renseigné dans la fenêtre des propriétés du projet.
[/EDIT 2]

Cela pourrait-il convenir?

[jacou]

Merci Pierre,

C'est un gros progrès qui donne la possibilité de lister les noms de propriétés et méthodes. Je pense qu'à priori, il me convient. Puisqu'il est tard, je ne vais pas essyer cette nuit en Access, certainement demain soir. Nous préparons à déployer la Noël 2008, donc nous serons très occupés pendant les journées de travail.

Bien Amicalement.