J'utilise excell 2000
j'ai les donn=E9es suivantes=20
=20
X Y
10 -0.5 1
20 1.5 0.25
30 0.25 -0.50
Je d=E9sire utiliser le graphique en nuages de points
avec comme coordonn=E9es les donn=E9es de X et de Y mais le=20
nom de l'=E9tiquettes des points sont 10 , 20 30, =E0 placer=20
au dessus du point dans le graphique
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
garnote
Salut Aldo,
10 -0.5 1 20 1.5 0.25 30 0.25 -0.50
Sélectionne les colonnes 2 et 3 et appelle cette macro :
Sub Construit_Nuage_Avec_Étiquettes_En_Haut_Des_Points() Application.ScreenUpdating = False Set ici = Selection nom = ActiveSheet.Name Charts.Add With ActiveChart .ChartType = xlXYScatter .SetSourceData Source:=ici, PlotBy:=xlColumns .Location Where:=xlLocationAsObject, Name:=nom End With With ActiveChart.SeriesCollection(1) .ApplyDataLabels .DataLabels.Position = xlLabelPositionAbove For i = 1 To ici.Rows.Count .Points(i).DataLabel.Characters.Text = ici(i, 1).Offset(, -1) Next End With End Sub
Serge
Salut Aldo,
10 -0.5 1
20 1.5 0.25
30 0.25 -0.50
Sélectionne les colonnes 2 et 3 et appelle cette macro :
Sub Construit_Nuage_Avec_Étiquettes_En_Haut_Des_Points()
Application.ScreenUpdating = False
Set ici = Selection
nom = ActiveSheet.Name
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
.SetSourceData Source:=ici, PlotBy:=xlColumns
.Location Where:=xlLocationAsObject, Name:=nom
End With
With ActiveChart.SeriesCollection(1)
.ApplyDataLabels
.DataLabels.Position = xlLabelPositionAbove
For i = 1 To ici.Rows.Count
.Points(i).DataLabel.Characters.Text = ici(i, 1).Offset(, -1)
Next
End With
End Sub
Sélectionne les colonnes 2 et 3 et appelle cette macro :
Sub Construit_Nuage_Avec_Étiquettes_En_Haut_Des_Points() Application.ScreenUpdating = False Set ici = Selection nom = ActiveSheet.Name Charts.Add With ActiveChart .ChartType = xlXYScatter .SetSourceData Source:=ici, PlotBy:=xlColumns .Location Where:=xlLocationAsObject, Name:=nom End With With ActiveChart.SeriesCollection(1) .ApplyDataLabels .DataLabels.Position = xlLabelPositionAbove For i = 1 To ici.Rows.Count .Points(i).DataLabel.Characters.Text = ici(i, 1).Offset(, -1) Next End With End Sub
