Stocker nom onglet dans une variable

Question

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

Enshuk · Answer

J'ai trouvé pour ceux qui veulent la solution :

ongletname = onglet.Name

ccm81 · Answer

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

Stocker nom onglet dans une variable

2 réponses

Discussions similaires

Newsletters