Sachant que je dispose en abcisse (x) de la série des ages et en ordonnée de
l'ancienneté dans l'entreprise. Comment faire appraître sur le point (x,y) le
nom de la personne quand j'y place le pointeur ou mieux en affichage
permanent ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
http://cjoint.com/?buqyPBlg7N
Sub commentaire() ActiveSheet.ChartObjects(1).Activate On Error Resume Next ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel On Error GoTo 0 ActiveChart.SeriesCollection(1).DataLabels.Select nb_points = ActiveChart.SeriesCollection(1).Points.Count For i = 1 To nb_points ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select Selection.Interior.ColorIndex = 36 Selection.Font.Size = 7 Selection.Text = ActiveSheet.Cells(i + 1, 1) Next i End Sub
Cordialement JB
Sachant que je dispose en abcisse (x) de la série des ages et en ordonn ée de l'ancienneté dans l'entreprise. Comment faire appraître sur le point (x,y) le nom de la personne quand j'y place le pointeur ou mieux en affichage permanent ?
Merci d'avance
Bonjour,
http://cjoint.com/?buqyPBlg7N
Sub commentaire()
ActiveSheet.ChartObjects(1).Activate
On Error Resume Next
ActiveChart.SeriesCollection(1).ApplyDataLabels
Type:=xlDataLabelsShowLabel
On Error GoTo 0
ActiveChart.SeriesCollection(1).DataLabels.Select
nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To nb_points
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Interior.ColorIndex = 36
Selection.Font.Size = 7
Selection.Text = ActiveSheet.Cells(i + 1, 1)
Next i
End Sub
Cordialement JB
Sachant que je dispose en abcisse (x) de la série des ages et en ordonn ée de
l'ancienneté dans l'entreprise. Comment faire appraître sur le point (x,y) le
nom de la personne quand j'y place le pointeur ou mieux en affichage
permanent ?
Sub commentaire() ActiveSheet.ChartObjects(1).Activate On Error Resume Next ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel On Error GoTo 0 ActiveChart.SeriesCollection(1).DataLabels.Select nb_points = ActiveChart.SeriesCollection(1).Points.Count For i = 1 To nb_points ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select Selection.Interior.ColorIndex = 36 Selection.Font.Size = 7 Selection.Text = ActiveSheet.Cells(i + 1, 1) Next i End Sub
Cordialement JB
Sachant que je dispose en abcisse (x) de la série des ages et en ordonn ée de l'ancienneté dans l'entreprise. Comment faire appraître sur le point (x,y) le nom de la personne quand j'y place le pointeur ou mieux en affichage permanent ?
Merci d'avance
François
Bonsoir,
Propre, clair et net !
Comme d'habitude ...
François
"JB" a écrit dans le message de news:
Bonjour,
http://cjoint.com/?buqyPBlg7N
Sub commentaire() ActiveSheet.ChartObjects(1).Activate On Error Resume Next ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel On Error GoTo 0 ActiveChart.SeriesCollection(1).DataLabels.Select nb_points = ActiveChart.SeriesCollection(1).Points.Count For i = 1 To nb_points ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select Selection.Interior.ColorIndex = 36 Selection.Font.Size = 7 Selection.Text = ActiveSheet.Cells(i + 1, 1) Next i End Sub
Cordialement JB
Sachant que je dispose en abcisse (x) de la série des ages et en ordonnée de l'ancienneté dans l'entreprise. Comment faire appraître sur le point (x,y) le nom de la personne quand j'y place le pointeur ou mieux en affichage permanent ?
Merci d'avance
Bonsoir,
Propre, clair et net !
Comme d'habitude ...
François
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1169306715.288815.253930@a75g2000cwd.googlegroups.com...
Bonjour,
http://cjoint.com/?buqyPBlg7N
Sub commentaire()
ActiveSheet.ChartObjects(1).Activate
On Error Resume Next
ActiveChart.SeriesCollection(1).ApplyDataLabels
Type:=xlDataLabelsShowLabel
On Error GoTo 0
ActiveChart.SeriesCollection(1).DataLabels.Select
nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To nb_points
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Interior.ColorIndex = 36
Selection.Font.Size = 7
Selection.Text = ActiveSheet.Cells(i + 1, 1)
Next i
End Sub
Cordialement JB
Sachant que je dispose en abcisse (x) de la série des ages et en ordonnée
de
l'ancienneté dans l'entreprise. Comment faire appraître sur le point (x,y)
le
nom de la personne quand j'y place le pointeur ou mieux en affichage
permanent ?
Sub commentaire() ActiveSheet.ChartObjects(1).Activate On Error Resume Next ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel On Error GoTo 0 ActiveChart.SeriesCollection(1).DataLabels.Select nb_points = ActiveChart.SeriesCollection(1).Points.Count For i = 1 To nb_points ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select Selection.Interior.ColorIndex = 36 Selection.Font.Size = 7 Selection.Text = ActiveSheet.Cells(i + 1, 1) Next i End Sub
Cordialement JB
Sachant que je dispose en abcisse (x) de la série des ages et en ordonnée de l'ancienneté dans l'entreprise. Comment faire appraître sur le point (x,y) le nom de la personne quand j'y place le pointeur ou mieux en affichage permanent ?
