[AC-2000] Bug sur un tuto [Résolu]

[aA189]

Bonjour , j’aie besoin de votre aide pour débugguer un tuto de développez.com,
Voici le lien du tuto
http://loufab.developpez.com/tutoriels/access/msgraph1/

Dans ce tuto j’aie été surpris de trouvé 2 occurrences de la variable gchart dont je ne vois pas la déclaration dans le code .Soit il manque quelque chose soit c’est une faute de frappe entre vlChart et gChart …

Au final je ne parviens pas à charger l’événement Form_Load lorsque je double -clique sur le formulaire contenant mon graphique*; j’obtiens le message d’erreur suivant

L’expression sur chargement entrée comme paramètre de la propriété de type événement est à l’origine d’une erreur .Type défini par l’utilisateur, non défini .

Dans le formulaire j’aie

Code :

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
Option Explicit
 
Dim vGraph As New ClassGraph
 
Private Sub Form_Load()
vGraph.Initialiser Me.Graphique1
End Sub
Private Sub BtnModifier_Click()
vGraph.pTitrePrincipal = Me.txtTitre 'passe le titre à la propriété
End Sub

Dans le module de classe j’aie

Code :

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
Option Compare Database
 
Option Explicit
Dim vlChart As Graph.Chart
Dim vlTitrePrincipal As String
 
 
Private Sub Class_Initialize()
' rien
End Sub
Private Sub Class_Terminate()
' Suppression de l'objet
Set vlChart = Nothing ' libère le graphique
End Sub
 
Public Sub Initialiser(vControlGraph As Control)
Set vlChart = vControlGraph.Object.Application.Chart
End Sub
 
Public Property Let pTitrePrincipal(vTitre As Variant)
vlTitrePrincipal = Nz(vTitre, "") ' enregistre le titre
AfficherTitrePrincipal
End Property
 
Private Sub AfficherTitrePrincipal()
' affiche/supprime le titre
vlChart.HasTitle = (Len(vlTitrePrincipal) > 0) 'vrai si contient qq chose
If gChart.HasTitle Then
   vlChart.ChartTitle.Text = vlTitrePrincipal
End If
 
End Sub

[aA189]

Laissez tomber j’aie trouver mon bug …

Dim vGraph As New ClassGraph
Et mon module de Classe etait nommé ClasseGraph

D’ou un message d’erreur totalement farfelu . (cela m’apprendra à copier coller betement le code du tuto)

En revanche gChart dans le tuto me paraît bel et bien erroné .