Histogramme + courbe = graphique. Données sur tableau

Fermé
Lumanitoc - Modifié par Lumanitoc le 12/04/2016 à 13:56
 Lumanitoc - 16 avril 2016 à 15:55
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 lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
12 avril 2016 à 15:32
Bonjour
Un exemple: cliquer sur le bouton "Création graphique"
https://www.cjoint.com/c/FDmnE6s0Tfk
Cdlt
0
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 lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 338
12 avril 2016 à 16:07
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
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
Personne n'a une idée..? Ca ne marche tjrs pas :'(
0