Discussion :

[anyah]

bonjour,

j'ai un petit souci avec ce code, j'ai dans mon programme pres d'une 40aine de feuilles les numéros vont de 11 à 96 (tous les nombres ne sont pas utilisés)

de 1 à 44 tout fonctionne bien mais pour 45 j'ai l'erreur subcript out of range

voici mon 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
26
27
28
29
30
31
32
Public Sub MENU_CHART(i As Integer)
 
Dim T As Integer, H As Integer
 
T = 458
H = 228
 
    If (Worksheets(i) Is ActiveSheet) Then
'    If (Sheet12 Is ActiveSheet) Or (Sheet13 Is ActiveSheet) Or (Sheet14 Is ActiveSheet) Or (Sheet15 Is ActiveSheet) Or (Sheet16 Is ActiveSheet) _
'        Or (Sheet21 Is ActiveSheet) Or (Sheet23 Is ActiveSheet) Or (Sheet24 Is ActiveSheet) Or (Sheet25 Is ActiveSheet) Or (Sheet26 Is ActiveSheet) _
'        Or (Sheet27 Is ActiveSheet) Or (Sheet28 Is ActiveSheet) Or (Sheet29 Is ActiveSheet) Or (Sheet31 Is ActiveSheet) Or (Sheet32 Is ActiveSheet) _
'        Or (Sheet41 Is ActiveSheet) Or (Sheet51 Is ActiveSheet) Or (Sheet77 Is ActiveSheet) Then
        If Sheets("Stabilization").Range("D33").Text = "No" Then
            With Worksheets(i).ChartObjects("chart").CHART.SeriesCollection("C.G.").Points(1)
                .MarkerForegroundColorIndex = 1
                .MarkerBackgroundColorIndex = 3
                .DataLabel.Font.ColorIndex = 1
            End With
        ElseIf Sheets("Stabilization").Range("D33").Text = "Yes" Then
            With Worksheets(i).ChartObjects("chart").CHART.SeriesCollection("C.G.").Points(1)
                .MarkerForegroundColorIndex = 1
                .MarkerBackgroundColorIndex = 4
                .DataLabel.Font.ColorIndex = 1
            End With
        End If
 
        Worksheets(i).ChartObjects("chart").Top = T
        Worksheets(i).ChartObjects("chart").Height = H
 
    End If
 
End Sub

ya t'il un souci avec la déclaration du i? est ce bien integer qu'il faut utiliser?
ou autre chose?

merci pour vos réponses

[decondelite]

As-tu compté tes feuilles? Moi je parie qu'il y en a 44!

Plus sérieusement, la façon dont tu as désigné tes feuilles (Worksheets(i)) est leur index dans la classe WorkSheets et non leur nom dans Excel, car i est de type Integer dans l'en-tête de ta procédure.

Essaye de mettre plutôt le type String dans ton en-tête et dis-moi si ça fonctionne.

Mais c'est bien au moins tu avais le doute au bon endroit.

[anyah]

j'ai essayé avec string et dès la première feuille j'ai subscript out of range

[Godzestla]

Bonjour,

il doit y avoir un problème avec le nombre de sheets.

As-tu testé la valeur de Sheets.count ?

As-tu essayé comme ceci :

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
26
27
28
29
30
31
32
33
34
35
36
 
Public Sub MENU_CHART()
 
Dim T As Integer, H As Integer
Dim i  as integer
Dim asheet as string
T = 458
H = 228
Asheet = activesheet.name 
For i = 1 to sheets.count
 
    If (Worksheets(i).name Is ASheet) Then
    select case Asheet
            case "Sheet12", "Sheet13", "Sheet14", "Sheet15"', .....
            If Sheets("Stabilization").Range("D33").Text = "No" Then
             With Worksheets(i).ChartObjects("chart").CHART.SeriesCollection("C.G.").Points(1)
                .MarkerForegroundColorIndex = 1
                .MarkerBackgroundColorIndex = 3
                .DataLabel.Font.ColorIndex = 1
            End With
        ElseIf Sheets("Stabilization").Range("D33").Text = "Yes" Then
            With Worksheets(i).ChartObjects("chart").CHART.SeriesCollection("C.G.").Points(1)
                .MarkerForegroundColorIndex = 1
                .MarkerBackgroundColorIndex = 4
                .DataLabel.Font.ColorIndex = 1
            End With
        End If
     end select
 
        Worksheets(i).ChartObjects("chart").Top = T
        Worksheets(i).ChartObjects("chart").Height = H
 
    End If
 
next i 
End Sub

[anyah]

bonjour Godzestla,

malheureusement je ne peux pas utiliser ta méthode car cette procédure ne doit pas passer sur toutes les feuilles car elle gère des graphiques (dans une genre de menu) qui ne sont pas toujours présents sur les feuilles

et effectivement sheets.count me donne 44

Comment je peux connaitre ce numero "index" ? vu que j'ai ajouté supprimé changer de placer pleins de feuilles ...

[Godzestla]

bonjour Godzestla,

malheureusement je ne peux pas utiliser ta méthode car cette procédure ne doit pas passer sur toutes les feuilles car elle gère des graphiques (dans une genre de menu) qui ne sont pas toujours présents sur les feuilles

Alors pourquoi testes-tu le nom de la feuille (qui plus est active) dans ta procédure ?

je ne comprends pas.

je te suggère de regarde la modif de code que j'ai fait plus haut, avec Select, de filtrer les feuilles avec graphique au moyen de la clause select et d'enlever ou de m'expliquer ce test sur Activesheet.

ok pour toi ?

[anyah]

j'ai besoin de tester si la feuille est active pour que mes modif de graphique s'effectue bien si je fait les modif sur des feuilles non active des erreurs apparaissent

[Godzestla]

Pourquoi ne pas activer la feuille toi-même dans la procédure .

Code :

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

1
2
 
sheets(i).activate

A mettre à la place de If (Worksheets(i).name Is ASheet) Then

[anyah]

bon j'ai réfléchi à ma condition sur l'activation de feuille et j'ai changé mon code en :

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
26
Public Sub MENU_CHART(nm As String)
 
Dim T As Integer, H As Integer
 
T = 458
H = 228
 
    If (nm = ActiveSheet.name) Then
        If Sheets("Stabilization").Range("D33").Text = "No" Then
            With Sheets(nm).ChartObjects("chart").CHART.SeriesCollection("C.G.").Points(1)
                .MarkerForegroundColorIndex = 1
                .MarkerBackgroundColorIndex = 3
                .DataLabel.Font.ColorIndex = 1
            End With
        ElseIf Sheets("Stabilization").Range("D33").Text = "Yes" Then
            With Sheets(nm).ChartObjects("chart").CHART.SeriesCollection("C.G.").Points(1)
                .MarkerForegroundColorIndex = 1
                .MarkerBackgroundColorIndex = 4
                .DataLabel.Font.ColorIndex = 1
            End With
        End If
        Sheets(nm).ChartObjects("chart").Top = T
        Sheets(nm).ChartObjects("chart").Height = H
    End If
 
End Sub

du coup j'appelle mes fonctions avec leurs noms ca m'évite d'appeler la procédure avec un muméro d'index qui peut changer si on bouge, on ajoute ou on supprime une apge par exemple

merci pour les réponses

bonne journée