Discussion :

[Access Newbie]

Bonjour à tous,

J'ai un pitit problème avec un bout de code que je viens de créer, celui-ci permet de générer du code (le code d'un evenement chart_activate). Mon problème est le suivant :

sur la ligne

Code :

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

  With ActiveWorkbook.VBProject.VBComponents(ThisWorkbook.Sheets(strSheetName).CodeName).CodeModule

j'ai souvent (mais pas tout le temps) l'erreur "l'indice n'appartient pas à la selection". Le souci viens du fait que "ThisWorkbook.Sheets(strSheetName).CodeName" n'a pas toujours une valeur: si je met une variable dans laquelle je récupère le codeName, parfois celui-ci est égal à "" ... bizarre.

C'est d'autant plus étrange que lorsque j'ai l'erreur, je ne fais absolument rien, c'est à dire que je ne fais qu'appuyer sur F5 pour que le code se termine, et là tout se déroule correctement.

Avez-vous déjà eu un problème similaire ? avez-vous une solution pour contourner le problème ?

Merci d'avance,

Ci-dessous le code de la procédure incriminée.

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
Sub AddEventToChart(strSheetName As String)
'ajoute l evenement chart calculate

Application.DisplayAlerts = False
Application.EnableEvents = False

ThisWorkbook.Sheets(strSheetName).Activate
ThisWorkbook.Sheets(strSheetName).Select

  With ActiveWorkbook.VBProject.VBComponents(ThisWorkbook.Sheets(strSheetName).CodeName).CodeModule    'Creation de la procedure evenementielle
    .CreateEventProc "Calculate", "Chart"
    
    'code de la procédure
    .InsertLines 2, "Dim newChart as Chart"
    .InsertLines 3, "set newChart = ActiveChart"
    .InsertLines 4, "newChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:=newChart.Name"
  End With

Application.EnableEvents = True
Application.DisplayAlerts = True

End Sub

[mercatog]

Bonjour
Tu travailles avec un seul classeur ou plusieurs?
Tu mélange le ActiveWorkbook et le ThisWorkbook qui peuvent différer si tu as plusieurs classeurs ouverts.

[Philippe Tulliez]

Bonjour,
Comme l'a justement écrit Mercatog, tu mélanges les objets.
C'est soit

Code :

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

 With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.Sheets(strSheetName).CodeName).CodeModule    'Creation de la procedure evenementielle

Soit

Code :

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

With ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Sheets(strSheetName).CodeName).CodeModule    'Creation de la procedure evenementielle

De plus, il n'y a aucune raison de sélectionner la feuille

Code :

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

'ThisWorkbook.Sheets(strSheetName).Activate

[Access Newbie]

Tout d'abord merci pour vos réponses

Je viens de faire le test en mettant des "thisworkbook" partout : j'ai toujours la même erreur.

De même en utilisant "ActiveWorkbook".

PS : je ne travaille que sur un seul fichier Excel.

[mercatog]

J'ai fais ce test sans problème. Le code s'écrit bien dans le module de Graph 1

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
Sub AddEventToChart(strSheetName As String)
 
With ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Sheets(strSheetName).CodeName).CodeModule    'Creation de la procedure evenementielle
    .InsertLines 2, "Private Sub Chart_Calculate()"
    .InsertLines 3, "Dim newChart as Chart"
    .InsertLines 4, "set newChart = ActiveChart"
    .InsertLines 5, "newChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:=newChart.Name"
    .InsertLines 6, "End Sub"
End With
End Sub
 
Sub test()
 
AddEventToChart "Graph1"
End Sub

Dans le module de Graph 1 je trouve bien ceci

Code :

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

1
2
3
4
5
Private Sub Chart_Calculate()
Dim newChart As Chart
Set newChart = ActiveChart
newChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:=newChart.Name
End Sub

[Access Newbie]

Si j'utilise ce code sur une feuille existante, en effet, il n'y a pas de problème.

En fait je crée des feuilles (dans une boucle) et ensuite j'éxécute cette procédure. j'ai l'impression qu'en fait la feuille n'est "pas totalement créée, ou en cours de création" et du coup le vba ne peut récupérer le codeName.

En tout cas merci pour votre aide