[ARTICLE] Programmez MS GRAPH

[loufab]

Découvrez le nouveau tutoriel d'initiation à la programmation de MS Graph.

http://loufab.developpez.com/tutoriels/access/msgraph1/

[damalaan]

c'est toujours intéressant d'avoir des explications sur MS Graph que je ne trouve pas très facile à manipuler (surtout sous Access);
j'y ai parfois passer des moments un peu tendus !!!!!!!!

Merci pour ce tuto

[lelensois16]

Bonjour,

J'écris ce message un peu tard comparé à la date de publication du tutorial.
Il est très bien rédigé mais il y a une choses que je ne comprends pas ou est-ce que c'est une erreur ?


Dans la partie 3 , vous avez écrit ce code :

Code :

1
2
Dim vlChart As Graph.Chart
Set gChart = Me.Graphique1.Object.Application.Chart

Pourquoi avez vous utilisé la variable gChart au lieu de vlchart ( dans ce cas le programme marche ) .
D'autant plus qu'elle n'est pas déclaré ?

Bien cordialement

Encore désolé si j'ai du faire une erreur de compréhension ...

[toffe25]

Très bon tuto, surtout l'idée d'en faire une classe réutilisable.

D'ailleurs il y a une erreur dans le bonus V-A-2-1.
Il fait remettre le compteur vCol à zéro à un moment donné !

Voici le code corrigé :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub AfficherDataSheet()
    Dim vRow As Integer, vCol As Integer, i As Integer
    Do While True         ' les lignes
        vRow = vRow + 1
        vCol = 0
        Do While True     ' les colonnes
            vCol = vCol + 1
            If IsEmpty(vlDataSheet.Cells(vRow, vCol)) Then Exit Do
            Debug.Print vlDataSheet.Cells(vRow, vCol).Value
        Loop
        If IsEmpty(vlDataSheet.Cells(vRow, 1)) Then Exit Do
    Loop
End Sub

[loufab]

Merci LeLensois16 et toffe25 pour vos remarques. J'ai corrigé.