Discussion :

[veer2006]

bonjour,
je cherche un code qui permet de selectionner tous les graphiques qui se trouvent dans une feuille excel.

merci

[dadavyvy]

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
 
    Dim tabl(), chrt As ChartObject
    n = 0
    For Each chrt In ActiveSheet.ChartObjects
        ReDim Preserve tabl(n)
        tabl(n) = chrt.Name
        n = n + 1
    Next chrt
 
    ActiveSheet.Shapes.Range(tabl).Select
End Sub

Après adaptation du résultat de l'enregistreur de macro.

[veer2006]

merci beaucoup ca marche bien