Discussion :

[lbar012001]

Bonjour,
Après de longues recherches infructueuses, je vous expose mon problème.
J'ai un graphique simple composé d'une courbe avec en abscisses 12 mois et en ordonnées une valeur quelconque.
Je souhaiterai que les 3 derniers segments de ma 2 courbe soient affichés en pointillés en non en trait continu, mais pas de façon permanente d'ou la nécessité de passer via VBA.
Je n'arrive pas à manipuler les objets seriescollection() et points() correctement, dans le genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
for each graph
    for each seriescollection
        for each point/segment
            if dans les 3 derniers alors
                pointillé
            else
                continu
            endif
        next point/segment
    next serie
next graph

Merci pour votre aide
Laurent

[lbar012001]

J'ai un peu avancé.
J'arrive à faire en sorte d'afficher ma courbe en noir et les 3 derniers segments en vert.
Je n'arrive toujours pas à mettre les 3 derniers segments (10 à 12) en pointillé, la constante xlDash m'efface mon segment vert
Si vous avez une idée, je me fiche de la couleur en fait, ce que je souhaite, c'est pouvoir mettre des pointillés sur les 3 derniers segments uniquement.
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
GraphObj.SeriesCollection(1).Border.Color = vbBlack
 
With GraphObj.SeriesCollection(1).Points(10)
    .Border.Color = vbGreen
    .Border.LineStyle = xlDash
End With
With GraphObj.SeriesCollection(1).Points(11)
    .Border.Color = vbGreen
    .Border.LineStyle = xlDash
End With
With GraphObj.SeriesCollection(1).Points(12)
    .Border.Color = vbGreen
    .Border.LineStyle = xlDash
End With

[micniv]

Bonjour ,
Tu ne dois pas être très loin de ta solution,
car je viens de faire un essai en Access 2003 (SP3) avec le code

Code :

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

1
2
3
4
5
6
7
8
9
 
Set oChart = o1Chart.Object         
 
 For i = 5 To 10
          With oChart.SeriesCollection(1).Points(i)
           .Border.Color = vbBlue
           .Border.LineStyle = xlDash
        End With
  Next i

.. et j'obtiens bien des pointillés bleus
mais bien regarder les déclarations et peut-être à vérifier selon les version et patches d'Access

[lbar012001]

Merci, en effet je ne dois pas être loin mais je n'y arrive toujours pas, je continue de chercher.

Pour compléter

- Je suis en section Print de mon état
- J'ai juste la déclaration

Code :

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

Dim graphObj As Object

- Ensuite j'ai des instructions liées à mes échelles graphiques
- Et ensuite le code tel que décrit auparavant

- Et ça ne marche pas hélas.
- Je suis en format de fichier Access 2002/2003 et SP3
- Si je ne met que la couleur, j'ai bien la couleur sur mes segments, en traits continus.
- Si je rajoute le linestyle, je n'ai plus de traits (juste les marqueurs en fait, plus de lignes)

PS : j'ai parcouru pas mal de tes posts lors de mes recherches et y ai trouvé des infos vraiment intéressantes coté graphiques, tu as du bien plancher sur le sujet !

[micniv]

Salut ,
Je ne savais pas que c'était dans un état (et non dans un form)
alors c'est dans l'évt Formatage (et non Impression) de la section de ton graphe qu'il faut insérer ton code.

Bonne continuation

PS : Effectivement, je pourrais comptabiliser un certains nombre de jours passés sur les courbes, mais qd on aime ... on ne compte pas !

[lbar012001]

Re,
Je ne voudrais point te contredire mais le résultat ne change pas en m'y prenant ainsi.
(la partie du code qui gère mes échelles graphiques est elle en év. Print et ça marche très bien, je l'ai ramené en év. format, ça marche toujours bien aussi)
Curieux...je vais chercher encore, encore merci pour tes conseils, je vais bien finir par y arriver !

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
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
Dim graphobj2 As Object
Set graphobj2 = Me.g4
 
graphobj2.SeriesCollection(1).Border.Color = vbBlack
 
With graphobj2.SeriesCollection(1).Points(10)
    .Border.Color = vbGreen
    .Border.LineStyle = xlDash
End With
 
With graphobj2.SeriesCollection(1).Points(11)
    .Border.Color = vbGreen
    .Border.LineStyle = xlDash
End With
 
With graphobj2.SeriesCollection(1).Points(12)
    .Border.Color = vbGreen
    .Border.LineStyle = xlDash
End With
 
End Sub