XL 2019 Graph Camenbert avec double proportion

carlos · 21 Juillet 2024

Bonsoir,
Est il possible de créér un graphique en camenbert avec 3 couleurs (Maxi 5) representant les choix et en respectant les proportions dans le choix lui meme et dans tous les choix?
Proportion dans le choix et proportion dans tous les choix.
Voir le dessin schématique ci dessous et PJ .
Désolé pour mes piètres qualités de dessinateur
Bonne soirée

Dranreb · 27 Juillet 2024

Je le re-joins parce qu'il me semble que la modification du tableau est un peu malaisée si à chaque changement il le reclasse et recalcule les couleurs …
Dans cette version ce n'est fait que si on sélectionne une cellule n'appartenant plus au tableau.

carlos · 22 Juillet 2024

Bonjour,
Je pense que ma demande n'etait pas clair comme mon dessin.
En cherchant dans les groph ^par défaut de'excel, j'ai trouvé ceci qui est assez proche de ma demande.

Bonne journée

crocrocro · 22 Juillet 2024

Bonjour Carlos,
une proposition en pj
à noter que le tableau d'origine correspond aux données non consolidées.
Elles sont prises en charge dans le TCD
Edit : Les couleurs de chaque valeur de choix sont définies 'en dur'. Pour toute nouvelle valeur, il faudra la définir manuellement.

carlos · 22 Juillet 2024

crocrocro à dit:
Bonjour Carlos,
une proposition en pj
à noter que le tableau d'origine correspond aux données non consolidées.
Elles sont prises en charge dans le TCD

Bravo Crocrocro,
C'est exactement cela pour le resuultat. Beau travail.
Mais il faut passer obligatoirement par un TCD?
Si je veux rajouter des choix (4 et 5) cela est il possibl?
Sera t'il possible d'automatiser cela sans que les personnes n'aient à faire quoi que ce soit.?
Merci encore.

crocrocro · 22 Juillet 2024

Mais il faut passer obligatoirement par un TCD?

Oui, pour ma proposition, le graphique étant basé sur le TCD (Graphique de Tableau dynamique)

Si je veux rajouter des choix (4 et 5) cela est il possibl?

Oui, il est possible d'ajouter ou de modifier des valeurs des colonnes Choix ou Type mais en actualisant le TCD et son graphique, les valeurs créées ou modifiées des colonnes Choix et Type, provoquent un changement de la couleur (deviennent ici jaune) pour les secteurs concernés.
Edit : il faut donc leur affecter manuellement la couleur souhaitée.

Sera t'il possible d'automatiser cela sans que les personnes n'aient à faire quoi que ce soit.?

A ma connaissance, cela ne peut se faire qu'en passant par du code VBA.

crocrocro · 22 Juillet 2024

A ma connaissance, cela ne peut se faire qu'en passant par du code VBA.

Un exemple avec du code (on doit pouvoir trouver directement la valeur de la catégorie, sans passer par ObjPoint.DataLabel.Caption)
Il faut que les étiquettes soit avec le format ci-dessous (Nom e la catégorie) pour la recherche dans le code

le code à activer à chaque modification du tableau

VB:

Sub CouleurChoix()
Dim ObjPoint As Point
    ActiveSheet.ChartObjects("Graphique 3").Activate
    With ActiveChart
        For Each ObjPoint In ActiveChart.SeriesCollection(1).Points
            Select Case True
                Case InStr(ObjPoint.DataLabel.Caption, "Choix1") <> 0
                    ObjPoint.Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent6
                Case InStr(ObjPoint.DataLabel.Caption, "Choix2") <> 0
                    ObjPoint.Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent2
                Case InStr(ObjPoint.DataLabel.Caption, "Choix3") <> 0
                    ObjPoint.Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent4
            End Select
        Next ObjPoint
    End With
End Sub

edit : pour la couleur, limitée avec ObjectThemeColor on peut jouer sur le RGB

VB:

ObjPoint.Format.Fill.ForeColor.RGB = RGB(255, 255, 0) 'pour jaune

ou utiliser la valeur d'une cellule modèle de chaque valeur de choix

VB:

ObjPoint.Format.Fill.ForeColor.RGB = Range("COULEUR_1").Interior.Color

carlos · 22 Juillet 2024

Merci beaucoup beaucoup.
Je ne pensais pas cela possible .
Je regarde cela tranquillemement demain et tente de comprendre et d'adapter à monprojet.

A bientot

crocrocro · 23 Juillet 2024

Un nouveau code qui utilise pour chaque valeur de choix une cellule Modèle et qui s'affranchit de la contrainte que j'avais indiquée dans mon post précédent.
J'ai laissé en commentaires dans le code les syntaxes précédentes.

Il faut que les étiquettes soit avec le format ci-dessous (Nom e la catégorie) pour la recherche dans le code

VB:

Sub CouleurChoix()
Dim ObjPoint As Point
Dim i As Integer
Dim TabPoints As Variant
    ActiveSheet.ChartObjects("Graphique 3").Activate
    With ActiveChart
        TabPoints = ActiveChart.SeriesCollection(1).XValues
        i = 0
        For Each ObjPoint In ActiveChart.SeriesCollection(1).Points
            i = i + 1
            Select Case True
                'Case InStr(ObjPoint.DataLabel.Caption, "Choix1") <> 0
                Case InStr(TabPoints(i), "Choix1") <> 0
                    'ObjPoint.Format.Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent6
                    'ObjPoint.Format.Fill.ForeColor.RGB = RGB(255, 255, 0)
                    ObjPoint.Format.Fill.ForeColor.RGB = Range("COULEUR_1").Interior.Color
                Case InStr(TabPoints(i), "Choix2") <> 0
                    ObjPoint.Format.Fill.ForeColor.RGB = Range("COULEUR_2").Interior.Color
                Case InStr(TabPoints(i), "Choix3") <> 0
                    ObjPoint.Format.Fill.ForeColor.RGB = Range("COULEUR_3").Interior.Color
            End Select
        Next ObjPoint
    End With
End Sub

carlos · 23 Juillet 2024

Bonjour Crocrocro,
merci pour ton travail et ta proposition.
J'ai mis à jour ton fichier avec tes codes.
le changement des couleur est opérationnel.
Par contre si je change une valeur du tableau cela ne se met pas à jour automatiquement et je n'arrive pas non plus à le faire manuellement.
Merci encore.

crocrocro · 23 Juillet 2024

Tu n'as pas donné le bon nom aux cellules modèles. Dans le code, remplace COULEUR_ par Couleur
Pour aller plus loin, c'est à dire ne pas avoir à modifier le fichier à chaque nouvelle valeur de choix :
- Utilise une table qui liste toutes les valeurs de choix. Sélection par liste déroulante dans ton tableau que tu contrôles dans la saisie. A chaque valeur (la cellule) de la table tu donnes une couleur de fond, et c'est cette couleur que tu utilises comme modèle.
- Pour éviter d'avoir à utiliser le bouton Couleur, tu actives la macro sur l'événement Change.
Mais c'est peut-être ce que tu as déjà prévu dans ton fichier
Edit :
Il y a une erreur dans les proportions des secteurs par valeur de Choix, passée inaperçue jusque-là pour ma part. Les secteurs d'une couleur ne sont pas proportionnels aux valeurs (Total Choix1, Total Choix2, Total Choix3). Peu importe les valeurs, on a toujours 360° / 3 = 120° pour chacun.
J'essaie de comprendre... et de corriger, si possible. Sinon, ma solution est KO

crocrocro · 23 Juillet 2024

Trouvé
Dans le TCD, il faut supprimer la colonne Proportion Choix.
En pj :
La correction avec également ce dont je te parlais dans le post précédent

Pour aller plus loin, c'est à dire ne pas avoir à modifier le fichier à chaque nouvelle valeur de choix :
- Utilise une table qui liste toutes les valeurs de choix. Sélection par liste déroulante dans ton tableau que tu contrôles dans la saisie. A chaque valeur (la cellule) de la table tu donnes une couleur de fond, et c'est cette couleur que tu utilises comme modèle.
- Pour éviter d'avoir à utiliser le bouton Couleur, tu actives la macro sur l'événement Change.

Je n'ai cependant pas supprimé le code précédent
- le bouton (qui ne sert plus)
- les noms COULEUR_1, COULEUR_2, COULEUR_3
- la macro

Les modifications :
- de nouvelles entrées dans le gestionnaire de noms (TableauChoix, TableauSaisie)
- TableauChoix (G21:G24) avec pour chaque valeur, la couleur de fond qui détermine celle des secteurs du camembert.
- Saisie par liste déroulante du choix
- Dans le TCD, suppression de la colonne Proportion Choix.
- le Code VBA

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("TableauSaisie")) Is Nothing Then
        ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
        CouleurChoixParTable
    End If
End Sub

et

Code:

Sub CouleurChoixParTable()
Dim ObjPoint As Point
Dim i As Integer
Dim TabPoints As Variant
Dim Cell As Range
    ActiveSheet.ChartObjects("Graphique 3").Activate
    With ActiveChart
        TabPoints = ActiveChart.SeriesCollection(1).XValues
        i = 0
        For Each ObjPoint In ActiveChart.SeriesCollection(1).Points
            i = i + 1
            For Each Cell In Range("TableauChoix")
                If InStr(TabPoints(i), Cell.Value) <> 0 Then
                    ObjPoint.Format.Fill.ForeColor.RGB = Cell.Interior.Color
                End If
            Next Cell
        Next ObjPoint
    End With
End Sub

carlos · 25 Juillet 2024

Bonjour Crocrocro,
C'est super génial. Ca marche tres bien .Merci beaucoup pour tes explications
J'aime bien le choix4Quitue
Il me reste plus qu'à l'adapter à mon projet et à l'inséer dans une image de USF.
Merci encore et très belle journée

carlos · 25 Juillet 2024

Bonjour Crocrocro,
J'ai tenté de modifier quelques petits points pour me rapprocher de mon projet.
J'"ai allongé allongé la plage "TableauSaisie" et modifié les choix1 par CA1 par exemple.
J'ai aussi allongé les Couleur_4 et 5.
J'ai aussi mis le code du module1 dans la Feuil1.
Tout marche bien sauf 2 poinrs :
1 - Le CA3 (Ou choix3) ne se met pas à jour dans le TCD voir fichier joint
2 : Lorsque je deplace cette feuille vers mon fichier -Projet en utilisant le menu contextuel en bas de la feuille (Copier ou deplacer) , et que je met à jour le TCD alors j'ai ce messegae :
Erreur d'execution 1004, A priori il este en connexion avec le fichier source.

Je suis content car mon projet à déjà bien avancé.
Bonne soirée

crocrocro · 25 Juillet 2024

Bonjour Carlos,
quand tu as ajouté les nouveaux cas, tu les a fait en dehors du Tableau TableauChoix (voir copie d'écran du gestionnaire de noms).
En pj, un nouveau fichier, mieux structuré (avec les valeurs initiales, pas tes nouvelles que tu vas devoir re-saisir) :
- Le TCD et le graphique sont dans une feuille à part
- Le Tableau e la Feuil1 est un tableau structuré (ce qui facilite la cohérence avec le TCD en cas d'ajout de lignes)
- le rafraichissement du TCD et du Graphique sont automatisés (je te laisse regarder le code).
- j'ai supprimé ici (voir post #11)

- le bouton (qui ne sert plus)
- les noms COULEUR_1, COULEUR_2, COULEUR_3
- la macro

carlos · 26 Juillet 2024

Bonjour Crocrocro,
J'ai déplacé les 2 feuilles du camenbert3 dans mon fichier à l'aide du menucontextuelle de la page (Copier ou deplacé") mais les données restent attachées au fichier source(Camenbert3).

J'ai tenté d'interrompre les liaisons du classeur ou de modifier la source mais ca ne marche pas car le fichier de destination n'est pas proposé.Que faire?
Bonne journée

XL 2019 Graph Camenbert avec double proportion

carlos

XLDnaute Impliqué

Dranreb

carlos

XLDnaute Impliqué

crocrocro

XLDnaute Impliqué

Pièces jointes

carlos

XLDnaute Impliqué

crocrocro

XLDnaute Impliqué

crocrocro

XLDnaute Impliqué

carlos

XLDnaute Impliqué

crocrocro

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Pièces jointes

crocrocro

XLDnaute Impliqué

crocrocro

XLDnaute Impliqué

Pièces jointes

carlos

XLDnaute Impliqué

carlos

XLDnaute Impliqué

Pièces jointes

crocrocro

XLDnaute Impliqué

Pièces jointes

carlos

XLDnaute Impliqué

Discussions similaires