Histogramme + courbe = graphique. Données sur tableau

Lumanitoc -  
 Lumanitoc -
Bonjour à tous,

Je cherche a faire un graphique combo sur VBA avec un histogramme et une courbe (loi normale cumulé) sur le même graphique.
Mes données sont dans des variables tableaux.
Je n'arrive pas a mettre les 2 sur le même graphique.
pour avoir l'un ou l'autre j'utilise le code suivant :


Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="AXA"
With ActiveChart
.SeriesCollection(1).XValues = absi()
.SeriesCollection(1).Values = N()
.SeriesCollection(1).ChartType = xlLine
.SeriesCollection(1).Name = "loi normale"
End With


Comment ajouter l'histogramme ? J'ai tout essayé mais ça ne marche pas...
Merci d'avance pour votre aide :))
Bonne journée !
A voir également:

4 réponses

Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
Bonjour
Un exemple: cliquer sur le bouton "Création graphique"
https://www.cjoint.com/c/FDmnE6s0Tfk
Cdlt
0
Lumanitoc
 
Bonjour, et merci pour ton aide.

Je n'arrive pas a lancer ton code, cela ne fonctionne pas.

J'ai bien regardé ton code ceci dit, mais ça ne regle pas mon pb malheuresement.
J'arrive bien a créé un graphique combo à partir de plage de données comme tu l'a fait, ce que je n'arrive pas a faire, c'est de le créer a partir de variable macro.
Merci encor
0
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
RE
Voici la correction
https://www.cjoint.com/c/FDmodGEnrkk
Quant aux variables, De quelles variables s'agit-il? de la base de données, autres choses?
Il faudrait disposer d'un extrait du tableau pour obtenir la réponse souhaitée.
cdlt
0
Lumanitoc
 
Je sens que je ne suis pas loin de réussir !

Mes variables sont des données :

Pour mon histogramme :


Dim cumulprc() As Double
For i = 1 To np
ReDim Preserve cumulprc(i)
cumulprc(i) = cumul(i) / somfi
Next i

Cela dépend donc de la variable np, de format integer que j'ai préalablement défini.


La variable N() est la fonction de répartition de la loi Normale :


Dim N() As Double
For i = 0 To 10 Step 0.05
ReDim Preserve N(i * 20 + 1)
N(i * 20 + 1) = Application.WorksheetFunction.Norm_Dist((i - 5), 0, 1, True)
Next i


Le code de la loi normal est un peu bizarre pr le moment j'en conviens.. Je le modifierai plus tard..

Du coup, je n'ai pas la possibilité de séléctionner des plages de données, c'est ce qui me pose pb.. :/
0
Lumanitoc
 
Personne n'a une idée..? Ca ne marche tjrs pas :'(
0