VB ChartObjects - Programmation
Marsh Posté le 28-11-2001 à 11:10:43
Dim graph As ChartObjects
Workbooks("ASNSMD2.xls" ).Activate
For i = 1 To Sheets.Count
sheets(i).select
For Each graph In ActiveSheet.ChartObjects
ce serait pas :
ActiveSheet.graph.activate
ou un truc ds le style ?
' ActiveSheet.ChartObjects(b).Activate
c koi ton ChartObjects(b) ???
' toto = ActiveChart.Name
Next
Next
Marsh Posté le 27-11-2001 à 17:46:45
bonjour,
g pas mal de pb avec un code VB (genre de temps en temps ca marche et puis tout d'un coup ca marche plus !!). g 1 classeur excell 97 avec 2 feuilles et des graphiques sur chacune.
g besoin de faire des actions sur chacun de ces graphiques donc je dois tous les parcourir.
pour cela je fais :
Dim graph As ChartObjects
Workbooks("ASNSMD2.xls" ).Activate
For i = 1 To Sheets.Count
sheets(i).select
For Each graph In ActiveSheet.ChartObjects
ActiveSheet.ChartObjects(b).Activate
toto = ActiveChart.Name
Next
Next
mais ca ne fonctionne pas, il me sort "propriété ou méthode non géré par cet objet"
g aussi essayé de faire différemment ma 2ème boucle comme ceci :
For j = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(b).Activate
toto = ActiveChart.Name
Next
mais ca marche tjs po.
si qq aurait une idée ce serait sympa ou un site qui explique bien le fonctionnement de tout ça car je n'ai pas d'aide.
merci d'avance !!!:jap: