Discussion :

[michaud_rene]

Bonjour,

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

Pourtant cette macro est assez simple...

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

Cordialement,
RM

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[helas]

Bonjour,
Ce code fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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