Discussion :

[darkbator]

Bonjour à tous,

Pour un projet, je souhaite tracer un histogramme à partir de deux colonnes qui représentent les abscisses et les ordonnées (colonnes B et C).
La difficulté que j'ai est que le nombre de cellules dans les colonnes est variable selon les cas.

J'ai mis en pièce jointe la macro que j'ai essayé d'écrire: pour exemple, j'ai mis mes abscisses en B4:B7 et mes ordonnées en C4:C7.

Quand j'essaie d'insérer une variable M (en l'ayant déclarée précédemment) à la place de la valeur 7 dans les lignes de code, cela ne fonctionne pas.

Auriez-vous une solution à me proposer ?

Merci d'avance,
Jules

[Daniel.C]

Bonjour,

Définis deux plages dynamiques (elles s'ajustent au nombre de cellules). Cela suppose que la colonne B ne contient que les valeurs d'abscisse :
PlageX défini par :

Code :

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

=DECALER(Feuil1!$B$4;;;NBVAL(Feuil1!$B:$B))

et PlageY défini par :

Code :

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

=DECALER(PlageX;;1)

Utilise ensuite :

Code :

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

1
2
    ActiveChart.FullSeriesCollection(1).Values = "=Classeur1!PlageY"
    ActiveChart.FullSeriesCollection(1).XValues = "=Classeur1!PlageX

"

"Classeur1" est, tu l'as compris, le nom de mon classeur non enregistré.

[darkbator]

Merci Daniel pour ta réponse.

Ce que tu me proposes a fonctionné quand j'ai utilisé un exemple simple avec deux colonnes de valeurs mais quand j'essaye de l'inclure dans une de mes macros cela ne fonctionne pas (voir PJ): la colonne d'abscisses commence en F6 et la colonne d'ordonnées commence en G6; mon classeur s'appelle Resultats et ma feuille De.

Cela me met un message d'erreur quand j'exécute la macro: "Erreur d'exécution '1004':

Erreur définie par l'application ou par l'objet.

Merci d'avance,

Jules

[Daniel.C]

Bonjour,

Est-ce que tu peux mettre ton classeur en PJ ?

[darkbator]

Merci Daniel, j'ai réussi à régler mon problème en changeant la façon de procéder (voir PJ).
Mais j'ai toujours une petite erreur à corriger: la macro me donne l'histogramme du haut alors que je souhaite avoir celui du bas; je fais Clic Droit puis Modifier le type de graphique pour l'obtenir. Quand j'enregistre cette modification et que je la rajoute à ma macro, rien ne change, j'ai toujours l'histogramme du haut.

Aurais-tu une solution ?

Merci d'avance,

Jules

[Daniel.C]

Bonjour,

Mets ton classeur en PJ.

[darkbator]

Voilà le classeur en PJ.

[Daniel.C]

Ton problème semble résolu :

[darkbator]

Oui parce que j'ai modifié "à la main" le graphique pour avoir le bon.

Dans le fichier que je mets en PJ dans ce message, tu auras le graphique d'origine qui m'est donné par ma macro.

Jules

[Daniel.C]

Code :

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

1
2
3
4
5
    ActiveChart.FullSeriesCollection(1).Trendlines.Add
    With ActiveChart.FullSeriesCollection(1).Trendlines(1)
        .Type = xlPolynomial
        .Order = 6
    End With

devrait faire l'affaire.

[darkbator]

Malheureusement ça n'a pas marché; ça me donne toujours le même graphique (le graphique du haut dans mon message de 11h30 aujourd'hui).
Les lignes de code que tu m'as données ressemblent à celles que j'avais déjà avant, est-ce normal ?

Jules

[Daniel.C]

Ouvre le classeur joint et clique sur le bouton "Tendance" :

darkbator Exemple.xlsm

[darkbator]

Merci Daniel pour le classeur, ça résout mon problème au niveau du graphique car j'obtiens celui que je veux, sauf que l'échelle des abscisses n'est pas la bonne: je souhaiterai avoir la colonne de gauche (celle à gauche de la plus à droite) comme valeurs d'abscisses.

Merci d'avance,

Jules

[darkbator]

J'ai trouvé la solution à mon problème en mettant:

Code :

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

ActiveChart.FullSeriesCollection(1).XValues = Range("PlageXA")

Merci beaucoup pour ton aide Daniel !