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 ?