Creer un nuage de point avec etiquette

anthony.unac

XLDnaute Occasionnel
Bonjour,

Comment créer un nuage de points avec sous chaque point le nom de la ville correspondante ?

Dans le fichier ci joint, je crée les points avec les colonnes L et M (intitulées respectivement X résultant et Y résultant). Le nom des villes correspondantes se situe en colonne B (intitulée ancom).

Il me semble évident de créer un graphique type nuage de points mais je m’emmêle les pinceaux avec les séries :(

Cordialement
Anthony
 

Pièces jointes

  • Communes du 66.xls
    84 KB · Affichages: 91

Dranreb

XLDnaute Barbatruc
Re : Creer un nuage de point avec etiquette

Bonsoir.
À ma connaissance ce n'est possible qu'à l'aide d'une macro: il n'est pas prévu de spécifier de plage pour le contenu des étiquettes d'une série en nuage de points. En revanche on peut y mettre autre chose que les possibilités prévues, au coup par coup, donc par une boucle en VBA.
À +
 

Misange

XLDnaute Barbatruc
Re : Creer un nuage de point avec etiquette

Bonjour
Pour ajouter les étiquettes tu peux utiliser un add-in gratuit très bien fait que tu télécharges sur ce site :
XY Chart Labeler

Cela dit vue le nombre de communes et la longueur de leurs noms, ton graphique sera très vite absolument illisible avec des étiquettes...

 

Pièces jointes

  • Copie de Communes du 66.xls
    104.5 KB · Affichages: 92

Modeste geedee

XLDnaute Barbatruc
Re : Creer un nuage de point avec etiquette

Bonsour®
Bonjour
Pour ajouter les étiquettes tu peux utiliser un add-in gratuit très bien fait que tu télécharges sur ce site :
XY Chart Labeler

:mad: dans certaines entreprises la DI (Direction Informatique) interdit la mise en place d'AddIns non certifié
ayant jadis été confronté à cette DI (Dictature Informatique) et j'avais écrit mon propre XYLabeler...

:cool: je viens de retrouver le KB correspondante dont je m'étais servi:
Comment faire pour utiliser une macro pour ajouter des étiquettes aux points de données dans un graphique à nuages de points (XY) ou un graphique à bulles dans Excel

à l'occasion j'ai reconstitué la macro (++personnalisée :rolleyes:)

Nb : le graphe doit etre sélectionné préalablement à l'exécution.

VB:
Sub AttachLabelsToPoints()
   '--------d'aprés  Microsoft kb213750
   '--------Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String, Xvalcol As Integer, LabelCol As Integer, decalage As Integer
   
    LabelCol = InputBox("indiquer le N° colonne des étiquettes", "XYlabeler", "1")
   ' -----Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False
   ' -----Store the formula for the first series in "xVals".
' ************************************************
' ------ si plusieurs séries, adapter ci-dessous le numero de série
   xVals = ActiveChart.SeriesCollection(1).Formula
' ***************************serie****************
' -----Extract the range for the data from xVals. ( ;o) on aurait pu utiliser Split)
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop
' ----- pour calculer la position relative par rapport aux X
    Xvalcol = Range(xVals).Column
    decalage = LabelCol - Xvalcol
' -----Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
' ********************serie************************
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel =True
      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text =Range(xVals).Cells(Counter, 1).Offset(0,decalage).Value
' ********************serie************************
   Next Counter
End Sub
 

anthony.unac

XLDnaute Occasionnel
Re : Creer un nuage de point avec etiquette

En revanche, est il possible de remplacer le quadrillage du graphe par des cercles concentriques (normal, je suis en coordonnées polaires ;) ?

Cordialement
Anthony

PS: Inscrire 12 dans le champs de la box au demarrage
 

Pièces jointes

  • Communes du 66 copie.xls
    111.5 KB · Affichages: 97
  • Communes du 66 copie.xls
    111.5 KB · Affichages: 112
  • Communes du 66 copie.xls
    111.5 KB · Affichages: 112

Gruick

XLDnaute Accro
Re : Creer un nuage de point avec etiquette

Bonjour,
Si l'objectif est de mettre des noms sur une "carte" des Pyrénées Orientales, j'utilise cette toute petite macro qu'on peut facilement paramétrer

Code:
Sub Etiquettes()ActiveSheet.ChartObjects(1).Activate
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowLabel
ActiveChart.SeriesCollection(1).DataLabels.Font.Size = 7
ActiveChart.SeriesCollection(1).DataLabels.Border.LineStyle = xlNone
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
  ActiveChart.SeriesCollection(1).Points(i).DataLabel.Characters.Text = ActiveSheet.Cells(i + 1, 1)
  ActiveChart.SeriesCollection(1).Points(i).DataLabel.Interior.ColorIndex = xlNone
Next i
End Sub

Ca marche aussi avec les "bulles".

Gruick
 

Modeste geedee

XLDnaute Barbatruc
Re : Creer un nuage de point avec etiquette

bonsour®
En revanche, est il possible de remplacer le quadrillage du graphe par des cercles concentriques (normal, je suis en coordonnées polaires ;) ?
PS: Inscrire 12 dans le champs de la box au demarrage

:p
ajouter des séries complémentaires ...
 

Pièces jointes

  • Communes du 66 copie.xls
    236.5 KB · Affichages: 120
  • Communes du 66 copie.xls
    236.5 KB · Affichages: 111
  • Communes du 66 copie.xls
    236.5 KB · Affichages: 110

Statistiques des forums

Discussions
294 412
Messages
1 938 343
Membres
188 785
dernier inscrit
michelle40000