Bonjour,
je cherche à faire une macro qui me permettra de créer un graphique de type nuage de point à partir d'une plage de données sélectionnée par l'utilisateur.
Autre petit problème le graphique devra étiqueter tous les points.
Par exemple si j'ai:
Etiquette X Y
Paris 7 / 9
Marseille -2 / 4
Bordeaux 5 / 2
je souhaite avoir un graphique m'affichant 3 points correspondants à chaque ville avec le nom de la ville affiché.
Pour sélectionner la plage de données:
Dim c As Variant
On Error Resume Next
Set c = Application.InputBox(prompt:="selectionner la plage de cellule ", _
Title:=" Plage de cellules à sélectioner", Type:=8)
On Error GoTo 0
If TypeName(c) = "range" Then c.Select
Ensuite pour créer le graphique:
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Range("??????")
Mais je ne sais pas quoi mettre comme données dans range car quand je met "c"
excel m'envoit sa comme erreur:
Erreur d'éxécution '1004'
La méthode d'éxécution 'range' de l'objet '_global' a échoué.
pour finir j'ai trouver sur le site de microsoft le code pour étiquetter :
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
mais indépendamment de leur procédure cela ne marche pas.
voila si quelqu'un pouvait m'éclairer
merci d'avance
Norip
je cherche à faire une macro qui me permettra de créer un graphique de type nuage de point à partir d'une plage de données sélectionnée par l'utilisateur.
Autre petit problème le graphique devra étiqueter tous les points.
Par exemple si j'ai:
Etiquette X Y
Paris 7 / 9
Marseille -2 / 4
Bordeaux 5 / 2
je souhaite avoir un graphique m'affichant 3 points correspondants à chaque ville avec le nom de la ville affiché.
Pour sélectionner la plage de données:
Dim c As Variant
On Error Resume Next
Set c = Application.InputBox(prompt:="selectionner la plage de cellule ", _
Title:=" Plage de cellules à sélectioner", Type:=8)
On Error GoTo 0
If TypeName(c) = "range" Then c.Select
Ensuite pour créer le graphique:
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Range("??????")
Mais je ne sais pas quoi mettre comme données dans range car quand je met "c"
excel m'envoit sa comme erreur:
Erreur d'éxécution '1004'
La méthode d'éxécution 'range' de l'objet '_global' a échoué.
pour finir j'ai trouver sur le site de microsoft le code pour étiquetter :
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
mais indépendamment de leur procédure cela ne marche pas.
voila si quelqu'un pouvait m'éclairer
merci d'avance
Norip