Ajout sur un graphique d'un controle vertical

Le 03/12/2007 à 15:03

bonjour, je réalise un graphique ayant une échelle de temps en abscisse. Je souhaite pouvoir indiquer graphiquement par une barre en pointillé la derniere date de mise à jour.

Mon echelle de temps est présente dans mon jeu de données. Les données de références vont du début à la fin de léchelle de temps. Par contre les données qui évoluent au fur et à mesure du temps doivent avoir come indicateur graphique un trait en pointillé vertical se calant sur la date de mise à jour.

J'utilise comme type de graphique => xlXYScatterSmooth

PS: J'ai également besoin d'insérer une bissectrice dans mon graphique.

Merci beaucoup d'avance pour votre aide!

Le 03/12/2007 à 15:38

Bonjour

peut tu mettre un exemple de ce que tu a réalisé afin de répondre exactement à ton soucis, ce que tu demande n'est pas très difficile à faire lorsque l'on a un exemple sous les yeux

Le 03/12/2007 à 15:50

Merci !

Bon je te préviens ca ne volle pas haut , j'ai commencé ce midi et doit aujourd'hui , donc j'ai pas le temps de faire ca le plus proprement possible .....

Voila les données :

Référence 0 0,1 0,2 0,3 0,4 0,5 0,6 0,65 0,7 0,75 0,8 0,9 1

Données 0 0,1 0,2 0,3 0,45 0,5 0,55 0,6 0,7 0,8 0,88

Temps 10/9/07 1/10/07 1/11/07 1/12/07 1/1/08 1/2/08 1/3/08 1/4/08 1/5/08 1/6/08 1/7/08 1/8/08 1/9/08

Voila le code qui me permet de générer le graphique :

Dim Grph As ChartObject

    Worksheets("Feuil2").ChartObjects.Delete
    Application.ScreenUpdating = False
    With Charts.Add
        .Name = "Graphique 1"
        .ChartType = xlXYScatterSmooth
        .SetSourceData Source:=Sheets("Feuil2").Range("C21")
        .SeriesCollection.NewSeries
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = "=Feuil2!R8C3:R8C15"
        .SeriesCollection(1).Values = "=Feuil2!R6C3:R6C15"
        .SeriesCollection(1).Name = "=""Ref"""
        .SeriesCollection(2).XValues = "=Feuil2!R8C3:R8C15"
        .SeriesCollection(2).Values = "=Feuil2!R7C3:R7C15"
        .SeriesCollection(2).Name = "=""Avancement"""
        .HasTitle = True
        .ChartTitle.Characters.Text = "Courbe en S"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .Location Where:=xlLocationAsObject, Name:="Feuil2"
    End With

    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScaleIsAuto = True
        .MaximumScale = 1
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With

En gros ce que je voudrais c'est afficher un trait vertical en pointillé faisant la taille de l'axe des ordonnées a l'endroit de la derniere mise à jour, dans ce cas précis => 1/7/08

, derniere date contenant une valeur.

Je sais que j'en demande beaucoup, je n'ai pas l'habitude de faire ca....

Merci !!

Le 03/12/2007 à 17:08

Bonsoir

Regarde ce fichie, la structure devrais te permettre de faire ce que tu souhaite

https://www.excel-pratique.com/~files/doc/Gjalon.zip

Le 03/12/2007 à 17:22

Salut le forum

Un début de solution, basé sur ta macro

GraphiqueJalon

Mytå