selection des graphiques dans une feuille

[jean29]

Bonjour a tous

je cherche 'desesperement' un code qui puisse me permettre d'activer chaque graphique d'une feuille, les uns apres les autres.
Un truc du genre 'for each graphique in sheets('1') etc'

Je suppose que ca doit pas etre compliqué mais je trouve pas (faut dire qu'on est lundi matin...)

merci d'avance

 

[Alain CROS]

Bonjour.

Sub LesGraphiques()
Dim Cht As ChartObject
For Each Cht In ActiveSheet.ChartObjects
MsgBox Cht.Name
Next Cht
Set Cht = Nothing
End Sub

Alain CROS

 

[jean29]

Merci Alain c'est super cool

A+