Discussion :

[biquet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

Modifie le paramètre de ChartType

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+

[biquet]

Voici le message d'erreur qu'il affiche pour le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
XL.ActiveChart.ChartType = xlXYScatterLinesNoMarkers

message erreur : "erreur d'execution '13' type incompatible"

qu'en pensez vous

[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'

[biquet]

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

a+

[biquet]

Pb résolu, il fallait que je coche dans Projet\référence
"Microsoft Excel 9.0 Object Library"
a+

[ouskel'n'or]

Dans changer le paramètre de ChartType ?

A+

[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+

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

XL.ActiveChart.ChartType = xlXYScatterLinesNoMarkers

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

XL.ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

Merci

A+

[biquet]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

Et si tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

A tout hasard, jamais utilisé

A+