Discussion :

[Nyck0las]

Bonjour,

je suis en train de réaliser une macro pour traiter un ensemble de données.

Pour diverses caractéristiques, j'ai calculé la valeur d'un individu ainsi que le minimum, le max, la moyenne et la médiane d'un échantillon comparatif.

Ce que j'aimerais faire, c'est réaliser une sorte d'histogramme permettant de caractériser l'individu en question.
Chacune des colonnes correspondrait à une caractéristique, la hauteur de la colonne serait la valeur pour cet individu. J'aimerais également faire figurer pour chaque colonne les grandeurs de l'échantillon (min, max, moy et med). J'espère que je suis suffisament clair ...

quelqu'un aurait-il quelques pistes pour m'orienter ??

merci

[Nyck0las]

j'ai trouvé comment faire pour superposer en utilisant les styles personnalisés de graphs mais par contre j'ai d'autres soucis

j'ai crée un tableau

Code :

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

1
2
dim TabG
TabG=array()

que je remplis ainsi

Code :

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

1
2
3
4
5
6
7
8
ReDim TabG(0 To 5, 1 To 4)
    For i = 1 To 4
        TabG(0, i) = Cells(1, ColN + i)
        TabG(1, i) = Cells(2, ColN + i)
        For j = 2 To 5
            TabG(j, i) = Cells(LgEt - 2, ColN + i)
        Next
    Next

et je m'en sers ensuite comme donnée source pour mon graph

Code :

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

1
2
3
4
For i = 1 To 5
    ActiveChart.SeriesCollection(i).XValues = TabG.Rows(0)
    ActiveChart.SeriesCollection(i).Values = TabG.Rows(i)
Next

mais çà ne marche pas, çà coince sur les dernières lignes avec l'erreur 13 : incompatibilité de type

[Nyck0las]

J'ai réécrit mon code en utilisant des strings :

Code :

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

Dim TabG(0 To 5) As String

j'affecte les valeurs à chaque TabG(i) par concaténation et ensuite j'utilise ces données par :

Code :

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

1
2
3
4
For i = 1 To 5
    ActiveChart.SeriesCollection(i).XValues = TabG(0)
    ActiveChart.SeriesCollection(i).Values = TabG(i)
Next

mais çà coince encore, voici le message :

Erreur d'exécution 1004 : la méthode SeriesCollection de l'objet _Chart a échoué

et la première ligne activechart est surlignée

[SilkyRoad]

bonsoir


Utilise deux tableaux différents pour les abscisses et les ordonnées:

Comment créer un graphique à partir de tableaux ?


bonne soirée
michel