Aide au graphe

Bonjour,


J'ai essayé de poster un premier message, sans succès. J'essaie donc avec un autre truc. Je m'entraine à générer automatiquement un graphe à partir d'un tableau de données.

Le pb, c'est que je veux tout sélectionner. En sélectionnant tout (xldown + xl right), l'ordinateur enregistre la dernière cellule comme une cellule fixe.

Ce que je veux, c'est que si je rajoute des données dans mon tableau, la dernière cellule ne soit pas celle qui avait été enregistrée à l'origine mais la nouvelle cellule après modification.

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Graphe() Dim i As Integer Dim MaPlage As Range       Range("A1").Select Set MaPlage = Range("A1:B7") i = MaPlage.Cells.Count Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select ActiveSheet.Shapes.AddChart.Select ActiveChart.SetSourceData Source:=Worksheets(Feuil1).Range(Cells(1, 1), Cells(i)) ActiveChart.ChartType = xlLine ActiveChart.SetElement (msoElementChartTitleAboveChart)   With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Nbre de cotations" End With End Sub

---

Dans ce code, ça bug au niveau du ActiveSheet.Shapes.AddChart.Select : il me mettent erreur 1004. Qu'est-ce qui ne va pas?

Pouvez-vous m'aider svp?

Merci d'avance

Bonjour Coklin,
J'ai d'abord une question, veux tu à chaque fois créer un graphique ou peux tu te contenter d'adapter la source de donnée ?

Sinon, quoi qu'il en soit, voici déjà une astuce pour définir la zone de ton tableau, en effet les select sont à éviter:
Pour trouver la dernière ligne utilisée, renvoi un nombre:

Code:

---

NbLigne = Sheets("TaFeuil").UsedRange.Rows.count

---

Pour la dernière colonne, même principe:

Code:

---

NbCol = Sheets("TaFeuil").usedRange.columns.count

---

Testes déà ça pour voir si ça te renvoi le bon numéro de colonne et de ligne selon ton tableau.
Ensuite, je te propose d'utiliser l'enregistreur de macro pour modifier la source de donnée, tu n'auras qu'à ensuite adapter avec les variables (comme tu as déjà fait)
Si tu bloques dis le...
A+

Merci de ton aide,


J'ai utilisé ta petite astuce pour identifier le nombre de lignes et de colonnes, et j'ai vérifié avec un espion. Ca marche.

Mon pb reste le même, le programme bloque à la ligne :

Code:

---

ActiveSheet.Shapes.AddChart.Select

---

Je ne sais pas ce qui fait bugger le programme.

As-tu une idée?

Merci d'avance

Coklin

Code:

---

ActiveSheet.Shapes.AddChart.Select

---

Tu ne peux pas utiliser adchart.select
Tu ne peux pas ajouter et selectionner
enlève le .select

Comme toujours le select sont a éviter tu devrais apprendre a t'en passer, mais c'est un avis personnel

Le graph ajouter est automatiquement le activechart pas besoin de sélectionner

J'ai enlevé le .Select et je prends note de ton conseil. J'ai encore des progrès à faire.

Toutefois, le même problème persiste, avec la même erreur qui s'affiche.

Pour rappel, voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Graphe() Dim i As Integer Dim MaPlage As Range Range("A1").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select NbLigne = Sheets("Feuil1").UsedRange.Rows.Count NbCol = Sheets("Feuil1").UsedRange.Columns.Count ActiveSheet.Shapes.AddChart ActiveChart.SetSourceData Source:=Worksheets(Feuil1).Range(Cells(1, 1), Cells(NbLigne, NbCol)) ActiveChart.ChartType = xlLine ActiveChart.SetElement (msoElementChartTitleAboveChart)   With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = "Nbre de cotations" End With End Sub

---

Je ne comprends pas pquoi le ActiveSheet.Shapes.AddChart bug alors qu'avant que je ne cherche à faire ce que je veux, ça fonctionnait.

Any idea?

Merci encore

Coklin

Ton premier progère mettre les balise code. C'est pénible d'avoir a lire des code ainsi et les modérateur ont autre chose a faire que de les rajouter a ta place.
Si tu ne sais pas le faire regarde le tout premier poste du forum
Bivenvenue sur le forum aide a l'utilisation (ou quelque chose que y ressemble)
Il y a a la fin une explication très claire.
Et édit ton message pour les rajouter toi même.

Pour en revenir a ton code ou se trouve-t-il un module standar le module de la feuille.

Essaye de remplacer

Code:

---

ActiveSheet

---

par

Code:

---

Sheets("Feuil1")

---

J'ai essayé ce que tu m'as dit, ça ne marche tjrs pas.

Et j'ai essayé de faire ça dans un module à part et le module de la feuille...sans succès.

Ca parait simple, mais ça ne l'est pas tant que ça, c'est assez relou!


J'attends ta réponse,

Merci encore,


Coklin

Je viens de tester effectivement c'est bien

Code:

---

Worksheets("Feuil2").Shapes.AddChart.Select

---

Par contre la remarque sur les balise code tiens toujours

essaye de modifier

Code:

---

Worksheets("Feuil1")

---

Met des guillemet autour du nom de la feuille
et il faut bien entendu que Feuil1 soit le nom de ton onglet

C'est bon ça marche.


En fait, j'avais un bug sur ma page puisqu'elle refusait que introduise des graphes sur ma feuille excel.

J'en ai donc ouvert une autre et CC le code, ça a marché.

Merci pour ta patience, et je prendrai note de ce que tu ma dit avec les balises

Bon week end

Coklin