[VBA Excel] Création d'un graphique

Question

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 · Answer

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


dim TabG
TabG=array()


que je remplis ainsi


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


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

caco64 · Answer

Je ne connais pas cette propriété rows et je me demande si le problème ne vient pas de là.
Un truc qui marche consiste à stocker les valeurs dans un tabeau à une seule dimension.
Si tu l'appelle mes_valeurs = array()
ActiveChart.SeriesCollection(i).XValues = mes_vleurs marche bien
Mais cela suppose de redéfinir les valeurs contenues dans mes_valeurs à chaque boucle, en fonction de celles stockées dans TabG

Autrement basiquement, tu écris les valeurs dans une variable string contenant les valeurs séparées par des virgules et ça marche bien aussi.
ActiveChart.SeriesCollection(i).XValues = "3,6,7"

La haine aveugle n'est pas sourde

Nyck0las · Answer

J'ai réécrit mon code en utilisant des strings comme l'as suggéré :

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 :

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

Nyck0las · Answer

la macro me trace la première série du graph et bloque après

Nyck0las · Answer

aucune idée en vue ?????

caco64 · Answer

Ton problème vient du fait que tu dois créer les séries qui n'existent pas encore avant de les définir.

Donc là, tu fais la modif suivante :

ActiveSheet.ChartObjects("Graphique 2").Activate
nse = ActiveChart.SeriesCollection.Count
For i = 1 To 5
    If i > nse Then ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(i).XValues = TabG(0)
    ActiveChart.SeriesCollection(i).Values = TabG(i)
Next

Et là, ça devrait fonctionner.

La haine aveugle n'est pas sourde

Nyck0las · Answer

super merci beaucoup, çà marche !!!!!!!!!

caco64 · Answer

caco64 · Answer

Pas de quoi.

La haine aveugle n'est pas sourde

[VBA Excel] Création d'un graphique

9 réponses

Votre réponse

Discussions similaires