[VBA-E] Actualiser un Graphique aprés Placement des données

Lut à tous,

J'utilise vba pour piloter excel;

Je voudrais savoir comment actualiser un graphique qui depend de valeurs présentes dans quelques cellules aprés avoir changé les valeurs de ces cellules dans une macro.

L'actualisation se fesait automatiquement lorsque j'avais des entiers dans mes cellules mais maintenant je suis obligé de double cliquer sur une cellule pour que la valeur de celle-ci soit prise en compte dans le graphique.

je pensai à quelque chose dans le genre :
Sheets("Graphs").chart("Avancement des tests").Refresh

evidement ca ne va pas .. quelqu'un aurait-il la solution ?

Merci d'avance ;)

salut tout l'monde,

apparement mon probleme ne vous di pas grand chose,

pour le resoudre, sauriez-vous comment simuler l'edition d'une cellule ?
(le double-clic sur celle-ci)

Merci ;)

Bonjour ,
j'ai déjà eu ce genre de problème.

maintenant je redéfinis le graphique, après que des macros aient modifié les données sources
-->> Je ne Touche pas au TYPE de Graphique

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Charts("TONGRAPH").ChartTitle.Text = "TON TEXTE"   Charts("TONGRAPH").SetSourceData Source:=Sheets("TAFEUILLE").Range ("COORDONNEES DES DONNEES SOURCE")   Charts("TONGRAPH").Axes(xlCategory).CategoryNames = Sheets("TAFEUILLE").Range("COORDONNEES DES ABCISSES")))   ' Et je redéfinit aussi la Légende, si elle existe   Charts("TONGRAPH").SeriesCollection(1).Name = "NOM DE LA SERIE 1" Charts("TONGRAPH").SeriesCollection(2).Name = "NOM DE LA SERIE 2" ' etc...

---

Si ça peut t' aider .....

Et si tu essayais simplement, par soft :

Code:

---

Application.calculate

---

Manuellement : F9
ou "outils -> options -> Calcul immédiat
Tu dis

Merci pour vos reponse ;)

ouskel'n'or :

le Application.calculate ne change rien (ni le F9),
je n'ai pas trouvé l'option calcul immediat , peut-etre est-ce parceque jutilise excel 2000 ..

durdesfois :

je test de suite ta solution,
j'ai crée le graph sans passer par le code, quel est le nom du graph à utiliser pour Charts("TONGRAPH") ??

bye a+

Tu fais

Code:

---

Msgbox Activesheet.Shapes(1).name

---

si tu n'as qu'un graphe, et là tu as le nom du graphe en grec :mouarf: (qui n'est pas celui affiché dans la feuille de calculs :evil: )
A+

Re,

je sens bien que c'est la bonne solution mais je narive pas à acceder à mon graphique,

lors du :

Code:

---

Charts("Chart 9").ChartTitle.Text = "TON TEXTE"

---

j'obtien l'erreur (code 9) l'indice n'appartient pas à la selection. (meme lorsque le code est dans la meme feuille que le graphique)

ps: la msgbox me renvoye Chart 9

Quel est le pti truc qui ne va pas ?

Tu dois le sélectionner pour lui faire des chose dedans ;) Et pour le sélectionner, tu dois désigner la feuille.
Tu as récupéré le bon nom ?

yep,

bon, ma feuille se nomme "Graphs", mon graph "Chart 9" et je narive toujours pas à le selectionner ..

j'ai essayé plusieurs solution comme :

Code:

---

1 2 3

Sheets("Graphs").Select   Charts("Chart 9").ChartTitle.Text = "TON TEXTE"

---

ou

Code:

---

1 2 3 4

Sheets("Graphs").Select Dim Index As Integer Index = 2 Charts(Index).ChartTitle.Text = "TON TEXTE"

---

toujours la meme erreur (sur la der ligne), l'indice n'appartient pas à la selection.

Pourquoi ne trouve-til pas le graphique ?

Merci d'avance

Re,

petite précision :

le graphique est incorporé dans la feuille de calcul (ChartObjects)

et je n'ai pas d'objet correspondant dans l'explorateur du projet.

:?

Redefinition du graphique Reussie !!

Code:

---

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

Private Sub Worksheet_Activate()   ActiveSheet.Range("A1").Activate ActiveSheet.ChartObjects(2).Activate   ActiveChart.ChartTitle.Text = "Avancement des tests"   ActiveChart.Axes(xlCategory).CategoryNames = Sheets("Graphs").Range("B67:B70")   ActiveChart.SeriesCollection(1).Name = "Tests executés" ActiveChart.SeriesCollection(1).Values = Sheets("Graphs").Range("C67:C70")   ActiveChart.SeriesCollection(2).Name = "Tests à executer" ActiveChart.SeriesCollection(2).Values = Sheets("Graphs").Range("D67:D70")   End Sub

---

mais le post n'est tjr po résolu .. :cry:

Cela actualise, si je met un range vide rien ne s'affiche mais quand je remet le bon range il me faut encore doubleCliquer sur la celule modifiée ..

je vais surement abandonner, pourtant je developpe en c++ d'habitude et c'est du vba qui me bloque !! l'halu ..

bye

Alors,

Comme tu utilises des Graphiques incorporés dans une feuille, la collection
Charts est VIDE.

Dans ce cas tu dois te servir le la collection ChartObjects

Ce qui veux dire que tu dois remplacer:

Charts("TONGRAPH")

par

sheets("Graphs").Chartobjects("TONGRAPH").Chart

Je n'ai pas essayé, mais ca tourne autour de çà.


Regarde 'ChartObject" dans l'aide VBA et tu verras mieux.

A+

Pour le pb de la mise à jour des données par clic dans les cellules, pour rafraîchir tes données, comment t'y prends-tu ? Peux-tu mettre un bout de code ?

Re,

je place simplement mes données comme cela :

Code:

---

1 2 3 4 5 6

' pour le titre Sheets("Graphs").Cells(70, 2).Value = "Admin : " & nbTestPasse & "/" & nbTest ' pour les données Sheets("Graphs").Cells(70, 4).Value = Format(((TempEst - TempRestant) / 60), "#0.0") Sheets("Graphs").Cells(70, 3).Value = Format((TempRestant / 60), "#0.0")

---

ps: h est un double les autres sont des entiers

Peut etre faut-il placer directement des variable d'un certain type ?

Je rentre tard dans la discussion mais mieux vaut tard que jamais !

J'ai déjà eu ce problème avec des nombres flottants. La courbe est bonne mais l'étiquette (= valeurs des ordonnées affichées pour chaque abscisse directement sur le graphique) ne s'affiche pas correctement.

J'ai résolu ce problème de 2 façons:
1) Tu fais une macro qui redéfinit tes axes (abscisse & ordonné) [mais toi ça ne marche pas si j'ai bien lu ? ]
2) tu sauvegarde ton classeur: ActiveWorkbook.Save et l'actualisation se fait d'elle même

La deuxième solution est très "naïve", mais elle fonctionne pour moi !

J'espère t'avoir aidé !