Discussion :

[madock]

Bonjour à tous ,

Une fois encore j'ai besoin de votre expertise pour résoudre une problème .

J'utilise deux macro pour pouvoir modifier un graphique (un coup pourcentage et l'autre coup valeur). Jusque là tout va bien.

Pour ce faire je m'appuie sur un second onglet "base calcul", hors comme tous projet une fois terminé on masque la base.
Et là, la ma macro ne fonctionne plus.

J'ai donc essayé de la reprendre en effectuant l'affichage de l'onglet, l'opération nécessaire, puis de masquer à nouveau l'onglet (puis arrêt de l'enregistrement).

Mais cela ne fonctionne pas, j'ai une erreur d’exécution 1004 qui s'affiche.

Que dois-je faire ? :/

Merci d'avance

[BDA53]

Salut,

Peux-tu nous mettre en commentaire le code de ta macro ?

Sans oublier la balise

[madock]

Bonjour

Alors en fait j'ai peut-être trouvé une alternative.

Plutôt que de changer d'onglet je peux modifier les valeurs directement sur mon graphique (car lié à un TCD).
Cependant la macro m'affiche également une erreur 1004.

Voila le code de la macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton8_Cliquer()
'
' Bouton8_Cliquer Macro
'
 
'
    ActiveSheet.ChartObjects("Graphique 22").Activate
    With ActiveSheet.PivotTables("Tableau croisé dynamique15").PivotFields( _
        "Nombre de sortis")
        .Calculation = xlNormal
        .NumberFormat = "Standard"
    End With
End Sub

La partie

Code :

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

1
2
With ActiveSheet.PivotTables("Tableau croisé dynamique15").PivotFields( _
        "Nombre de sortis")

est soulignée en jaune :/

[vinc_bilb]

Bonjour, Que vaut activeSheet au moment où ça plante? Est-elle protégée?

Pouvez-vous rajouter par exemple

Code :

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

1
2
 
    Debug.Print ActiveSheet.Name, ActiveSheet.Visible, ActiveSheet.ProtectContents

[BDA53]

Mmmh... A ta place je ferai simplement

Code :

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

1
2
3
4
5
6
7
8
9
10
 
btn_Click()
   Worksheets("TCD").EntireRow.Hidden= False 
   'Ton code
   '...
   '...
   '...
   '...
   Worksheets("TCD").EntireRow.Hidden= True
End Sub

[madock]

Bonjour désolé de ma réponse tardive,

Alors je tiens a précisé que je suis très nul en VBA j'ai aucune base

Donc j'ai essayé avec le code de xelas 57 de cette façon :

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
Sub Bouton7_Cliquer()
'
' Bouton7_Cliquer Macro
'
 
'
    Worksheets("TCD").EntireRow.Hidden = False
    Range("D75").Select
    ActiveSheet.ChartObjects("Graphique 22").Activate
    With ActiveSheet.PivotTables("Tableau croisé dynamique15").PivotFields( _
        "Nombre de sortis")
        .Calculation = xlPercentOfRow
        .NumberFormat = "0%"
    End With
 Worksheets("TCD").EntireRow.Hidden = True
End Sub

Lorsque je lance la macro j'ai erreur d’exécution n°9 l'indice n'appartient pas à la sélection. :/

vinc_bilb je ne sais pas te répondre :/

Si ça peut vous aidez ma macro consiste en à modifié les valeur de mon graphique en %, et je ferais ensuite l'inverse pour les afficher en valeur.
Ainsi l'utilisateur pourra afficher à son bon vouloir valeur/%.
Le problème vient t-il du fait que le TCD est sur un autre onglet? (masqué)

Merci pour votre aide.

[vinc_bilb]

Bonjour,

Dans quelle sheet est le 'Graphique 22'?
Vous gérez celà sur la sheet active ..... mais êtes vous bien sur que c'est la bonne?


Proposition

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
Sub Bouton7_Cliquer()
'
' Bouton7_Cliquer Macro
'
Dim WshTCD As Worksheet, WshGRAPH As Worksheet
Set WshTCD = ThisWorkbook.Worksheets("TCD")
Set WshGRAPH = ThisWorkbook.Worksheets("xxx") 'à modifier
'
    WshTCD .EntireRow.Hidden = False
    'Range("D75").Select
    WshGRAPH .ChartObjects("Graphique 22").Activate
    With WshGRAPH .PivotTables("Tableau croisé dynamique15").PivotFields( _
        "Nombre de sortis")
        .Calculation = xlPercentOfRow
        .NumberFormat = "0%"
    End With
 WshTCD. EntireRow.Hidden = True
End Sub