Excel : nuage de points macro qui ne fonctionne pas

  • Initiateur de la discussion Initiateur de la discussion theaym
  • Date de début Date de début

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 !

theaym

XLDnaute Nouveau
Bonjour,

je cherche à nommer des points d'un nuage de points. Je ne veux pas d'etiquettes car j'ai trop de points et le graph devient illisible.
J'ai trouvé sur ce site une macro qui est ce que je recherche mais elle fonctionne mal.
Normalement, lorsque l'on place la souris sur un point, le nom s'affiche ainsi que les coordonnées. Les coordonnées sont correcte mais c'est toujours el meme nom qui s'affiche. Je n'arrive pas à corriger la macro.
Quelqu'un connait il un macro similaire ?
Voici la macro en question :

Sub

Set valeursx = Application.InputBox(prompt:="Sélectionnez les valeurs des X", Type:=8)
Set valeursy = Application.InputBox(prompt:="Selectionnez les valeurs des Y", Type:=8)
Set nomz = Application.InputBox(prompt:="Selectionnez les noms de vos points", Type:=8)

nomz.Select
R = Selection.Rows.Count

Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection(1).XValues = valeursx
ActiveChart.SeriesCollection(1).Values = valeursy
With ActiveChart
.Legend.Delete
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
False, ShowSeriesName:=False, ShowCategoryName:=True, ShowValue:=False, _
ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection(1).DataLabels.Select

For i = 1 To R
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Text = "=Feuil1!R" & i & "C1"
Next i


End Sub

Je n'arrive pas à la corriger. Est ce que quelqu'un aurait la solution ?


Aym
 
- 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éponses
1
Affichages
520
Réponses
0
Affichages
459
Réponses
2
Affichages
1 K
Retour