VBA : Problème avec "Characters"

Bonjour,

j'ai une macro qui fonctionne parfaitement sous EXCEL 2003 mais qui refuse de fonctionner avec EXCEL 2007. :cry:

Pourtant cette macro est assez simple...

En rouge, la ligne qui pose problème.
Merci à ceux qui pourront m'aider.

Cordialement,
RM

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

With ActiveSheet.ChartObjects("chart_eff").chart.Shapes.AddTextbox(msoTextOrientationHorizontal, _ left_blank_2, top_blank_2, width_blank_2, heigth_blank_2) .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor.SchemeColor = 1 ' white With .TextFrame With .Characters(Start:=1, Length:=55).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .ColorIndex = 2 ' white End With .Characters.Text = "CELA NE MARCHE PAS" ' Allowable operating region End With End With

---

Bonjour,
Ce code fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Dim s As Object   Set s = ActiveSheet.ChartObjects("Graphique 1").Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50)   With s .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor.SchemeColor = 1 ' white   With .TextFrame .Characters.Text = "CELA NE MARCHE PAS" ' Allowable operating region With .Characters(9, 6).Font .Name = "Arial" .FontStyle = "Regular" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .ColorIndex = 3 ' rouge End With End With End With

---