Excel nuages de points et étiquettes

03/08-2001 à 14:06Bien le bonour,

J'ai réalisé un graphique avec Excel 2001 en nuages de points de 150 données, réparties en 5 séries. Dans la colonne A se trouvent les noms se référant à chaque couple de valeurs et les valeurs représentées sur le graphique sont dans les colonnes B et C.
Voici mon problème : je souhaiterai pouvoir attribuer des étiquettes de données à chaque points de mon graphique en fonction de son nom.
Comble du raffinement, les étiquettes se chevauchant et risquant ainsi d'être illisibles, il serait idéal de voir apparaître le nom du point dans la petite boîte jaune qui apparaît lorsque l'on laisse le curseur pointé sur un point.

Quelqu'un connait-il une macro pour résoudre ce problème ?

D'avance Merci!

27/08-2001 à 17:59Je te conseille la lecture d'un ouvrage de la collection "Les nouveaux poches micro" intitulé "Excel 2000 et VBA" des Editions Osman Eyrolles Multimédia www.oemweb.comqui donne ce petit exemple valable pour le premier graphique:

Sub DataLabelsFromRange()
Dim DLRange as range
Dim Cht as chart
Dim i as integer

Set Cht =ActiveSheet.CharObjects(1).Chart

On Error resume next
Set DLRange = Application.InputBox_
(prompt:="Série d'étiquette ?", Type:=8)
If DLRange Is Nothing then Exit Sub
On Error Go To 0

Cht.SeriesCollection(1).ApplyDataLabels_
type:=xlDataLabelsShowValue,_
AutoText:=True,_
LegendKey:=False

Pts=Cht.SeriesCollection(1).Points.Count
For i = 1 to Pts
Cht.SeriesCollection(1)._
Points(i).DataLabel.Characters.Text = DLRange(i)
Next i

End Sub

----------
Bipbipcoyote