Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

PB VBA : Identification d'un graphique d'une feuille "graphique"

popsmelove

XLDnaute Nouveau
Bonjour,

Je ne sais pas trop comment appeler une feuille graphique mais vous pourrez voir ce que j'entends par là dans le fichier Excel joint pour exemple (feuille "Graph2").

Mon soucis est que pour ces feuilles je n'arrive pas à identifier qu'il y a un graphique depuis VBA.

Pour le test lancer la macro "Graph_test" du fichier joint, vous observerez que pour la feuille "graphique 2" VBA ne me trouve pas de graphique... ? sin quelqu'un a une idée je suis preneur.

J'ai créé cette feuille graphique en créant un graph puis en choisissant comme emplacement "nouvel feuille".

Merci d'avance pour votre aide
 

Pièces jointes

  • test_graph.xls
    60 KB · Affichages: 70
  • test_graph.xls
    60 KB · Affichages: 74
  • test_graph.xls
    60 KB · Affichages: 72

phlaurent55

Nous a quittés en 2020
Repose en paix
Re : PB VBA : Identification d'un graphique d'une feuille "graphique"

Bonjour popsmelove,

en considérant que les 5 premières lettres du nom de la feuille sont "Graph", on peut en déduire qu'il y a un graphique

à+
Philippe
 

popsmelove

XLDnaute Nouveau
Re : PB VBA : Identification d'un graphique d'une feuille "graphique"

Merci pour cette réponse, malheureusement ce fichier n'est qu'un exemple, le fichier à traiter ne comporte pas de feuilles portant le nom "Graph..." . C'est astucieux mais pas adéquat pour mon cas.

Il me faut vraiment réussir à identifier ces graphiques par VBA sans passer par le nom de la feuille ou du graphique.

Merci
 

pierrejean

XLDnaute Barbatruc
Re : PB VBA : Identification d'un graphique d'une feuille "graphique"

Bonjour popsmelove
Salut Phillippe

Une feuille graphique etant un graphique (et un seul ) je propose:

Code:
Sub Graph_test()
 
'Comptage du nombre de feuilles du classeur
 w = ActiveWorkbook.Sheets.Count
 
 For j = 1 To w
    ActiveWorkbook.Sheets(j).Select
   
    'Comptage du nombre de graphiques de la feuille
    z = ActiveSheet.ChartObjects.Count
    If ActiveSheet.Type = 4 Then z = 1
    MsgBox ("feuille : " & j & " Nombre de graph :" & z)
 Next j
End Sub

Nb: Le même raisonnement que celui de Philippe mais independant du nom de la feuille
 

popsmelove

XLDnaute Nouveau
Re : PB VBA : Identification d'un graphique d'une feuille "graphique"

top merci c'est exactement ça, je n'ai même pas pensé au type de la feuille...pfff

Je vais enfin pouvoir lancer ma production, thanks a lot
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…