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