Couleur segment camnbert suivant couleur des cellules

DoubleZero

XLDnaute Barbatruc

• 13 Avril 2013

• #2

Re : Couleur segment camnbert suivant couleur des cellules

Bonjour, SDR42, le Forum,

Une solution, peut-être, dans cette discussion.

A bientôt 🙂

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Avril 2013

• #3

Re : Couleur segment camnbert suivant couleur des cellules

Re-bonjour,

Voici le fichier et la macro.

A bientôt 🙂

 

Pièces jointes

• 00 - SDR42 - Graphique colorer.xls

  46.5 KB · Affichages: 71

Vote positif 0 Vote négatif

S

SDR42

Guest

• 13 Avril 2013

• #4

Re : Couleur segment camnbert suivant couleur des cellules

Salut DoubleZéro
merci pour la réponse mais j'ai un message d'erreur lorsque je lance la macro
"erreur de compilation Référence incorrecte ou non qualifiée"
Est dù à mon graphique ?
Cdt

 

Vote positif 0 Vote négatif

S

SDR42

Guest

• 13 Avril 2013

• #5

Re : Couleur segment camnbert suivant couleur des cellules

Toujours moi, je viens de tester la macro que tu m'as envoyer et là j'ai le message
"argument ou appel de procédure incorrect"

 

Vote positif 0 Vote négatif

S

SDR42

Guest

• 13 Avril 2013

• #6

Re : Couleur segment camnbert suivant couleur des cellules

DoubleZéro
Désolé pour le mail precedent tout fonctionne parfaitement

Merci une nouvelle fois.

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Avril 2013

• #7

Re : Couleur segment camnbert suivant couleur des cellules

Re-bonjour,

Nous sommes tous deux sous Excel 2007 et je n'ai aucun message d'erreur.

Attendons la venue d'expert(e)s 😱.

A bientôt 🙂

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Avril 2013

• #8

Re : Couleur segment camnbert suivant couleur des cellules

Re-bonjour,

SDR42 à dit:

... tout fonctionne parfaitement...

Cliquez pour agrandir...

Ahhhh ! Voilà qui me rassure 😀 !

A bientôt 🙂

 

Vote positif 0 Vote négatif

S

SDR42

Guest

• 13 Avril 2013

• #9

Re : Couleur segment camnbert suivant couleur des cellules

🙂 Mais concernant le code
Sub Couleurs_graphique_couleurs_cellules()
Dim i As Long
ActiveSheet.ChartObjects(1).Activate
For i = 1 To ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = ActiveSheet.Cells(i + 1, 1).Interior.ColorIndex
Next i
End Sub
J'aurais besoin d'aide pour le comprendre car j'ai une feuille contenant 10 graphiques et j'aimerais reproduire cette méthode sur les 10. J'ai essayé mais sans succès

 

Vote positif 0 Vote négatif

S

SDR42

Guest

• 13 Avril 2013

• #10

Salut à tous,
voici le fichier sur lequel j'aimerais appliquer à tous les graphs la même couleur (contenue dans les cellules)

Merci

 

Pièces jointes

• VBA Excel Download.xlsm

  261.8 KB · Affichages: 63
• VBA Excel Download.xlsm

  261.8 KB · Affichages: 83
• VBA Excel Download.xlsm

  261.8 KB · Affichages: 80

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 14 Avril 2013

• #11

Re : Couleur segment camnbert suivant couleur des cellules

Bonjour,

C'est volontaire, ou pas d'inclure les valeurs à 0 dans les graphiques ?

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 14 Avril 2013

• #12

Re : Couleur segment camnbert suivant couleur des cellules

Bonjour,

Sous réserve de renommer les graphiques pour que l'ordre de 1 à 10 correspondent à celui des tableaux sources... le code suivant devrait faire ce que tu veux.

VB:

Sub couleurs()
Application.ScreenUpdating = False
Dim i As Integer, j As Integer, k As Integer
j = 2
Feuil1.Activate
For i = 1 To 10
    ActiveSheet.ChartObjects("Graphique " & i).Activate
    With ActiveChart.SeriesCollection(1)
        For k = 1 To .Points.Count
        .Points(k).Interior.ColorIndex = ActiveSheet.Cells((k + 6), j).Interior.ColorIndex
        Next k
    End With
j = j + 10
Next i
Application.ScreenUpdating = True
End Sub

Un petit commentaire sur le fond : le camembert est rarement pertinent comme graphique, le camembert 3D jamais (d'ailleurs, les graphiques 3D sont de manière générale à éviter). Les cellules fusionnées dans les tableaux sources sont à éviter. 3D + cellules fusionnées !!!

 

Vote positif 0 Vote négatif

S

SDR42

Guest

• 14 Avril 2013

• #13

Re : Couleur segment camnbert suivant couleur des cellules

Bonjour Gardiende phare,

Merci pour les conseils, je vais sérieusement y penser. Je suis toujours preneur de conseils.
Concernant les zéros, je ne dois pas les prendre en compte dans mon graphe et autre point, lorsqu'il n'y à pas de couleur affecté à une cellule j'aimerais que la couleur ai cet index "Font.ColorIndex = 10"
Merci
Cdt

 

Vote positif 0 Vote négatif

Gardien de phare

XLDnaute Accro

• 14 Avril 2013

• #14

Re : Couleur segment camnbert suivant couleur des cellules

Re,

Attention les couleurs exprimées en index peuvent varier d'un classeur à l'autre si une autre palette de couleur que la palette standard a été définie dans Excel.
Pour ne pas prendre en compte les valeurs 0 dans les graphiques, les remplacer par =NA()

Ci-dessous le code modifié pour les cellules en sans couleurs

VB:

Sub couleurs()
Application.ScreenUpdating = False
Dim i As Integer, j As Integer, k As Integer
j = 2
Feuil1.Activate
For i = 1 To 10
    ActiveSheet.ChartObjects("Graphique " & i).Activate
    With ActiveChart.SeriesCollection(1)
        For k = 1 To .Points.Count
        If ActiveSheet.Cells((k + 6), j).Interior.ColorIndex <> xlNone Then
        .Points(k).Interior.ColorIndex = ActiveSheet.Cells((k + 6), j).Interior.ColorIndex
        Else
        .Points(k).Interior.ColorIndex = 10
        End If
        Next k
    End With
j = j + 10
Next i
Application.ScreenUpdating = True
End Sub

 

Vote positif 0 Vote négatif

S

SDR42

Guest

• 14 Avril 2013

• #15

Re : Couleur segment camnbert suivant couleur des cellules

Salut
Cela fonctionne sur les 5 premiers et non sur les 10, j'ai essayé de modifier sans succès.
Cdt

 

Vote positif 0 Vote négatif