Graphique croisé dynamique. Couleurs automatique

merci beaucoup pour le temps que tu as passé sur mon problème et pour la rapidité de tes réponses.

a priori cela marche très bien

bonne journée

-- 28 Juin 2010, 09:02 --

bon ben j'ai peut être crié victoire un peu trop vite.

A l'ouverture du fichier ce matin cela ne marche plus.

la valeur de Sc.Name ="2" et celle de lacouleur="17" ce qui semble convenable.

j'ai donc testé ta dernière réponse et toujours pas.

Par contre j'avais fait le ménage dans mes fichiers et avait viré ton fichiers avec le modèle. Ce matin il m'a demandé à l'ouverture d'actualiser les liaisons. est ce normal alors que j'avais copier l'onglet couleur

Bonjour,

Pour les liaisons, regarde dans "Edition/Liaisons" s'il y en a..

Autrement, déroule ce code :

Sub suppr_liaisons()
With ActiveWorkbook
    Lien = .LinkSources(xlLinks)
    For Each Lien In .LinkSources
        ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
    Next Lien
End With
End Sub

Tu peux ensuite supprimer la macro...

Pour ton pb, je ne vois pas trop, car pour le moment, je naviguais à vue, mais là, ça va commencer à devenir difficile....

Si tu pouvais recréer un fichier exemple, avec les 2 données (XX1 et XX2), exemple qui ne fonctionnerait pas, de préférence, ce serait plus facile....

@ te relire

ou dois je dérouler le code?

ce que je ne comprends pas c'est pourquoi tout marchait très bien vendredi et pourquoi cela ne marche plus ce jour.

c'est vraiment bizarre

Re-,

tu copies le code dans un module, puis F8 (tu sais, en mode pas-à-pas... ) jusqu'à la fin...

Pour l'autre pb,

peut on faire un échange de mail?

plus simple pour donner une partie de mon tableau

Re-,

évite de mettre ton adresse mail dans les forums, les robots adorent cela, et tu risquerais quelques spams indésirables....

Je t'ai envoyé mon adresse par Messagerie Privée

Dans l'attente du fichier

-- Lun Juin 28, 2010 6:42 pm --

Re-,

Le souci vient du fait que le code a été développé pour un graphique histogramme, et que maintenant, tu utilises des courbes....

Je t'ai modifié le code, qui prend en compte le choix que tu as fait (histogramme ou courbes)

Par contre, dans tes TCD, il faut que tu supprimes les "Vides" de tes champs, sinon plantage

le code :

Private Sub Chart_Activate()
Dim Sc As Series
Dim LaCouleur As Byte
ActiveWorkbook.RefreshAll
Select Case ActiveChart.ChartType
    Case xlColumnClustered  'si c'est en histogramme
        For Each Sc In ActiveChart.SeriesCollection
            With Sheets("couleurs")
                If Sc.Name <> "" Then
                    If Not IsNumeric(Sc.Name) Then
                        LaCouleur = Application.Index(.[indexs], Application.Match(Sc.Name, .[XX1], 0))
                    Else
                        LaCouleur = Application.Index(.[indexs], Application.Match(Val(Sc.Name), .[XX1], 0))
                    End If
                    Sc.Border.ColorIndex = LaCouleur
                End If
            End With
        Next Sc
    Case xlLineMarkers  'si ce sont des courbes
        For Each Sc In ActiveChart.SeriesCollection
            With Sheets("couleurs")
                If Sc.Name <> "" Then
                    If Not IsNumeric(Sc.Name) Then
                        LaCouleur = Application.Index(.[indexs], Application.Match(Sc.Name, .[XX1], 0))
                    Else
                        LaCouleur = Application.Index(.[indexs], Application.Match(Val(Sc.Name), .[XX1], 0))
                    End If
                    Sc.Border.ColorIndex = LaCouleur
                End If
            End With
        Next Sc
End Select
End Sub

essaie ce code dans ton fichier final... (n'oublie pas de shunter les "vides"....)

Bon courage

Ah je comprends donc mieux pourquoi cela ne marchait soudainement plus.

merci mille fois du temps que tu m'a accordé

bonne journée

bonjour,

je rencontre le même problème, sauf que je n'arrive pas a réappliquer la méthode.

pouvez vous m'aider ? (j'ai mis le fichier joint).

les couleurs que je voudrais avoir sont en colonne Z de l'onglet ABXY.

je ne sais pas si cela peut avoir un impact, mais l'onglet ABXY sur lequel est basé le TCD est mis a jour via une macro, et le fichier est partagé/départagé suivant les moments.

en espérant avoir été clair

MERCI d'avance

d-dam

Bonjour, est il possible de faire la même chose sur un graphique croisé dynamique camembert?

Cordialement,