Bug de Macro suite changement de version Excel

[Samsam17LR]

Bonjour, sur mon lieu de travail je suis passé d'un excel datant de l'âge de pierre (2000, voir avant), et maintenant je suis sur EXCEL 2010 (W7).

J'ai une macro qui me permet de réduire le nom des séries sur mon graphique, il y a 150 séries, c'est pour ça que j'utilise une macro.

Il y a un bug que je ne comprend pas.

Voici la macro :
---------------------
Private Sub reducnomdeseriesgraph7_Click()
Dim i As Integer

i = 1

While Cells(i + 1, 1) <> ""

ActiveSheet.ChartObjects("Graphique 7").Activate
ActiveChart.SeriesCollection(i).Points(1).DataLabel.Select
Selection.Characters.Text = Cells(i + 1, 17)
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=4).Font (LIGNE QUI SE SURLIGNE EN JAUNE)
.Name = "Arial"
.FontStyle = "Normal"
.Size = 6
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
ActiveChart.PlotArea.Select

i = i + 1

Wend

End Sub
---------------------------------

La ligne en erreur est indiquée par du texte.

Merci de votre aide.

Bonne journée.

 

[Samsam17LR]

Re : Bug de Macro suite changement de version Excel

... heu il y a quelqu'un qui aurait une ideé ? lol
😉

 

[13GIBE59]

Re : Bug de Macro suite changement de version Excel

Bonjour Sam,

Sans fichier, pas facile !
Mais le plus simple : as-tu pensé à utiliser l'enregistreur de macros ?

Après, tu adaptes le code avec ta boucle.

Bon courage !

JB

 

[Samsam17LR]

Re : Bug de Macro suite changement de version Excel

C'est ce que j'ai fait quand j'ai créé le fichier sous excel 97.

Depuis que je suis sur le 2010, cette ligne bug.

Je suis tenace je vais trouver.
Merci, bonne journée.

 

[13GIBE59]

Re : Bug de Macro suite changement de version Excel

Bien compris, mais utilise l'enregistreur de macros sous 2010.