XL 2010 Mettre des noms sous une courbe en fonction des valeurs

[rododom05]

Bonjour à toutes et tous.
J'ai une question concernant les graphiques Excel. J'ai une courbe représentant le temps de parcours et la vitesse d'un tramway en fonction de la distance parcourue. Et à chaque fois que la courbe de la vitesse tombe à 0, ça veut dire qu'il y a une fonction. Comment est-ce que je peux faire, sachant que les stations sont référencées, pour faire justement apparaître les noms des stations en-dessous de la courbe quand justement elle tombe à 0 ?
Je joins un petit fichier exemple à ma demande.

En vous remerciant par avance, je vous souhaite d'ores et déjà un bon week-end.

Rod'

 

[job75]

Re,

L'analyse du tableau de 12000 lignes est extrêmement rapide mais en effet il est beaucoup plus simple et rationnel de créer une 2ème série.

La macro du 1er fichier devient :

Private Sub CommandButton1_Click()
Dim test As Boolean, t, i&
Application.ScreenUpdating = False
test = CommandButton1.Caption Like "Afficher*"
With ChartObjects(1).Chart
  .SetElement IIf(test, msoElementPrimaryCategoryAxisNone, msoElementPrimaryCategoryAxisShow) 'masque/affiche l'axe
  .Axes(xlCategory).AxisTitle.Text = IIf(test, " ", "Pk (m)") 'masque/affiche le titre de l'axe
  With .SeriesCollection(2)
    .HasDataLabels = False 'RAZ
    If test Then
      t = [I6].CurrentRegion.Resize(, 2) 'I6 à adapter
      For i = 2 To UBound(t)
        .Points(i - 1).ApplyDataLabels
        .DataLabels(i - 1).Text = t(i, 2)
      Next
      If i > 2 Then
        With .DataLabels
          .Position = xlLabelPositionBelow
          .Orientation = xlUpward
          .Format.TextFrame2.TextRange.Font.Bold = msoTrue 'gras
        End With
      End If
    End If
  End With
End With
CommandButton1.Caption = IIf(test, "Masquer", "Afficher") & " les stations"
End Sub

Les positions des stations peuvent être quelconques.

Fichiers (1 bis) et (2 bis).

A+

 

[Modeste geedee]

Bonsour®

Bonjour Modeste geedee,

Bien sûr et ça n'a aucune importance (pour ma macro) car seuls les points correspondant au tableau I7:J16 sont traités.

A+

Jean Khonvien...
pourquoi alors (ta macro) ne s'appliquerait-elle pas plus directement à une seconde série
(=SERIE("gares";Feuil1!$I$7:$I$16;Feuil1!$J$7:$J$16;1))
plutôt que de faire une boucle de 11800 incréments...

#16 convergence ... n'est-il pas ?...

 

[job75]

Re,

Nos posts se sont croisés à la minute près.

A+

 

[Modeste geedee]

Bonsour®

Re,

Nos posts se sont croisés à la minute près.

A+

nous voici donc avec une seconde alternative à la

Spoiler: défunte KB213750

https://support.microsoft.com/en-us/help/213750

... ou l'add-in "XY ChartLabeler"

 

[Modeste geedee]

Bonsour®
nous voici donc avec une seconde alternative à la

Spoiler: défunte KB213750

https://support.microsoft.com/en-us/help/213750

... ou l'add-in "XY ChartLabeler"

Retrouvée ...
https://support.microsoft.com/en-us...rt-in-excel?SmcNavTabIndex=2?SmcNavTabIndex=2