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

Codename graphique

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 !

mécano41

XLDnaute Accro
Bonjour à tous,

Quelqu'un pourrait-il me dire pourquoi la ligne de recherche du Codename ne fonctionne pas. Ma conclusion est qu'il n'existe pas de codename pour un graphique incorporé sur la feuille mais je souhaiterais une confirmation.

Code:
' --------------- Cherche les noms de graphiques incorporés en tant qu'objets sur une feuille
Sub ChercherNomGraphique()
Dim Graphique As ChartObject
For Each Graphique In RMfeuille1.ChartObjects
    MsgBox "Nom : " & Graphique.Name
    MsgBox "NomCode : " & Graphique.Chart.CodeName
Next Graphique
End Sub

En vous remerciant d'avance...

Cordialement
 
Re : Codename graphique

Bonjour


Jon Peltier says

VBA - Active Chart Sheet:

ActiveChart.Name = "Name of this Chart"

VBA - Any Existing Chart Sheet:

ActiveWorkbook.Charts(3).Name = "Name of this Chart" or...
ActiveWorkbook.Charts("Old Chart Name").Name = "Name of this Chart"
 
Dernière édition:
Re : Codename graphique

Bonjour,

Merci pour cette réponse, mais pour ce qui est du "Name", il sort normalement dans ma boucle ; le problème c'est pour le Codename (la deuxième ligne dans ma boucle) dont je me demande s'il existe ou non...

Cordialement
 
Re : Codename graphique

Bonjour Meccano, Jean-Marie

Pour moi la propriété "codename" ne s'applique pas à un graphique incorporé, mais à une feuille graphique.... Enfin bon, c'est juste mon avis, suis pas anglophone du tout....

bonne soirée
@+

Edition : la propriété 'parent' d'un graphique incorporé, renverra le nom de la feuille sur laquelle il est placé....
 
- 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

Discussions similaires

N
Réponses
0
Affichages
686
nicolashesse93
N
Réponses
7
Affichages
818
Réponses
3
Affichages
1 K
M
Réponses
3
Affichages
2 K
MONADESIGN82
M
D
Réponses
49
Affichages
9 K
D
F
Réponses
14
Affichages
3 K
FLEBY
F
Réponses
14
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…