Discussion :

[hugohours1993]

Bonjour,

Bon mon problème c'est que j'ai réussi totalement à faire mon programme mais maintenant impossible de modifier un simple titre:

Code :

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

1
2
3
4
5
6
7
8
9
10
   Sheets("Feuil5").Select
    Range("F2").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").DataPivotField.PivotItems( _
        "Nombre de Code Gdo Départ/Tranche").Caption = _
        "Simultanéité totale du poste source"
    Range("G2").Select
    ActiveSheet.PivotTables("Tableau croisé dynamique1").DataPivotField.PivotItems( _
        "Min de nbr de déclenchement ").Caption = "Nombre de simultanéité du départ"
    Range("K11").Select
    Sheets("Outil déclenchement simultané").Select

En gras le changement que je veux apporté.
Le programme continue de fonctionner cependant mes titres restent comme précédemment soit : Nombre de déclenchement d'un départ et nombre de déclenchement d'un poste source .

Si vous voyez le problème, j'ai essayé d'enregistrer la nouvelle macro, d'enregistrer un nouveau excel mais pour le moment aucun changement..

[Invité]

Bonjour,

A essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ModifierLesChampsDuTcd()
 
Dim Pvt As PivotTable
 
        Set Pvt = Sheets("Feuil5").PivotTables("Tableau croisé dynamique1")
 
        With Pvt
             .PivotFields("Nombre de Code Gdo Départ/Tranche").Caption = "Simultanéité totale du poste source"
             .PivotFields("Min de nbr de déclenchement ").Caption = "Nombre de simultanéité du départ"
        End With
 
        Set Pvt = Nothing
 
End Sub

Cordialement.

[Invité]

Bonjour,

Comment avez-vous réglé votre problème ?

Cordialement.