Creer un nuage de point avec etiquette

[anthony.unac]

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

 

[Dranreb]

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]

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...

 

[Modeste geedee]

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

😡 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...

😎 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 🙄)

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

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]

Re : Creer un nuage de point avec etiquette

Merci a vous ca marcheeeeeeeeee !

 

[anthony.unac]

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

 

[Misange]

Re : Creer un nuage de point avec etiquette

Pas à ma connaissance...

 

[Gruick]

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

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

 

[Gardien de phare]

Re : Creer un nuage de point avec etiquette

Re, bonjour Misange,

La seule solution simple est de tracer tes cercles avec l'outil dessin.

Éventuellement tracer des cercles en ajoutant des séries contenant suffisamment de points correspondants à des cercles.

HTH

 

[Modeste geedee]

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

😛
ajouter des séries complémentaires ...

 

[Gardien de phare]

Re : Creer un nuage de point avec etiquette

Re, bonjour Modeste GD

Du Modeste GD dans toute sa splendeur.

Respect