OVH Cloud OVH Cloud

excel97 étiquettes graphique nuage de points

2 réponses
Avatar
Aerak
Bonjour,

J'ai créé un graphique de type "nuage de points" qui ne contient qu'une
série de valeurs (colonne Valeurs)

AxeX Valeurs Etiquettes
1 45 a
2 82 b
3 49 a
4 58 a
5 60 c

J'aimerais voir affichées sur ce graphe les valeurs de ma colonne
"Etiquettes" en tant qu'étiquettes et pas comme Excel me propose
soit "aucune", soit "valeur", soit "étiquettes de l'axe des X".
En bref, à côté de mon point "1 / 45" apparaîtrait "a", à côté du pt "2 /
82" apparaîtrait "b", etc

D'avance merci pour votre aide,

Régis

2 réponses

Avatar
Hervé
Bonsoir Aerak,
Dans "Valeurs X" (onglet série) donne l'adresse où se trouvent tes lettres,
exemple þuil1!$C$1:$C$5
Hervé.

"Aerak" a écrit dans le message news:

Bonjour,

J'ai créé un graphique de type "nuage de points" qui ne contient qu'une
série de valeurs (colonne Valeurs)

AxeX Valeurs Etiquettes
1 45 a
2 82 b
3 49 a
4 58 a
5 60 c

J'aimerais voir affichées sur ce graphe les valeurs de ma colonne
"Etiquettes" en tant qu'étiquettes et pas comme Excel me propose
soit "aucune", soit "valeur", soit "étiquettes de l'axe des X".
En bref, à côté de mon point "1 / 45" apparaîtrait "a", à côté du pt "2 /
82" apparaîtrait "b", etc

D'avance merci pour votre aide,

Régis




Avatar
garnote
Salut Aerak,

AxeX Valeurs Etiquettes
1 45 a
2 82 b
3 49 a
4 58 a
5 60 c

Sélectionne les valeurs numériques des deux premières
colonnes er appelle cette macro.
Ell a cependant un petit inconvénient. Si tu modifies le
nom d'une étiquette sur la feuille, il ne sera pas modifié
sur le graphique :-(
Cependant Isabelle a tout récemment proposé une macro
qui règle ce problème mais, tonnerre de Brest, elle est
disparue (la macro, pas Isabelle) de mon ordi !


Sub Construit_Nuage_Avec_Étiquettes_À_Droite()
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 = xlLabelPositionRight
For i = 1 To ici.Rows.Count
.Points(i).DataLabel.Characters.Text = ici(i, 1).Offset(, 2)
Next
End With
End Sub

Serge











J'aimerais voir affichées sur ce graphe les valeurs de ma colonne
"Etiquettes" en tant qu'étiquettes et pas comme Excel me propose
soit "aucune", soit "valeur", soit "étiquettes de l'axe des X".
En bref, à côté de mon point "1 / 45" apparaîtrait "a", à côté du pt "2 /
82" apparaîtrait "b", etc

D'avance merci pour votre aide,

Régis