problème manipuler un graphique dynamique

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

Je souhaite manipuler un tableau croisé dynamique avec un graphique depuis un userform.
La solution que j'ai trouvé : depuis un combobox je colle un nom dans la feuille ou se trouve le tableau et ensuite avec une macro récupère le nom et modifie le filtre nom du tableau.

Pièce jointe 242928Pièce jointe 242933

Dans l'userform j'importe l'image du graphique, le combo me permet de selectionner une personne, ensuite je valide, le nom est collé dans une cellule de la feuille, par une macro je le récupère et je modifie le tcd donc le graphique,

Citation:

ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Nom"). _
CurrentPage = Range("o1").Value

ce qui me permet depuis l'userform de voir différents profils. Le problème est que j'alimente le combo à partir d'un liste de noms dans le classeur, et que si cet agent n'a pas encore suivi de formation il ne figure pas dans le tcd, et du coup j'ai un message d'erreur qui me plante le programme.

Question: peut on charger directement les valeurs contenues dans le filtre du tcd " PivotFields("Nom"). _CurrentPage =???? " dans la combo? ça me permettrai d'éviter d'une part ce bidouillage et d'autre part d'éviter le bug
ou alors une procédure qui contrôle si le nom se trouve dans le filtre et si vrai continu, si faut "messagebox" et abandon de la procédure.

Ci dessous le code pour l'appel de l'image du graphique dans l'userform et ensuite le code de la macro qui modifie le nom du filtre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub CommandButton10_Click() If Me.choix.Text = "" Then MsgBox "Vous devez entrer un nom." Me.choix.SetFocus Exit Sub End If Sheets("Stat agents").Select Range("o1") = Me.choix.Value Call agents_FMPA ' active la feuille contenant le graphique la feuille s'appelle Graphe équipes ActiveWorkbook.RefreshAll ' raffraichir les données du tableau croisé dynamique Set CurrentChart = Sheets("Stat agents").ChartObjects(2).Chart ' référencé l'objet CurrentChart, là dans l'exemple, c'est le 2eme graphique "ChartObjects(2)" Sheets("Stat agents").ChartObjects("Graphique 2").Activate ' active le graphique qui s'appelle "Graphique 2" ActiveChart.ChartArea.Select ActiveChart.ShowWindow = True Fname = ThisWorkbook.Path & "\temp2.gif" ' attribution d'un nom pour l'export du graphique, dans le dossier courant du fichier CurrentChart.Export Filename:=Fname, FilterName:="GIF" UserForm6.Image1.Picture = LoadPicture(Fname) ' ensuite j'ai créé un UserForm (userform3) avec juste une image (vierge, qui s'appelle Image1), qui charge donc l'image venant d'être enregistré. End Sub
code macro
Code:

1 2 3 4 5 6 7 8 9 Sub agents_FMPA() ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Nom"). _ ClearAllFilters ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Nom"). _ CurrentPage = Range("o1").Value ActiveSheet.ChartObjects("Graphique 2").Activate ActiveChart.ChartTitle.Select ActiveChart.ChartTitle.Text = "Suivi formation" & ": " & Range("o1").Value End Sub
Je vous remercie pour votre aide

Citation:

Envoyé par mimicor15

Bonjour,

Sans garantie car pas testé, je verrais bien un code comme ci-dessous.

Votre procédure Agents_FMPA devient une fonction. Si le nom de l'agent est trouvé, on met à jour le Tcd et le graphique et on continue le reste du code présent dans la procédure CommandButton10.
Les paramètres de la fonction permettent de la réutiliser dans d'autres TCD graphiques du même ordre.
Vous pourriez également tester si l'agent a suivi une formation avec une fonction du type NbVal ou autre, depuis votre source de données avant de lancer la procédure.

Code:

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
 
Sub TestAgents_FMPA()
 
    With ActiveSheet
         If Agents_FMPA(ActiveSheet, "XXXX Jean-Pierre", .PivotTables("Tableau croisé dynamique4"), .ChartObjects("Graphique 2")) = False Then
            MsgBox "Ce nom n'a pas été trouvé dans le TCD !", vbCritical
         Else
            ' Suite de votre programme lancé avec CommandButton10
            '....
         End If
    End With
 
End Sub
 
Function Agents_FMPA(ByVal FeuilleTcd As Worksheet, ByVal NomAgent As String, ByVal Pt As PivotTable, GraphiqueAssocie As ChartObject) As Boolean
 
Dim Pf As PivotField
Dim Pi As PivotItem
 
    Agents_FMPA = False
    With FeuilleTcd
         Set Pf = Pt.PivotFields("Nom")
         Pf.ClearAllFilters
         For Each Pi In Pf.PivotItems
             If Pi.Name = NomAgent Then
                Pf.CurrentPage = NomAgent
                GraphiqueAssocie .Chart.ChartTitle.Text = "Suivi formation" & ": " & NomAgent
                Agents_FMPA = True
                Exit For
            End If
        Next Pi
        Set Pf = Nothing
    End With
 
End Function

10/02/2017, 12h31
78chris

Bonjour

Tu peux aussi créer un TCD avec juste le champ nom et utiliser cette plage pour alimenter ta combo box.

Si des filtres doivent être synchronisés car ils modifient la liste, utilise un segment connecté à ton TCD principal et ce TCD utilitaire.
10/02/2017, 12h45
mimicor15

reponse

Super merci pour vos réponses.

J'ai testé ce matin en adaptant le code pour qu'il fonctionne direct avec le combo, tout fonctionne très bien à priori.

merci beaucoup