Graphique nuage de points.

[oslo71]

Bonjour à toutes et à tous,

J'ai un nouveau petit pb que je n'arrive pas à résoudre.
Je ne sais même pas si se problème est résolvable, aussi je me permets de vous le soumettre.
Pour être plus explicite, je vous joint un petit fichier exemple. mon pb très court est expliqué dessus.
Merci d'avance à vous, qui prenez de votre temps pour essayer de nous aider.
Cordialement.

 

[Dugenou]

Re : Graphique nuage de points.

Bonjour,

Je crois qu'on peut faire ce que tu suhaites en ajoutant les étiquettes des données par macro.
Je ne suis pas doué en macro mais je te donne le texte tel quel à adapter à ton classeur.

Sub LabelGraph()
Dim NombrePoints As Integer
Dim i As Integer
Dim eti As Integer
'le graphique doit etre nommé
'les noms d'étiquettes doivent être en a1 et suivantes
NombrePoints = ActiveSheet.ChartObjects("graphique 2").Chart. _
SeriesCollection(1).Points.Count
For i = 1 To NombrePoints

With ActiveSheet.ChartObjects("Graphique 2").Chart. _
SeriesCollection(1).Points(i)
.HasDataLabel = True
.DataLabel.Characters.Text = Cells(i + 1, 1)
End With

Next
End Sub

 

[oslo71]

Re : Graphique nuage de points.

Merci Dugenou de t'intéresser à mon problème.
J'ai mis ton code, malheureusement je n'arrive pas à le faire fontionner.
As-tu essayer de mettre le code sur mon fichier exemple ? Si oui pourrais-tu STP me renvoyer le fichier.
Je me doutais bien que ce pb n'était pas facile.
Dans tous les cas, je te remercie de ton aide.
Cordialement.

 

[oslo71]

Re : Graphique nuage de points.

Re bonjour,

Quelqu'un aurait-il une idée sur la façon de pouvoir résoudre ce problème ?
Merci de votre aide.

 

[Dugenou]

Re : Graphique nuage de points.

Bonjour,

en effet ça ne marche pas : je crois que la macro fonctionne sur un graphique en bulle. Mais je suis tellement nul en vba que je ne sais pas l'adapter. Je pense qu'il faut changer quelquechose dans SeriesCollection(1).Points(i) mais je n'en sais pas plus. Espérons qu'un vaillant macroteur vienne à ton aide ou alors fais une recherche sur macro étiquette graphique ...

Cordialement

 

[BOISGONTIER]

Re : Graphique nuage de points.

Bonsoir,

Etiquettes graphique

JB

 

[kjin]

Re : Graphique nuage de points.

Bonsoir,

en effet ça ne marche pas....

@Dugenou : Pourquoi donc ça ne marcherait pas...?
Il faut juste gérer ces ... de cellules fusionnées dont on ne se lasse pas de dire que c'est une calamité, et le décalage initial puisque le tableau commence à la ligne 6 (je ne vois pas pourquoi la plage source n'est pas définie comme tel d'ailleurs)

Sub camarche()
Set src = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
With src
    On Error Resume Next
    For i = 1 To .Points.Count
        With .Points(i)
            .HasDataLabel = True
            .DataLabel.Caption = Cells(i + 5, 2)
            .DataLabel.Position = xlLabelPositionAbove
        End With
    Next
End With
End Sub

@oslo71 : ça ne répond pas à la question initiale...
La seule solution à mon sens, c'est d'utiliser un module de classe pour pouvoir gérer les evenements de la souris dans le graphique et afficher un Popup au passage sur un point
Reviens et dis nous
A+
kjin

 

[oslo71]

Re : Graphique nuage de points.

Bonjour,
En fait j'ai laissé tombé la possibilité d'affichage lors du passage de la souris sur les points.
La solution de "Dugenou" et "Kjin" me convient parfaitement et fonctionne très bien après avoir supprimé toutes les cellules fusionnées.
Je vous remercie sincèrement de m'avoir aidé en me proposant une solution qui répond parfaitement à mes attentes.
Bonne journée à tous les passionnés d'Excel.
Cordialement.

 

[MJ13]

Re : Graphique nuage de points.

Bonjour à tous

La seule solution à mon sens, c'est d'utiliser un module de classe pour pouvoir gérer les evenements de la souris dans le graphique et afficher un Popup au passage sur un point

La ,ça m'intéresse 🙂.

Mais franchement, Kjin, si tu savais le faire, ce serait Top, car je ne suis pas sur que cela soit à la portée de tout le monde (en tout cas pas de moi, il me faudrait 12 heures de recherche ou un peu moins) 😕.

 

[kjin]

Re : Graphique nuage de points.

Bonjour, salut MJ 🙂,

La ,ça m'intéresse...

Vois la PJ
Je ne me suis pas embêter pour le positionnement du Popup car c'est un casse-tête que de transposer les coordonnées d'un point d'un graphique en pixel, donc je regarderai plus tard...
A+
kjin

 

[MJ13]

Re : Graphique nuage de points.

Re

Merci beaucoup, KJin, pour ton code, la, c'est la classe 😱.

C'était quand même pas donné à tout le monde de le faire, je vais étudier tout cela 😕.

Encore merci et bonne soirée 🙂.