VBA pour titre graphique

Version imprimable

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, je précise que je débute complétement en vba).
J'ai tapé le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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.
En cherchant encore un peu j'ai mis :
Code:

1 2 3 4 5 6 With .ChartTitle.Characters(start:=20).Font .Name = "Arial" .FontStyle = "Gras italique" .Size = 10 .ColorIndex = 1 End With
Donc là effectivement il me prend en compte une partie du texte pour me changer ma mise en forme. Sauf que ma 1ère ligne n'a pas toujours le même nombre de caractère en fonction des graphiques.
Seule ma 2ème ligne possède le même nombre de caractère.
Y a-t-il une solution pour lui dire de ne toucher qu'à la 2ème ligne?
Merci pour votre aide.
Je vous joint un exemple de fichier (simplifié car il est trop volumineux pour le site)..

Salut,
j'ai quand même une question :
Le mot Test est-il toujours dans ton titre ou est-ce pour l'exemple ?
Car si c'est le cas tu peux rechercher la position de ce mot dans ta chaine de caractère grâce à l'instruction INSTR. Une fois que tu as sa postion tu applique la mise en forme comme tu l'as fait dans ton code en changeant deux choses comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 With Worksheets(i).ChartObjects(j).Chart
        'Donne à la variable val la position du mot Test dans ta chaine de caractère
        val = InStr(.ChartTitle.Characters.Text, "Test")
        .ChartTitle.Characters.Text = Replace(.ChartTitle.Characters.Text, "Mois", "Mai")
            'Tu donnes à Start la valeur de val
            With .ChartTitle.Characters(Start:=val).Font
               .Name = "Arial"
               .Bold = True 'écriture gras
               .Italic = True 'écriture italique
               .Size = 10
               .ColorIndex = 1
            End With

08/10/2010, 14h51
bbcancer

salut
Merci d'essayer.
le mot Test est pour l'exemple mais ma 2ème ligne est toujours la même sur chaque graphique (seule la 1ère ligne diffère).
est ce que ca marche s'il y a 2 ou 3 mois à la place de Test?
Bon de toute façon je vais essayer et je te dirai...
Merci encore
08/10/2010, 15h05
bbcancer

Merci je vais d'essayer cela marche.
J'ai juste mis le 1er mot de ma 2ème ligne et il le prend en compte... Donc c'est vraiment cool
Et un problème de régler...
Encore merci tu me facilite beaucoup le travail là...