Couleur conditionelle graphique Excel

Bonjour,

Avant tout je m'excuse du fait que je ne peux pas partager mon fichier car il appartient à l'entreprise, et espère pouvoir être aidé quand même.

J'ai sur une page beaucoup de tableaux de données qui associent à une ville un nombre. Il y a une quinzaine de villes par tableau, toujours les même. Mais évidemment le nombre associé à chaque ville change d'un tableau à l'autres. Chacun de ces tableaux est ensuite transformé en graphique histogramme pour pouvoir comparer les villes. Mon problème est le suivant : je dois colorer la colonne associée à la ville X, c'est toujours cette ville qui doit être coloriée sur chacun des histogrammes, mais il y en a plusieurs dizaines et le faire est la main est long, et je dois le refaire tous les mois.

Avez vous une méthode pour que la colonne de cette ville se colorie dans chaque histogramme automatiquement?

Je suis un peu familier avec le VBA mais débutant, l'utiliser n'est pas un problème il faudra juste peut être m'expliquer un peu ^^

Merci par avance!

UP ! Je ne trouve toujours pas!

Bnjour,

Crée un petit fichier représentatif de tes données (avec graphique) et joins le au forum.

Cdlt.

Bonjour et bienvenue sur le forum

Bonjour à tous

Je suis dans un bon jour ...

Un essai à tester mais il est vrai que sans un exemple de fichier conforme j'ai sûrement travaillé pour rien.

Bye !

Bonjour,

Merci pour l'accueil

Le fichier de gmb est exactement ce que je voulais, je ne sais pas encore comment l'appliquer au miens mais c'est en tout cas exactement l'idée.

Je vous joint un fichier qui ressemble à l'original.

Merci pour votre temps

Voici un bout de code que j'ai fait mais qui ne fonctionne pas, il y a un bug à For each points in activecharts ...

"propriété ou méthode non gérée par cet objet" mais je ne sais pas comment resoudre le problème.

Sub couleur_graph()

Dim j As Integer

   'Boucle pour selectionner un à un les graphiques de la feuille active et faire les modifications
    For j = 1 To Worksheets("feuil1").ChartObjects.Count
        Worksheets("feuil1").ChartObjects(j).Activate
        For Each Points In ActiveChart.SeriesCollection(1)
            If Points.Name = "CAE" Then
                Points.Interior.Color= RGB(235, 58, 9)
            End If
        Next Points
    Next j

End Sub

Bonjour

Nouvelle version.

Bye !

Merci pour cette version, elle est super!

Si tu as le temps est ce que tu pourrais y ajouter quelques commentaires, ça me permettrai de progresser en apprenant comment ça marche exactement ^^ mais si tu as pas le temps ce n'est pas grave, je te remercie pour ce que tu as fait

A bientôt

Bonjour

Même version avec macro commentée.

Bye !

Merci pour votre aide!