Graphique : Nuage de points avec positionnement cartésien X, Y standard

[Henryp2]

Bonjour à tous,

voila mon probleme: je souhaite fabriquer un graphe simple tel que donné en exemple attaché. Par contre, au lieu de faire apparaitre le C.A. ou la part de marché, je souhaite faire apparaitre le Code Produit dans le graphe.

J'ai illustré tout cela dans le document ci-attaché. J'ai vraiment essayé de creuser en vain mais je n'y arrive vraiment pas.

Merci de votre aide à toutes et à tous.

 

[jeanpierre]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour Henryp2 et Bienvenue sur le forum,

Pas graphique, moi, mais si tu modifies dans Données source/Série et sur la série Code, dans le champ NOM et le champ ValeursX, la référence à C par la référence à B, est-ce que cela résoud ton problème ?

Sinon...

Bonne fin d'après-midi.

Jean-Pierre

 

[CB60]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour
Bonjour Jean Pierre
Soit avec ungraph courbe comme l'exemple, ou alors avec une macro de JW pour le choix des étiquettes

 

[CISCO]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour à tous

CB60, est-ce que tu pourrais nous expliquer comment tu fais pour obtenir ce graphique, sur ton premier fichier... ?

Merci d'avance.
Francis

 

[CB60]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonsoir tous, cisco
tu veux savoir quoi exactement, sur le premier graph, j'ai seulement trié les données et ajouté une série que j'ai mis sur l'axe secondaire pour pouvoir avoir en axe les noms et ensuite les afficher.
Si tu a besoin d'autre info n'hésite pas.

 

[CISCO]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour

et bien, et bien, il y a que je ni arrive pas : j'obtiens comme étiquette toute la série AAA DDD ... pour chaque point, et pas AAA pour le premier point, DDD pour le second... Je suis passé d'Excel 2003 à Excel 2007 il y a peu, et cela n'arrange pas la situation... Je patauge un peu entre toutes les combinaisons possibles...

Francis

 

[CB60]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonsoir cisco
Tu peux mettre ton dernier fichier afin de voir ou tu bloque

 

[CISCO]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour à tous

Dans la foulée du post de fifi (https://www.excel-downloads.com/threads/tableau-a-deux-valeurs.134132/), et histoire de mieux comprendre comment fonctionnent les paramètres de la fonction SERIE utilisée pour tracer certains graphiques, est-ce que quelqu'un, si ce n'est CB60 (qui ne passera peut être pas par là), pourrait m'expliquer comment on peut facilement obtenir des étiquettes différentes à coté de chaque point, comme dans le fichier du post 3 ci-dessus.

Perso (cf fichier ci-joint), j'arrive à avoir, soit toujours la même étiquette, par ex AAA, soit toutes les étiquettes possibles. Bien sûr, on peut ensuite, et dans ce dernier cas, "à la main", effacer les étiquettes inutiles, et ne garder que celle concernant le point juste à coté. Bien sûr, mais ce n'est pas très pratique... et très long si il y a beaucoup de points.

Merci d'avance.

@ plus

 

[Risleure]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Re Cisco, le Forum

Je ne sais si cela peut répondre à ta demande
Perso j'utilise la macro

Sub étiquettes_xy()
Dim s_c
Dim libellés
Dim i As Integer
Dim xvals As String
Dim nom_feuille As String
  For Each s_c In ActiveChart.SeriesCollection
    xvals = s_c.Formula
    xvals = Right(xvals, Len(xvals) - InStr(1, xvals, ","))
    xvals = Left(xvals, InStr(1, xvals, ",") - 1)
    s_c.Select
    s_c.HasDataLabels = True
    nom_feuille = Left(xvals, InStr(1, xvals, "!"))
    For i = 1 To s_c.Points.Count
'Dans la ligne ci dessous les étiquettes sont 1 colonnes avant les X c'ad Range(xvals).Cells(i).Column - 1
'Donc si elles sont ailleurs il faut modifier le -1 !!! CQFD
        libellés = "=" & nom_feuille & "R" & Range(xvals).Cells(i).Row & "C" & Range(xvals).Cells(i).Column - 1
        With s_c.Points(i).DataLabel
            .Text = libellés
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .ReadingOrder = xlContext
            .Position = xlLabelPositionBelow ' xlLabelPositionAbove 'xllabelpositioncenter
            '.Orientation = 45
        End With
    Next
Next

Pour ton cas, tu sélectionnes le graphique dans la feuille et tu lances la macro. voir la PJ
A+

 

[Risleure]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Re,

Idem pour henryp2
Voir PJ

A+

 

[MJ13]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour à tous

Sinon, ce petit code qui est très utile en nommant la zone contennant les étiquettes "zone".

C'est très facilement adapatable.

Sub Nomme_points_Etiquettes_Graphique()
'''''''''''''''''''''''''''''''''''''''''''''''''
' Macro enregistrée le 24/07/2009 par MJ        '
'                                               '
'Nommez la zone contenant les étiquettes "zone" '
'''''''''''''''''''''''''''''''''''''''''''''''''
'Sélectionne le graphique N
'ActiveSheet.ChartObjects("Graphique 2").Activate
ActiveSheet.ChartObjects(1).Activate
n = 1
 ActiveChart.SeriesCollection(1).Select
 
 'Boucle sur les points de la série 1 du graphique défini précédemment
For Each cell In Range("zone")
'MsgBox cell
 ActiveChart.SeriesCollection(1).Points(n).DataLabel.Select
    'Selection.Characters.Text = "val " & cell
    'Selection.Characters.Text = Format(cell, "00.0%")
    Selection.Characters.Text = cell
    n = n + 1
Next
End Sub

 

[CB60]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonsoir
J'ai décomposé avec plusieurs graphs la façon de faire, j'espere que ce sera comprehensible??

 

[CISCO]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonsoir

Merci CB60.

Pas hyperpratique, qu'en même... mais ça me donne des idées.


Encore merci.

@ plus

 

[CB60]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour
Pratique Non, se faire facilement je pense que Oui, la le fait d'avoir multiplié les graph nous donne l'impression de complexe, mais il ni a qu'un graph avec deux séries.
C'est un palliatif à la macro

 

[MJ13]

Re : Graphique : Nuage de points avec positionnement cartésien X, Y standard

Bonjour à tous

Sinon cette adaptation:

Bien sur, il faut connaître un peu Excel pour le faire et savoir nommer une zone 🙂!

Sub Nomme_points_Etiquettes_Graphiques_Courbe1()
'''''''''''''''''''''''''''''''''''''''''''''''''
' Macro enregistrée le 20/10/2009 par MJ '
' '
'Nommez la zone contenant les étiquettes "zone" '
'''''''''''''''''''''''''''''''''''''''''''''''''
'Sélectionne le graphique N
ngraph = ActiveSheet.ChartObjects.Count
'Stop
For i = 1 To ngraph
'ActiveSheet.ChartObjects("Graphique 3").Activate
ActiveSheet.ChartObjects(i).Activate
ActiveSheet.ChartObjects(i).Select
n = 1
ActiveChart.SeriesCollection(1).Select
'Stop
'Boucle sur les points de la série 1 du graphique défini précédemment
ActiveChart.SeriesCollection(1).ApplyDataLabels
For Each cell In Range("zone")
'MsgBox cell
'Graphique type XY
ActiveChart.SeriesCollection(1).Points(n).DataLabel.Select
'Selection.Characters.Text = "val " & cell
'Selection.Characters.Text = Format(cell, "00.0%")
' Selection.Characters.Text = cell
'Graphique
ActiveChart.SeriesCollection(1).Points(n).DataLabel.Text = cell
n = n + 1
Next
Next i
End Sub