Modification intitulé axe secondaire graphe

Bonjour,

J'ai une multitude de graphe sur plusieurs feuilles Excel sur lesquelles je souhaite modifier un mot car celui-ci n'est pas le plus approprié pour la compréhension du graphe.

J'ai trouvé et arrangé ce code pour aller chercher et remplacer le mot souhaité dans le titre de l'axe secondaire de tous les graphes de mon fichier Excel :

Sub ChartLabelReplaceAllWorksheet()

Dim xFindStr As String

Dim xReplace As String

xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)

xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)

For Each sh In Worksheets

For Each ch In sh.ChartObjects

If ch.Chart.HasTitle Then

ch.Chart.Axes(xlValue,xlSecondary).AxisTitle.Text = VBA.Replace(ch.Chart.Axes(xlValue,xlSecondary).AxisTitle.Text, xFindStr, xReplace, 1)

End If

Next

Next

End Sub

J'ai réussis à le faire fonctionner sur une seule feuille Excel mais jamais sur l'ensemble où cela me demande un Objet Recquis.

Je suis complètement novice en VBA, j'ai besoin de vos conseils !

Je vous remercie,

Quentin

Bonjour Quentin & bienvenue,

est ce que les graph sont sur des onglets de type "Feuille de calcul" ou de type "Graph" ?

i20100 a écrit :

Bonjour Quentin & bienvenue,

est ce que les graph sont sur des onglets de type "Feuille de calcul" ou de type "Graph" ?

Bonjour,

J'ai plusieurs graphes similaires sur des feuilles de calcul et non des onglets "Graph".

Je vous remercie pour votre accueil

re,

à tester,

Sub ChartLabelReplaceAllWorksheet()
Dim xFindStr As String
Dim xReplace As String
xReplace = "abcd" 'Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Sheets
    sh.Activate
    For Each ch In sh.ChartObjects
        ch.Activate
        If ch.Chart.HasTitle Then
            TitreDeAxe2 = ch.Chart.Axes(2).AxisTitle.Caption
            ch.Chart.Axes(2).AxisTitle.Caption = xReplace
        End If
    Next
Next
End Sub

i20100 a écrit :

re,

à tester,

Sub ChartLabelReplaceAllWorksheet()
Dim xFindStr As String
Dim xReplace As String
xReplace = "abcd" 'Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Sheets
    sh.Activate
    For Each ch In sh.ChartObjects
        ch.Activate
        If ch.Chart.HasTitle Then
            TitreDeAxe2 = ch.Chart.Axes(2).AxisTitle.Caption
            ch.Chart.Axes(2).AxisTitle.Caption = xReplace
        End If
    Next
Next
End Sub

Bonjour,

J'ai toujours la même erreur d'exécution '424':

Objet requis

quentgird27 a écrit :

J'ai toujours la même erreur d'exécution '424':

Objet requis

peux-tu joindre ton fichier ?