[Terminé] - Recherche de graphes

[pierre le grand]

Bonjour à tous ,🙂

Je souhaite dans une boucle simple retrouver le nombre de graphes contenu dans une feuille d'un classeur puis les enumérer avec un msgbox.

Cela est je pense aisé mais il me manque le point de départ.

Merci à tous😎

 

[orphelion]

Re : Recherche de graphes

Salut mon grand pierre 😉

petite recherche google et j'ai trouve ca:

Sub test()
Dim Graph As ChartObject
Dim nbG As Integer
nbG = 0
For Each Graph In Sheets("sheet1").ChartObjects
nbG = 1 + nbG
Next Graph
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG
End Sub

ca semble plutot bien a premiere vue. a tester!

a+

 

[Pierrot93]

Re : Recherche de graphes

Bonjour,

si tu veux le nombre :

MsgBox Feuil1.ChartObjects.Count

bonne journée
@+

 

[orphelion]

Re : Recherche de graphes

Vu comme ca...ca a l'air mieux 🙂 Merci Pierrot

 

[pierre le grand]

Re : Recherche de graphes

Bonjour ,

Merci pour ta solution qui me convient totalement. C'était ce qui me manquait pour lancer mon traitement.

J'aurai certainement d'autres questions, mais j'ouvrirai alors une autre discussion.

Merci à tous pour votre participation et à bientôt.