graphique nuage de points et vba

yoyo74

XLDnaute Nouveau
bonjour, j'ai un étudiant qui souhaite réaliser un graphique en nuage de points avec plus de 180 données (x: le pib; y: le montant du commerce extèrieur) mais Excel ne digère pas ce grand nombre de données ! et il affecte à tous les points les mêmes abcisses et les mêmes ordonnées (sauf pour 8 valeurs !:confused: )

j'ai tenté une macro vba en itération pour reprendre les valeurs de chaque point mais je bloque dessus !!

SOS
voici une copie de ma vba
Sub testyoyo()

Dim feuille As String
Dim n As Integer
Dim m As Integer
Dim a As Integer
Dim i As Integer
Dim j As Integer


feuille = InputBox("enter the sheet name", ["sheet name"])

n = InputBox("enter the firstline value ", ["first line value position"])

m = InputBox("enter the firstcolumnvalue ", ["first column value position"])
Sheets(feuille).Select
a = m

While Cells(n, m) <> ""
m = m + 1
Wend

Charts.Add
ActiveChart.ChartType = xlXYScatter
'allors là j'ai un problème pour sélectionner le tableau !!!!!!
ActiveChart.SetSourceData Source:=Sheets(feuille).Range(n&a:n+1 & m), PlotBy:=xlRows
j = 1

For i = a To m
'ici j'ai penser changer la valeur de la série avec mon itération mais il veut pas !!!!
ActiveChart.SeriesCollection(j).XValues = "=Sheet3!" & Cells(n, i)
ActiveChart.SeriesCollection(j).Values = "=Sheet3!&cells(n+1,i)"
ActiveChart.SeriesCollection(j).DataLabels.Select
Selection.AutoScaleFont = False
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 5.5
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic


End With
j = j + 1
Next i
ActiveChart.Location Where:=xlLocationAsNewSheet

With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With


End Sub
 

pierrejean

XLDnaute Barbatruc
Re : graphique nuage de points et vba

en premiere approche

ActiveChart.SetSourceData Source:=Sheets(feuille).Range(n&a:n+1 & m), PlotBy:=xlRows
j = 1

pour definir le range
tester:
range(cells(n,a).address,cells(n+1 & m).address)

mais sans garantie !!!

le plus simple serait de creer un fichier exemple pour que l'on puisse essayer

j'avoue avoir la flemme de le faire

A+
 

yoyo74

XLDnaute Nouveau
Re : graphique nuage de points et vba

j'ai le fichier et j'ai deux module le premier avec mon test (mais il doit êtrepossible de ne pas s'ennuyer avec les msg box) ensuite il y a un module que j'ai récupéré sur le site .
 

Pièces jointes

  • testgraph.xls
    35.5 KB · Affichages: 175
  • testgraph.xls
    35.5 KB · Affichages: 186
  • testgraph.xls
    35.5 KB · Affichages: 192

yoyo74

XLDnaute Nouveau
Re : graphique nuage de points et vba

j'ai regardé le module mais mon problème est de corriger les erreurs d'excel dans le choix des abscisses et des ordonnées j'ai fait un graphique et les séries ne sont pas bonnes je doit quitter mais je revient avec le fichier zippé
 

Discussions similaires

Réponses
9
Affichages
146

Membres actuellement en ligne

Statistiques des forums

Discussions
313 283
Messages
2 096 813
Membres
106 752
dernier inscrit
Tahiri1976