est il possible de mettre ca dans une boucle

ActiveSheet.ChartObjects("Graphique 1").Activate

du genre :

i=0
do while
ActiveSheet.ChartObjects("Graphique "" & i).Activate
i=i+1
loop

ca ne marche pas mais il faudrait que je trouve un moyen d incrémenter ca !!!

merci  

Salut
Eventuellement, en respectant la norme d'écriture VB :
ActiveSheet.ChartObjects("Graphique " & CStr(i)).Activate
mais pas testé.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)

Salut,

OK avec Jack mais je rajouterai : comment tu arrêtes ta boucle ? Il doit manquer quelque chose à ton do while, genre do while i <= TonNombreDeCharts. A moins que tu ne veuilles faire une boucle infinie.
De toutes manières, si tu fixes une limite, ça sera toujours le dernier qui sera activé au sortir de la boucle. Et, si tu n'en fixes pas, ou qu'elle est > au nombre de Charts, ça va planter.

Dis, tu ne voudrais pas simuler une guirlande de Noël par hasard ? ;-)

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?