Valeurs d'un nuage de points sous forme de chiffres

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zizoufan

XLDnaute Occasionnel
Bonjour,

je suis confronté à un problème particulier sur Excel mais je ne sais pas si la solution existe ou pas.

voila la source de données sur laquelle j'ai travaillé. elle est assez simple.

-------------------------------------------------------------------
N° idée | Intitulé de l'idée | Effort | Impact
-------------------------------------------------------------------
1 concevoir un appareil électrique pour ... 5 9
2 Etudier la mise en place des étagères 2 7
..............................................................................................


l'idée est d'utiliser la matrice de Lawrence Holpp pour avoir les idées les plus
intéressantes : càd moins d'efforts et plus d'impacts.

j'ai pris un graphique (type : nuage ) où l'axe des abssices représente l'effort ( échelle de 1 à 10). et l'axe des ordonées pour représenter l'impact ( échelle de 1 à 10).
Au bout du compte j'ai effectivement les idées dispersées sur la matrice. Seulement voilà je pourrais pas avoir une vision assez rapide sur les idées
qui se trouvent dans la case [impact important, effort faible] puisque je n'ai que des points.

J'aurais souhaité avoir les numéros des idées au lieu des points !! Est ce que c'est possible deja ? Si oui comment faire ?



Merci
 
Re : Valeurs d'un nuage de points sous forme de chiffres

Bonjour,

Sub commentaire()
ActiveSheet.ChartObjects(1).Activate
On Error Resume Next
ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel
On Error GoTo 0
ActiveChart.SeriesCollection(1).MarkerStyle = xlNone
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Interior.ColorIndex = 36
Selection.Font.Size = 7
Selection.Text = ActiveSheet.Cells(i + 1, 1)
Next i
End Sub

JB
Formation Excel VBA JB
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Réponses
2
Affichages
949
rodrigues89
R
S
Réponses
10
Affichages
4 K
S
Retour