Discussion :

[Bodombeach]

Bonjour,

Après plusieurs heures de recherche pour mon problème sans résultat, je me permets de poser la question ici. Je suis nouveau à VBA et donc pas très familier avec les objets et déclarations de variables...

J'ai une liste déroulante en case B2, et en fonction du choix dans cette liste, j'aimerais éxécuter des macros différentes. Le code fonctionne mais retourne "erreur 28: espace pile insuffisant"

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
If [B2] = "A" Then ChangeChartScale1
If [B2] = "B" Then ChangeChartScale1
If [B2] = "C" Then ChangeChartScale1
If [B2] = "D" Then ChangeChartScale1
If [B2] = "E" Then ChangeChartScale1
If [B2] = "F" Then ChangeChartScale1
If [B2] = "G" Then ChangeChartScale1
If [B2] = "H" Then ChangeChartScale1
If [B2] = "I" Then ChangeChartScale2
If [B2] = "J" Then ChangeChartScale2
If [B2] = "K" Then ChangeChartScale2
If [B2] = "L" Then ChangeChartScale2
If [B2] = "M" Then ChangeChartScale2
If [B2] = "N" Then ChangeChartScale2
If [B2] = "O" Then ChangeChartScale2
If [B2] = "P" Then ChangeChartScale2
If [B2] = "Q" Then ChangeChartScale2
If [B2] = "R" Then ChangeChartScale2
If [B2] = "S" Then ChangeChartScale2
 
End Sub

Merci de votre aide!

[Marc-L]

Bonjour, bonjour !

Certainement un mauvais code gérant mal les ressources …



______________________________________________________________________________________________________
Je suis Paris, …

[Bodombeach]

Bonjour,

Oui je me doute qu'il s'agit d'un mauvais code et d'un problème de mémoire.

Les macros ChangeChartScale change simplement l'échelle des abcisses de mon graph. J'imaginais que ce serait évident pour les experts vu la simplicité du code.

Merci quand même

[whitefang]

Essai avec un select case

Code :

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

1
2
3
4
5
6
7
8
9
 Select Case [B2].Value
 
    Case "A", "B", "C", "D", "E", "F", "G", "H"
        ChangeChartScale1
 
    Case "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S"
        ChangeChartScale2
 
End Select

[Bodombeach]

Bonjour Whitefang et merci.
J'ai essayé avec ce code que tu m'as donné, malheureusement toujours erreur 28: espace pile insuffisant

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
 
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Select Case [B2].Value
 
    Case "A", "B", "C", "D", "E", "F", "G", "H"
        ChangeChartScale1
 
    Case "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S"
        ChangeChartScale2
 
End Select
 
End Sub

[whitefang]

As-tu essayé de redemander ton ordinateur ?

Et concernant la fonction ChangeChartScale1, c'est quoi la code ?

[Marc-L]

Si ce n'est le code que tu ne daignes dévoiler, peut-être est-ce une feuille de calculs endommagée (ou le classeur) …

[pijaku]

Bonjour,

Il s'agit, soit :

> d'un mauvais code gérant mal les ressources
Mais pour vous aider, il faudrait les codes des procédures ChangeChartScale1 et ChangeChartScale2

> soit d'un excès de lancement de ces procédures.
En effet, selon ton code événementiel Worksheet_Change, tu lances l'une des deux procédures systématiquement, à chaque changement de valeur d'une cellule de ta feuille.
Essaye déjà d'ajouter, en début de procédure :

Code :

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

If Target.Address <> "$B$2" Then Exit Sub

Ainsi la procédure liée au code événementiel ne se déclenchera qu'en cas de changement de la seule cellule B2.

Après que ce soit un Select Case uo un If ne change que peu la donne. Select Case est plus élégant dans ce cas.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
Select Case [B2].Value
     Case "A", "B", "C", "D", "E", "F", "G", "H"
        ChangeChartScale1
     Case "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S"
        ChangeChartScale2
End Select
End Sub

[Bodombeach]

Voici le reste du code: (il n'y a rien de confidentiel )

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
 
Sub ChangeChartScale1()
 
Dim cht As Chart
 
' unprotect/protect needed to change chart scale
ActiveSheet.Unprotect Password:="abcd"
 
Set cht = ActiveSheet.ChartObjects("Chart 1").Chart
 
'Adjust x-axis Scale to be: 40 to 100 Hz
  cht.Axes(xlCategory).MinimumScale = 40
  cht.Axes(xlCategory).MaximumScale = 100
 
Range("D7") = "40Hz - 100Hz"
'change attenuation band to 40-100Hz
 
ActiveSheet.Protect Password:="abcd"
 
End Sub

[Bodombeach]

C'est résolu. L'ajout de la ligne

Code :

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

If Target.Address <> "$B$2" Then Exit Sub

a suffit a résoudre le problème.

Merci pijaku et merci à tous.