Bonjour
Nouvelle sur le forum, j'aurais besoin d'aide pour faciliter mon travail.
J'ai plusieurs graphiques dans un fichier Excel (environ 15). Je dois changer dans chaque titre du graphique le mois. Là pas de problème j'ai réussi (tant bien que mal à faire par VBA).
Code suivant :
Sub Graph()
For i = 1 To Sheets.Count
For j = 1 To Sheets(i).ChartObjects.Count
With Worksheets(i).ChartObjects(j).Chart
.ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text, "Mois", "Mai")
With .ChartTitle.Font
.Name = "Arial"
.FontStyle = "Gras italique"
.Size = 10
.ColorIndex = 1
End With
End With
Next
Next
End Sub
Mon titre est en 2 parties et par mon code VBA il me change la mise en forme de tout mon titre. Moi j'aimerai qu'il ne me change que la deuxième partie de mon titre. Est ce possible? Et si oui comment faire?
Merci.
Je vous joint un exemple de fichier (simplifié car il est trop volumineux pour le site)..
Nouvelle sur le forum, j'aurais besoin d'aide pour faciliter mon travail.
J'ai plusieurs graphiques dans un fichier Excel (environ 15). Je dois changer dans chaque titre du graphique le mois. Là pas de problème j'ai réussi (tant bien que mal à faire par VBA).
Code suivant :
Sub Graph()
For i = 1 To Sheets.Count
For j = 1 To Sheets(i).ChartObjects.Count
With Worksheets(i).ChartObjects(j).Chart
.ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text, "Mois", "Mai")
With .ChartTitle.Font
.Name = "Arial"
.FontStyle = "Gras italique"
.Size = 10
.ColorIndex = 1
End With
End With
Next
Next
End Sub
Mon titre est en 2 parties et par mon code VBA il me change la mise en forme de tout mon titre. Moi j'aimerai qu'il ne me change que la deuxième partie de mon titre. Est ce possible? Et si oui comment faire?
Merci.
Je vous joint un exemple de fichier (simplifié car il est trop volumineux pour le site)..