[Terminé] - Recherche de graphes

O

orphelion

XLDnaute Occasionnel

• 20 Avril 2011

• #2

Re : Recherche de graphes

Salut mon grand pierre 😉

petite recherche google et j'ai trouve ca:

Code:

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Avril 2011

• #3

Re : Recherche de graphes

Bonjour,

si tu veux le nombre :

Code:

MsgBox Feuil1.ChartObjects.Count

bonne journée
@+

 

Vote positif 0 Vote négatif

O

orphelion

XLDnaute Occasionnel

• 20 Avril 2011

• #4

Re : Recherche de graphes

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

 

Vote positif 0 Vote négatif

P

pierre le grand

Guest

• 20 Avril 2011

• #5

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.

 

Vote positif 0 Vote négatif