Histogramme avec un nombre de cellules variable

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

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:

---

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

---

et PlageY défini par :

Code:

---

=DECALER(PlageX;;1)

---

Utilise ensuite :

Code:

---

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é.

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

Bonjour,

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

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

Bonjour,

Mets ton classeur en PJ.

Voilà le classeur en PJ.

Ton problème semble résolu :

Pièce jointe 211243

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

Code:

---

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.

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

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

Pièce jointe 211273

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

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

Code:

---

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

---

Merci beaucoup pour ton aide Daniel !