[VB6]Gestion d'excel

Version imprimable

Bonjour à tous,

Je veux réaliser un graph en nuage de point sans marqueur avec une double barre d'erreur. J'ai déjà réalisé se type de graphique dans un autre programme mais là pas moyen d'avoir un graphique nuages de point, aprés la XL.Charts.Add il ne veux plus continuer
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
XL.Range("A2:B" & nbepoint).Select
XL.Charts.Add
XL.ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
XL.ActiveChart.SetSourceData Source:=XL.Sheets("synthèse").Range("A2:B" & nbepoint), PlotBy:=xlColumns
XL.ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="GraphPd"
With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Nombre de cycles"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Moyenne Pd (µm)"
End With
XL.ActiveChart.SeriesCollection(1).Select
XL.ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, Amount:="=synthèse!F2:F" & nbepoint, MinusValues:="=synthèse!F2:F" & nbepoint

merci pour vos réponses

a+ :wink:

30/03/2006, 11h43
ouskel'n'or

Modifie le paramètre de ChartType

Citation:

Envoyé par L'aide

Pour le nuage de points seul, c'est xlXYScatter.
Nuage de points et courbes et marqueurs xlXYScatterLines
Nuages de points et courbes sans marqueurs de données xlXYScatterLinesNoMarkers

A+
30/03/2006, 11h54
biquet
Voici le message d'erreur qu'il affiche pour le code suivant
Code:

1 2 XL.ActiveChart.ChartType = xlXYScatterLinesNoMarkers
message erreur : "erreur d'execution '13' type incompatible"

qu'en pensez vous
30/03/2006, 12h20
ouskel'n'or

Tu as regardé l'aide dans Excel ? Tu as peut être une version dans laquelles les paramètres ont évolué (j'ai VBA97)

Tu dis, si ce n'est pas résolu cet après-midi, je regarderai

A tout'
30/03/2006, 12h53
biquet

j'ai microsoft excel 2000 et le microsoft visual basic d'excel est la version 6.3

a+
30/03/2006, 13h39
biquet

Pb résolu, il fallait que je coche dans Projet\référence
"Microsoft Excel 9.0 Object Library"
a+
30/03/2006, 14h03
ouskel'n'or

Dans changer le paramètre de ChartType ?

A+
30/03/2006, 14h06
biquet

Dans le haut de ta fenetre VB, tu as l'onglet Fichier puis Edition puis Affichage et puis Projet.
Tu rentre dans Projet et tu descend dans le menu déroulant vers référence

a+
30/03/2006, 14h27
ouskel'n'or

Oui... :wink: Ma question était sur la syntaxe de ta ligne : As-tu mis

Code:

XL.ActiveChart.ChartType = xlXYScatterLinesNoMarkers

ou

Code:

XL.ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

Merci

A+

La deuxième réponse avec Smooth

Un autre petit pb, pour inserer une barre d'erreur en positif, j'ai écrit ceci mais il me dit que la methode ErrorBar a échoué
Code:

1 2 3 4 XL.Charts("GraphPd").Activate XL.ActiveChart.SeriesCollection(1).Select XL.ActiveChart.SeriesCollection(1).ErrorBar Direction:=xlY, Include:=xlErrorBarIncludeBoth, Type:=xlErrorBarTypeCustom, Amount:="=synthèse!C2:C" & nbepoint
a+ :wink:

30/03/2006, 16h24
ouskel'n'or
Et si tu mets
Code:

1 2 Valeur = Sheets(synthèse).range(C2:C" & nbepoint) Type:=xlErrorBarTypeCustom, Amount:=Valeur
ou un truc comme ça (si nbepoint est bien un N° de ligne) :cry:

A tout hasard, jamais utilisé :cry: :cry: :cry:

A+