graphique nuage de points et vba

[yoyo74]

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 ! )

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]

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]

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 .

 

[pierrejean]

Re : graphique nuage de points et vba

bien noté

mais un imprévu me mobilise
je ne pourrai probablement pas revenir avant demain
si donc quelqu'un peut prendre la releve ....
sinon un peu de patience ,merci

 

[pierrejean]

Re : graphique nuage de points et vba

bonjour

toutes mes excuses pour le delai
mais j'ais beaucoup galéré pour un bien faible resultat

voir s'il y a des pistes dans le fichier joint (module3)

 

[yoyo74]

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é