Discussion :

[toto74]

Bonjour tout le monde,

j'avais une macro qui fonctionnait sous XL-2003 et qui ne marche plus depuis le passage sous XL-2007 ().
Cette macro consistait a ajouté des lignes dans un graphique pour ensuite les grouper afin de "créer" plusieurs abscisses.
voila le code:

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
25
Sub echellesParametres()
 
    Sheets("graph").Activate
    'enlève la légende
    ActiveChart.Legend.Select
    Selection.Delete
 
    'trace les barres pour la legende
    ActiveChart.Shapes.AddLine(59.24, 132.66, 542.04, 132.66).Select 
    ActiveChart.Shapes.AddLine(59.24, 126.52, 59.24, 132.66).Select 
    ActiveChart.Shapes.AddLine(542.04, 126.52, 542.04, 132.66).Select 
    ActiveChart.Shapes.AddLine(301.75, 126.52, 301.75, 132.66).Select 
 
    'redimensionner graphe
    ActiveChart.PlotArea.Select
    Selection.Width = 496
    Selection.Height = 671
    Selection.Left = 45
    Selection.Top = 142
 
    'groupe les 4 barres
    ActiveChart.Shapes.Range(Array("Line 2", "Line 4")).Select 'l'erreur ce situe ici
    ActiveChart.Shapes.Range(Array("Line 2", "Line 4", "Line 3")).Select
    ActiveChart.Shapes.Range(Array("Line 2", "Line 4", "Line 3", "Line 1")).Select
    Selection.ShapeRange.Group.Select

Il me dit que l' élément portant ce nom est introuvable...

si quelqu'un a une réponse ou des informations quelconque je suis prenneur
merci

[toto74]

Bonjour,

Personne n'a une petite idée ??
Parce que la je ne vois aucune solution.

[AlainTech]

Une idée?

Tu ne serais pas passé d'un Excel en anglais à Excel français?

[toto74]

non je ne pense pas.
Mes deux version d'excel sont en français.
merci quand même