Discussion :

[beekeep]

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

[beekeep]

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 ;)

[durdesfois]

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 :

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

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

[ouskel'n'or]

Et si tu essayais simplement, par soft :

Code :

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

Application.calculate

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

[beekeep]

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+

[ouskel'n'or]

Tu fais

Code :

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

Msgbox Activesheet.Shapes(1).name

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

[beekeep]

Re,

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

lors du :

Code :

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

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 ?

[ouskel'n'or]

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 ?

[beekeep]

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 :

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

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

ou

Code :

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

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

[beekeep]

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.

[beekeep]

Redefinition du graphique Reussie !!

Code :

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

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

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

[durdesfois]

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+

[ouskel'n'or]

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 ?

[beekeep]

Re,

je place simplement mes données comme cela :

Code :

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

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 ?

[Slooby]

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