Discussion :

[bugg01]

Bonjour,

J'ai chercher sur le forum mais sans succès concernant ma problématique.
Mon fichier me permet de centraliser les performances d'une équipe suivant plusieurs critères.

J'ai un onglet (ScoreIndiv) sur lequel se trouve le récapitulatif des performances d'une personne, son nom est indiqué en C4.
Sur ce même onglet se trouve un Graphique croisé dynamique (Graph_Score) et j'aurais besoin que le filtre de mon graphique (nommé "Nom-Indiv") soit égal à la valeur indiqué en C4.

Je ne suis pas encore suffisamment avancé en VBA pour m'écrire mon code, c'est pour ça que je sollicite votre aide pour m'aiguiller.

[riaolle]

Bonjour,

As-tu essayé d'obtenir le code avec l'enregistreur de macro ? Tu changes la valeur du filtre et récupères le code associé avec l'enregistreur de macro. Ensuite, y a plus qu'à adapter le code pour que la valeur du filtre soit égale à celle de la cellule C4.

Si tu veux que la valeur du filtre soit changée à chaque fois que tu changes la valeur de la cellule C4, tu peux regarder du côté des évènements dans la feuille de calcul : http://silkyroad.developpez.com/VBA/EvenementsFeuille/

[bugg01]

Ok pour l'enregistreur.
J'ai bien un code de généré, mais quelle est la syntaxe pour spécifier une cellule plutôt que le texte ?

Code :

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

1
2
3
4
5
 
    ActiveSheet.ChartObjects("Graph_Score").Activate
    ActiveChart.PivotLayout.PivotTable.PivotFields( _
        "[Score-Indiv].[Nom].[Nom]").VisibleItemsList = Array( _
        "[Score-Indiv].[Nom].&[DUPONT Pierre]")

Soit remplacer "[Dupont Jean]" par quelque chose comme "Range("C4").Value", je suis un peu perdu là...

[riaolle]

Petit exemple d'utilisation de variable et concaténation :

Code :

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

1
2
3
4
Dim i As Integer
i = 3
MsgBox "M. Dupond a " & i & " enfants."             'renvoie : M. Dupond a 3 enfants.
MsgBox "M. Dupond a i enfants."             'renvoie : M. Dupond a i enfants.

Tu peux faire le même exemple avec une valeur de cellule. Supposons qu'il y la valeur 3 en A1 :

Code :

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

1
2
3
4
 
MsgBox "M. Dupond a " & Range("A1").Value & " enfants."             'renvoie : M. Dupond a 3 enfants.
MsgBox "M. Dupond a Range("A1").Value enfants."             'renvoie une erreur, car problème de guillemets
MsgBox "M. Dupond a Range(""A1"").Value enfants."             'renvoie : M. Dupond a Range("A1").Value enfants

Est-ce que tu vois comment adapter ton code maintenant ?

[bugg01]

Je dois vraiment passé à coté de quelque chose.

L'évènement c'est ok, testé avec un msgbox ça marche, le msgbox affiche bien la donnée que je cherche à attribuer à mon filtre. Mais je ne parviens pas à faire fonctionner ce changement de filtre... 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
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim KeyCell As Range
 
Set KeyCells = Range("C4:D4")
 
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
 
 
    ActiveSheet.ChartObjects("Graph_Inc").Activate
    ActiveChart.PivotLayout.PivotTable.PivotFields( _
        "[Action- Intervenant].[Nom].[Nom]").VisibleItemsList = Array( _
        [Range("C4").value])
 
 
 
' MsgBox Range("C4").Value
 
End If
End Sub

J'ai pas mal cherché mais j'avoue être perdu..

[riaolle]

Qu'y a-t-il d'écrit en cellule C4 ? "[Score-Indiv].[Nom].[DUPONT Pierre]" ou "[DUPONT Pierre]" ? Quel sont les éléments dans la liste de filtre ?
Je reprends ce message :

Code :

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

1
2
3
4
ActiveSheet.ChartObjects("Graph_Score").Activate
    ActiveChart.PivotLayout.PivotTable.PivotFields( _
        "[Score-Indiv].[Nom].[Nom]").VisibleItemsList = Array( _
        "[Score-Indiv].[Nom].&[DUPONT Pierre]")

Soit remplacer "[Dupont Jean]" par quelque chose comme "Range("C4").Value", je suis un peu perdu là...

Que vient faire le "&" ? Les "[ ]" sont-ils intégrés dans la cellule C4 ?
Est-ce que tu veux écrire : [Score-Indiv].[Nom].[valeur de la cellule C4] ou [Score-Indiv].[Nom].valeur de la cellule C4 ou valeur de la cellule C4 ou même encore [valeur de la cellule C4] ?
Si je prends le cas où tu voudrais écrire [Score-Indiv].[Nom].[valeur de la cellule C4]. Il faut que tu mettes entre guillemets les éléments fixes et tu concatène (&) avec les éléments variables :

Code :

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

"[Score-Indiv].[Nom].[" & Range("C4").Value & "]"