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

liste des graphiques dans un classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion denislebreton
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

denislebreton

Guest
je sais accéder à un graphique en vba par son nom et surtout comment le nommer à la mano

mais est il possible de récupérer la liste des graphiques d'un classeur , onglet par onglet ?
en sachant que certains graphiques sont nommés d'autre ne le sont pas encore que ce dernier point n'est pas important.

Denis
 
Trier par date Trier par votes
Re : liste des graphiques dans un classeur

Salut,

Un petit bonjour et un petit merci ne font jamais de mal...

Code: 
Option Explicit

Sub Test()
    Dim Graph As ChartObject
    Dim Sht As Worksheet
    Dim Liste As String
    
    For Each Sht In ThisWorkbook.Sheets
        Liste = Liste & Sht.Name & " :" & vbCrLf
        For Each Graph In Sht.ChartObjects
            Liste = Liste & vbTab & Graph.Name & vbCrLf
        Next Graph
        Liste = Liste & vbCrLf
    Next
        
    MsgBox Liste
End Sub
 
Vote positif 0 Vote négatif
Re : liste des graphiques dans un classeur

ouh le vilain personnage (je parle de moi)
merci d'avoir apporter une réponse aussi rapide qu'efficace

cher(e) Minick veuillez recevoir mes excuses les plus plates pour cette impolitesse qui ne me caractérise pas habituellement
Au revoir
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : liste des graphiques dans un classeur

aller pour compléter la réponse fort pertinente à mon impertinente question voilà un Module tout prêt pour ceux que cela intéresse
Le module crée un onglet et reporte dans l'onglet le nom de la feuille testée en titre (ligne 1) et la liste des graphes dans la colonne correspondante (possible d'inverser) à partir de la ligne 2.

Bonne lecture et bon usge

Sub list_graph()
Dim nf As String
Dim enf As Integer
Application.DisplayAlerts = False
nf = "Liste_Grph"
enf = 0
For Each F In ActiveWorkbook.Worksheets
If F.Name = nf Then enf = 1: Exit For
Next
If enf = 1 Then
Sheets(nf).Activate
ActiveSheet.Delete
End If
Sheets.Add
ActiveSheet.Name = nf
Dim Graph As ChartObject
Dim Sht As Worksheet
Dim liste_gph As String
coldest = 1
For Each Sht In ThisWorkbook.Sheets
ligdest = 1
Cells(ligdest, coldest).Value = Sht.Name
ligdest = ligdest + 1
For Each Graph In Sht.ChartObjects
Cells(ligdest, coldest).Value = Graph.Name
ligdest = ligdest + 1
Next Graph
coldest = coldest + 1
Next
Application.DisplayAlerts = True
End Sub
 
Vote positif 0 Vote négatif
Re : liste des graphiques dans un classeur

Bonjour,

Je suis entrain d'essayer de faire fonctionner ce code car la macro m'interesse beaucoup ...mais j'ai un arrêt sur F non défini :
Pouvez-vous m'aider : F représente une variable mais on la définit comment dans cette procédure (merci beaucoup à l'auteur en passant).

Merci à l'avance de votre aide.
 
Vote positif 0 Vote négatif
Re : liste des graphiques dans un classeur

Salut,

F est a declarer en Worksheet
Code: 
Dim F as Worksheet

Dans ce code:
Code: 
For Each F In ActiveWorkbook.Worksheets
On boucle sur chaque feuille du classeur actif.
 
Vote positif 0 Vote négatif
Re : liste des graphiques dans un classeur

Bonjour,

Merci Minick mais je crains avoir d'autres soucis du même genre :
avec la variable coldest = et ligdest

désolée je suis pas douée😱


Merci
 
Vote positif 0 Vote négatif
Re : liste des graphiques dans un classeur

Re,

ligdest depend du nombre de lignes du tableau final.
Ici je ne pense pas que ca pourra depasser 32767 lignes...
Donc un Interger devrait suffire largement voir meme un Byte (255 maxi)
Et pour coldest la meme chose vu qu'on ne peut avoir plus de 256 colonnes (sous xl2003) je mettrai un Byte

Donc
Code: 
Dim ligdest as Interger
Dim coldest as Byte
Ou
Code: 
Dim ligdest as Byte, coldest as Byte
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
366
dysorthographie
D
  • Question Question
Microsoft 365 Mise à jour des références / liens depuis un sharepoint
Réponses
3
Affichages
680
Dégé59
D
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
621
anthoYS
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
851
Phil69970
G
  • Résolu(e)
Microsoft 365 Consolidation données depuis des feuilles
Réponses
2
Affichages
518
gpion
G
N
  • Question Question
Microsoft 365 Séparer NOM et Prénom d'une ListBox dans 2 Textbox
5 6 7
Réponses
98
Affichages
4 K
NONO14
N
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
783
vgendron
  • Question Question
Microsoft 365 Curiosité : enregistrement impossible à cause de la liste des erreurs (#NUL!, #DIV/0!, #REF!, etc.)
Réponses
1
Affichages
575
Simply
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
519
tnion
T
S
  • Résolu(e)
Microsoft 365 [Résolu] Aide sur gestionnaires de noms + liste déroulante en cascade associée
Réponses
9
Affichages
1 K
djidji59430
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Résolu(e)
XL 2021 Report de lignes d'un onglet à un autre en conservant format et recopie des commentaires
Réponses
9
Affichages
275
scoobytor
S
  • Question Question
XL 2019 Regroupement données dans un tableau
2
Réponses
18
Affichages
2 K
Shimano
S
O
  • Résolu(e)
XL 2019 Besoin d'aide avec une liste déroulante.
Réponses
3
Affichages
585
olivier C
O
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
550
sylvanu
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
760
oguruma
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
706
djidji59430
  • Résolu(e)
XL 2019 alimentation quotidienne : gestion/suivi d'un déficit calorique
2 3
Réponses
39
Affichages
3 K
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…