Sub Macro1() MsgBox ActiveChart.SeriesCollection(1).Points(1).DataLabel.Caption End Sub
Daniel
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ValeurHisto = 5 ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(Tablo) If Tablo(i) = ValeurHisto Then MsgBox TabloX(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo2i9h$qcl$
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre d'histogramme donnée.
Si vous avez là encore une idée.
Merci
A+
Jean Marie
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur
donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test()
Dim ValeurHisto As Integer, Tablo, ValeurCherchée
Dim TabloX
ValeurHisto = 5
ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier
TabloX = ActiveChart.SeriesCollection(1).XValues
Tablo = ActiveChart.SeriesCollection(1).Values
For i = 1 To UBound(Tablo)
If Tablo(i) = ValeurHisto Then
MsgBox TabloX(i)
End If
Next i
End Sub
Daniel
"Jean-Marie VIGNEAUD" <jm.vigneaud@gironde.chambagri.fr> a écrit dans le
message de news: eo2i9h$qcl$1@s1.news.oleane.net...
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre
d'histogramme donnée.
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ValeurHisto = 5 ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(Tablo) If Tablo(i) = ValeurHisto Then MsgBox TabloX(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo2i9h$qcl$
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre d'histogramme donnée.
Si vous avez là encore une idée.
Merci
A+
Jean Marie
Jean-Marie VIGNEAUD
Bonjour Daniel,
Merci pour le bout de code aui va aussi me servir pour autre chose... génial.
Mais pour ce probléme, en fait, j'ai besoin de savoir si la barre d'histogramme de la série 1 dont la valeur des X (et non la valeur de l'étiquette) est Janvier par exemple existe dans mon graphique.
"Daniel" a écrit dans le message de news:
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ValeurHisto = 5 ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(Tablo) If Tablo(i) = ValeurHisto Then MsgBox TabloX(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo2i9h$qcl$
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre d'histogramme donnée.
Si vous avez là encore une idée.
Merci
A+
Jean Marie
Bonjour Daniel,
Merci pour le bout de code aui va aussi me servir pour autre chose...
génial.
Mais pour ce probléme, en fait, j'ai besoin de savoir si la barre
d'histogramme de la série 1 dont la valeur des X (et non la valeur de
l'étiquette) est Janvier par exemple existe dans mon graphique.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ejwgzpLNHHA.992@TK2MSFTNGP06.phx.gbl...
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur
donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test()
Dim ValeurHisto As Integer, Tablo, ValeurCherchée
Dim TabloX
ValeurHisto = 5
ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier
TabloX = ActiveChart.SeriesCollection(1).XValues
Tablo = ActiveChart.SeriesCollection(1).Values
For i = 1 To UBound(Tablo)
If Tablo(i) = ValeurHisto Then
MsgBox TabloX(i)
End If
Next i
End Sub
Daniel
"Jean-Marie VIGNEAUD" <jm.vigneaud@gironde.chambagri.fr> a écrit dans le
message de news: eo2i9h$qcl$1@s1.news.oleane.net...
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre
d'histogramme donnée.
Merci pour le bout de code aui va aussi me servir pour autre chose... génial.
Mais pour ce probléme, en fait, j'ai besoin de savoir si la barre d'histogramme de la série 1 dont la valeur des X (et non la valeur de l'étiquette) est Janvier par exemple existe dans mon graphique.
"Daniel" a écrit dans le message de news:
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ValeurHisto = 5 ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(Tablo) If Tablo(i) = ValeurHisto Then MsgBox TabloX(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo2i9h$qcl$
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre d'histogramme donnée.
Si vous avez là encore une idée.
Merci
A+
Jean Marie
Daniel
Genre :
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ActiveSheet.ChartObjects("Graphique 1").Activate TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(TabloX) If TabloX(i) = "Janvier" Then MsgBox "Elle existe en position " & i & " et la valeur Y est : " & _ Tablo(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo30ob$2h4$
Bonjour Daniel,
Merci pour le bout de code aui va aussi me servir pour autre chose... génial.
Mais pour ce probléme, en fait, j'ai besoin de savoir si la barre d'histogramme de la série 1 dont la valeur des X (et non la valeur de l'étiquette) est Janvier par exemple existe dans mon graphique.
"Daniel" a écrit dans le message de news:
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ValeurHisto = 5 ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(Tablo) If Tablo(i) = ValeurHisto Then MsgBox TabloX(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo2i9h$qcl$
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre d'histogramme donnée.
Si vous avez là encore une idée.
Merci
A+
Jean Marie
Genre :
Sub test()
Dim ValeurHisto As Integer, Tablo, ValeurCherchée
Dim TabloX
ActiveSheet.ChartObjects("Graphique 1").Activate
TabloX = ActiveChart.SeriesCollection(1).XValues
Tablo = ActiveChart.SeriesCollection(1).Values
For i = 1 To UBound(TabloX)
If TabloX(i) = "Janvier" Then
MsgBox "Elle existe en position " & i & " et la valeur Y est : "
& _
Tablo(i)
End If
Next i
End Sub
Daniel
"Jean-Marie VIGNEAUD" <jm.vigneaud@gironde.chambagri.fr> a écrit dans le
message de news: eo30ob$2h4$1@s1.news.oleane.net...
Bonjour Daniel,
Merci pour le bout de code aui va aussi me servir pour autre chose...
génial.
Mais pour ce probléme, en fait, j'ai besoin de savoir si la barre
d'histogramme de la série 1 dont la valeur des X (et non la valeur de
l'étiquette) est Janvier par exemple existe dans mon graphique.
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
ejwgzpLNHHA.992@TK2MSFTNGP06.phx.gbl...
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une
valeur donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test()
Dim ValeurHisto As Integer, Tablo, ValeurCherchée
Dim TabloX
ValeurHisto = 5
ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier
TabloX = ActiveChart.SeriesCollection(1).XValues
Tablo = ActiveChart.SeriesCollection(1).Values
For i = 1 To UBound(Tablo)
If Tablo(i) = ValeurHisto Then
MsgBox TabloX(i)
End If
Next i
End Sub
Daniel
"Jean-Marie VIGNEAUD" <jm.vigneaud@gironde.chambagri.fr> a écrit dans le
message de news: eo2i9h$qcl$1@s1.news.oleane.net...
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre
d'histogramme donnée.
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ActiveSheet.ChartObjects("Graphique 1").Activate TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(TabloX) If TabloX(i) = "Janvier" Then MsgBox "Elle existe en position " & i & " et la valeur Y est : " & _ Tablo(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo30ob$2h4$
Bonjour Daniel,
Merci pour le bout de code aui va aussi me servir pour autre chose... génial.
Mais pour ce probléme, en fait, j'ai besoin de savoir si la barre d'histogramme de la série 1 dont la valeur des X (et non la valeur de l'étiquette) est Janvier par exemple existe dans mon graphique.
"Daniel" a écrit dans le message de news:
Si j'ai bien compris, tu veux l'étiquette des X correspondant à une valeur donnée de la série (dans mon exemple, cette valeur est "5") :
Sub test() Dim ValeurHisto As Integer, Tablo, ValeurCherchée Dim TabloX ValeurHisto = 5 ActiveSheet.ChartObjects("Graphique 1").Activate '*** à modifier TabloX = ActiveChart.SeriesCollection(1).XValues Tablo = ActiveChart.SeriesCollection(1).Values For i = 1 To UBound(Tablo) If Tablo(i) = ValeurHisto Then MsgBox TabloX(i) End If Next i End Sub
Daniel "Jean-Marie VIGNEAUD" a écrit dans le message de news: eo2i9h$qcl$
Re bonjour,
DAns le même ordre d'idée de la question précedente,
je souhaiterai réupérer le nom de l'étiquette des X pour une barre d'histogramme donnée.
