OVH Cloud OVH Cloud

Problème d'axes

5 réponses
Avatar
Xavier Kaécouter
Bonjour,

Voici mon problème :

Comment obtenir un graphique, avec comme axe des abscisses les dates et
celle des ordonnées les notes.
Tout en sachant qu'apparaîtra sur le graphique la zone pour chaque note.

Est-ce clair ?

Merci d'avance.


Date Note Zone
28/02/2006 74 Ligne 6
01/03/2006 73 Ligne 3
09/03/2006 71 Imp 9
15/03/2006 68 Transv 1

5 réponses

Avatar
Francois
Bonjour,

Voici mon problème :

Comment obtenir un graphique, avec comme axe des abscisses les dates et
celle des ordonnées les notes.
Tout en sachant qu'apparaîtra sur le graphique la zone pour chaque note.

Est-ce clair ?



Bonsoir,

Clair ? Pas complètement pour moi !

Est-ce que c'est cela que tu veux ?
http://cjoint.com/?dusApIMChl

Si oui, regardes la macro "zone", si non, reviens le dire ici.

--
François L

Avatar
Xavier Kaécouter
Bonjour,

Merci pour votre réponse.
C'est le résultat que j'espérais !

Pouvez vous m'expliquer cette macro ?

Cordialement

Xavier

"Francois" a écrit dans le message de news:

Bonjour,

Voici mon problème :

Comment obtenir un graphique, avec comme axe des abscisses les dates et
celle des ordonnées les notes.
Tout en sachant qu'apparaîtra sur le graphique la zone pour chaque note.

Est-ce clair ?



Bonsoir,

Clair ? Pas complètement pour moi !

Est-ce que c'est cela que tu veux ?
http://cjoint.com/?dusApIMChl

Si oui, regardes la macro "zone", si non, reviens le dire ici.

--
François L



Avatar
Xavier Kaécouter
Je viens de m'apercevoir que sur le graphique que les dates ne correspondent
pas au tableau de données et qu'elles ne sont "alignées" par rapport à
celles-ci !

Peux-tu m'expliquer ?

Merci

Xavier


"Francois" a écrit dans le message de news:

Bonjour,

Voici mon problème :

Comment obtenir un graphique, avec comme axe des abscisses les dates et
celle des ordonnées les notes.
Tout en sachant qu'apparaîtra sur le graphique la zone pour chaque note.

Est-ce clair ?



Bonsoir,

Clair ? Pas complètement pour moi !

Est-ce que c'est cela que tu veux ?
http://cjoint.com/?dusApIMChl

Si oui, regardes la macro "zone", si non, reviens le dire ici.

--
François L



Avatar
Xavier Kaécouter
En Français, cela sera un peu plus lisible !

Je viens de m'apercevoir que sur le graphique, les dates ne correspondent
pas au tableau de données et qu'elles ne sont pas "alignées" par rapport à
celles-ci !

Peux-tu m'expliquer ?

Merci

Xavier

"Xavier Kaécouter" a écrit dans le
message de news:
Je viens de m'apercevoir que sur le graphique que les dates ne
correspondent

pas au tableau de données et qu'elles ne sont "alignées" par rapport à
celles-ci !

Peux-tu m'expliquer ?

Merci

Xavier


"Francois" a écrit dans le message de news:

Bonjour,

Voici mon problème :

Comment obtenir un graphique, avec comme axe des abscisses les dates
et



celle des ordonnées les notes.
Tout en sachant qu'apparaîtra sur le graphique la zone pour chaque
note.




Est-ce clair ?



Bonsoir,

Clair ? Pas complètement pour moi !

Est-ce que c'est cela que tu veux ?
http://cjoint.com/?dusApIMChl

Si oui, regardes la macro "zone", si non, reviens le dire ici.

--
François L







Avatar
Francois
En Français, cela sera un peu plus lisible !

Je viens de m'apercevoir que sur le graphique, les dates ne correspondent
pas au tableau de données et qu'elles ne sont pas "alignées" par rapport à
celles-ci !




Bonsoir,

Réponse en bloc aux différentes questions.

1 Si, si les dates sont bien alignées par rapport à l'axe X. Pour le
vérifier, il suffit de choisir 1 comme unité principale de l'axe X, de
tracer le quadrillage vertical et tu constateras que chaque point est
bien positionné selon la date contenue dans la colonne A.

2 La macro (commentaires avant chaque ligne d'instruction)
Sub zone()
' la ligne qui suit crée une boucle de 1 au nombre de points de la série
' de donnée (ici la série 1 puisqu'il n'y en a qu'une).
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count

' Pour chaque point de la série de donnée (indice i)
With ActiveChart.SeriesCollection(1).Points(i)

' Crée une étiquette de donnée
.HasDataLabel = True

' Affecte la valeur de la cellule C2 au point 1, C3 au point 2 etc.
.DataLabel.Text = Range("C" & i + 1).Value

' End with est indispensable pour terminer une instruction With
End With

' Incrémente i de 1
Next i

End Sub

Pour que la macro fonctionne, il faut que le graphique existe et soit
sélectionné

--
François L