Graphique en timeline

[pepsi]

Bonjour le forum
j 'essaye de mettre en forme un graphique de type timeline pour afficher des dates de projets.


J'ai annoté mon fichier qui présente des incohérences d'affichage de données.

Si quelqu'un peut regarder et corriger l'affichage ...

Merci d'avance

 

[Modeste geedee]

Re : Graphique en timeline

Bonsour®
utiliser un graphique en nuage de points ...
puis utiliser l'add-in suivant pour afficher les etiquettes souhaitées
The XY Chart Labeler Add-in

 

[CISCO]

Re : Graphique en timeline

Bonjour

Il te suffit de trier ta première colonne par ordre croissant (Données, Trier, AZ).

@ plus

 

[Modeste geedee]

Re : Graphique en timeline

Bonsour®

sans add-in , mais une macro :
http://support.microsoft.com/kb/213750

Sub AttachLabelsToPoints()

   'Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String

   ' Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False

   'Store the formula for the first series in "xVals".
   xVals = ActiveChart.SeriesCollection(1).Formula

   'Extract the range for the data from xVals.
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop

   'Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
         True
      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
   Next Counter

End Sub

 

[pepsi]

Re : Graphique en timeline

Bonsour®

sans add-in , mais une macro :
How to use a macro to add labels to data points in an xy scatter chart or in a bubble chart in Excel

Sub AttachLabelsToPoints()

   'Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String

   ' Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False

   'Store the formula for the first series in "xVals".
   xVals = ActiveChart.SeriesCollection(1).Formula

   'Extract the range for the data from xVals.
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop

   'Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
         True
      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
   Next Counter

End Sub

Merci pour ta réponse mais le code je le mets ou ?
il faut qu'il s'exécute à l'ouverture de fichier ?

 

[Modeste geedee]

Re : Graphique en timeline

Bonsour®
les explications et le pourquoi sont fournies dans le lien !!!!
How to use a macro to add labels to data points in an xy scatter chart or in a bubble chart in Excel


sinon utiliser le Add-in précédemment cité...

 

[Modeste geedee]

Re : Graphique en timeline

Bonsour®
ou bien utiliser un diagramme de Gantt (barres horizontales)
mais dans ce cas il manque :
- charges prévues (Jr)
- charges réalisées (jr)

 

[CISCO]

Re : Graphique en timeline

Bonjour à tous

Pepsi, as tu vu mon post un peu plus haut ?

@ plus

 

[pepsi]

Re : Graphique en timeline

Bonjour à tous

Pepsi, as tu vu mon post un peu plus haut ?

@ plus

Re,
effectivement, quand je trie les projets par date ca corrige le pb d'affichage, mais j'aurais vraiment voulu que le graphique affiche l'ordre logique des projets, sans que j'ai besoin de trier par date.