Graphique C.D. - Automatisation des étiquettes de données

Question

Pour comprendre mon soucis, je vous expose ci-après le contexte : je travaille actuellement sur l'automatisation d'un graphique lié à la population d'un immeuble par étage (appelé stacking). Le but est de recenser les effectifs par service puis de dispatcher les services au sein des étages de l'immeuble. Plusieurs données sont donc essentielles : noms des services, nombre d'étages de l'immeuble, capacités des étages de l'immeuble, effectifs des services. J'ai donc construit une feuille "Données projet" centralisant les jalons du stacking et une feuille "stacking 1" où j'ai implanté un graphique croisé dynamique reprenant les données des cellules E4:G95 de la feuille "Données projet". Pour des questions de présentation, il faut absolument que les étiquettes de données du graphique apparaissent sous forme de Nom de série (=noms des services dans mon graphique)+Valeur (effectif du service) et non sous forme de valeur uniquement. Je n'ai pas trouvé d'option intégrée dans Excel pour mettre en forme les étiquettes de données en masse, le seul moyen est de sélectionner étiquette par étiquette pour les mettre en forme...c'est pas trop contraignant quand il existe 10 services mais ça peut-être fastidieux s'il y en a plus. Mon idée est donc d'automatiser cette mise en forme d'étiquettes de données via un bouton macro qui : 1/ actualise les données de mon graphique croisé dynamique 2/ ajoute les étiquettes de données centrées au graphique (par défaut les Valeurs) 3/ ajoute la mise en forme "Nom de série" aux étiquettes de données 4/ applique la mise en forme "Séparateur=espace" aux étiquettes de données Je ne suis pas un expert des macros et je tatillonne pour arriver à mon but...celà marche mais la macro me retourne une erreur. J'ai prévu la possibilité d'exploiter 60 services différents dans mon tableau et donc j'ai créé la macro en conséquence des 60 possibilités. Sauf que si j'ai moins de 60 services, dans mon exemple de fichier 22 (14 services+1 donnée de postes libres par étage soit 8 = 22) : il me retourne une erreur à partir de la 23ème étiquettes de données car elle n'existe pas. Une âme charitable saurait-elle me dépanner sur ce bout de code macro ? J'ai laissé délibérément le graphique sans étiquettes de données pour que vous puissiez voir le but du bouton macro et surtout le message d'erreur. En espérant avoir été suffisamment clair et précis, merci à vous ! Steph...

jmd · Answer

En ajoutant une colonne CONCATENER à ton tableau, et en affichant les étiquettes à partir de cette colonne (en jaune)...

jmd · Answer

Re pour ce qui concerne le texte (nom espace et nombre) dans les étiquettes, c'est fait une formule que tu tires vers le bas, donc hyper-rapide, nul besoin de bidouiller dans le graphique qui se met à jour automatiquement revoir la colonne en jaune dans mon exemple pour ce qui concerne la mise en forme (taille de police et centrage) je ne sais pas...

Jean-Eric · Answer

Une procédure à adapter. Cdlt. Option Explicit Public Sub DEMO() Dim objChart As ChartObject Dim sr As Series Application.ScreenUpdating = False Set objChart = Me.ChartObjects(1) With objChart.Chart For Each sr In .SeriesCollection sr.ApplyDataLabels (xlDataLabelsShowNone) sr.ApplyDataLabels ShowSeriesName:=True, Separator:=" " Next sr End With Set objChart = Nothing End Sub...

Jean-Eric · Answer

Re,

Pour mon test, j'ai copié cette procédure dans le module de la feuille comportant le graphique.

"Me" correspondant à "ActiveSheet".

Remplace donc Me par ActiveSheet.

A te relire.

Cdlt.

nota : tu pourrais supprimer le bouton en intégrant la procédure dans l'évènement "Worksheet_PivotTableUpdate".

Jean-Eric · Answer

Re, Je regarde, mais ne soit pas trop pressé. J'ai vu des choses que je comprends pas. En autre, les données source du TCD et toutes ces cellules vides. Peux-tu expliquer l'utilité? Cdlt...

Jean-Eric · Answer

Re,

J'ai repris ton classeur et après quelques modifications, vois le résultat.

J'ai éliminé les étiquettes inutiles (valeurs à 0).

De plus le TCD et le GCD s'actualisent à l'activation de la feuille.

A te relire.

Cdlt.

43stacking.xlsm (46.69 Ko)

Option Explicit

Private Sub Worksheet_Activate()

    Me.PivotTables(1).PivotCache.Refresh

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim objChart As ChartObject
Dim nbSr As Long, pt As Long, sr As Long
Dim x As String

    Application.ScreenUpdating = False

    Set objChart = Me.ChartObjects(1)
    nbSr = objChart.Chart.SeriesCollection.Count

    With objChart.Chart
        For sr = 1 To .SeriesCollection.Count
            .SeriesCollection(sr).ApplyDataLabels (xlDataLabelsShowNone)
            .SeriesCollection(sr).ApplyDataLabels Type:=xlDataLabelsShowValue
            For pt = 1 To .SeriesCollection(sr).Points.Count
                x = .SeriesCollection(sr).Points(pt).DataLabel.Caption
                If Val(x) = 0 Then
                    .SeriesCollection(sr).Points(pt).HasDataLabel = False
                Else
                   .SeriesCollection(sr).Points(pt).ApplyDataLabels ShowSeriesName:=True, Separator:=" "
                End If
            Next pt
        Next sr
    End With

    Set objChart = Nothing

End Sub

Jean-Eric · Answer

Re, Le tableau est dynamique. Nul besoin d'avoir des lignes vides dans celui-ci. Un ajout en fin tableau le redimensionne pour l'actualisation du TCD et GCD. Cordialement...