Stocker nom onglet dans une variable

Enshuk -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un graphique par onglet dans mon classeur Excel, qui se nomme tous par défaut "Graphique1"

Je voudrais que chaque graphique porte le nom de son onglet.

J'ai fait ce code qui s'applique à l'onglet actif, mais je bloque pour le faire pour tous les onglets du classeur.

Merci d'avance. 

Sub testerzae()

Dim nomfeuille As String
Dim graphique As ChartObject
Dim onglet As Worksheet
nomfeuille = ActiveSheet.Name
For Each onglet In ActiveWorkbook.Worksheets
    For Each graphique In onglet.ChartObjects
        graphique.Name = nomfeuille
    Next graphique
Next onglet


End Sub



Configuration: Windows / Chrome 78.0.3904.97

2 réponses

Réponse 1 / 2
Enshuk
 
J'ai trouvé pour ceux qui veulent la solution : 

    ongletname = onglet.Name
0
Réponse 2 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Bonjour

Et pour ton code 

Public Sub ok()
Dim onglet As Worksheet
For Each onglet In ActiveWorkbook.Worksheets
   onglet.ChartObjects(1).Name = onglet.Name
Next onglet
End Sub


Cdlmnt
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
Onglet disposition Excel ne s'affiche pas
dsqalli -
Raymond PENTIER -

5 réponses
Trouver un nom avec une adresse
lakshmi66 -
Nath01 -

11 réponses
Nom d’adresse
X -
X -

2 réponses