Differencier couleur histogramme

[Gérard DEZAMIS]

Bonjour à toutes (Une bise supplémentaire pour les Mères ...)
Bonjours à tous (y compris les pères ! ils y sont pour qq chose !)

Excellent Dimanche pour tous donc

Exposé du problème :Des valeurs sont représentées graphiquement sous forme d'histogramme ou de barres horizontales. Actuellement une cinquantaine de valeurs différentes. Ces valeurs ont parfois des origines cummunes (3, 3, parfois 5).

Question : est-il possible de faire apparaître automatiquement les barres relatives à une source, d'une couleur différente de celle de TOUTES les autres. (Bémol supplémentaire = une valeur qui se retrouve systématiquement la moyenne, n'a pas de couleur mais un motif /////// ou XXXXXX)

Tout n'est pas encore assez clair ?
Je joins à cet effet un petit exemple sur une dizaine de données arbitrairement choisies.
Merci par avance de votre participation dominicale à l'opération de remblayage de mes lacunes excelliennes...:S

@+ GD [file name=EvaluationVilleVille.zip size=3737]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EvaluationVilleVille.zip[/file]

 

[Hervé]

Bonjour tout le monde



Gérard, une proposition en pièce jointe.

Salut

PS :ceci est un premier jet, à améliorer, surtout concernant les doublons.

 

[MichelXld]

bonjour Gerard

j'espere que cet exemple pourra t'aider


bonne soiree
MichelXld [file name=EvaluationVilleVille_V02.zip size=10410]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EvaluationVilleVille_V02.zip[/file]

 

[MichelXld]

oouuppss...

bonjour Hervé , excuses moi de ne pas t'avoir salué : nos messages se sont croisés


bonne soiree à toi
MichelXld

 

[omicron]

Bonsoir Gérard,

En pièce jointe une petite variante qui , si j'ai bien compris devrait répondre au problème posé ...

Cordialement

Omicron. [file name=ColorierGrapheSolution.zip size=12205]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ColorierGrapheSolution.zip[/file]

 

[Celeda]

Bonsoir,

et bien tu vas pas encore me croire omicron mais j'ai une erreur
sur cette ligne !!! dès que je selectionne une ville :

ActiveSheet.ChartObjects('Graphique 1').Activate

pourquoi ??????


Merci

Celeda

Message édité par: Celeda, à: 29/05/2005 23:32

 

[Omicron]

Bonsoir Celeda,

Content de reprendre contact après une longue absence.

Je n'arrive pas à reprovoquer l'erreur que tu me signales.

Une supposition toutefois :

Remplace 'Graphique 1' par 'Chart 1'. Il se peut qu'il y ait des problèmes si tu utilises une version anglaise d'Excel.

S.G.D.G

Bonsoir et merci de me tenir au courant ....

:whistle: Omicron

 

[Gérard DEZAMIS]

Bonjour à Toutes et à Tous

Galanterie oblige : Une grosse bise à Celeda
Une cordiale poignée de main à tous ceux qui m'ont donné des

Super Solutions

Hier journée Chargée OUI-NON vous êtes au courant ? et pas d'ordi pour une fois ! :sick: Je scrute, tu scrutes, je dépouille, tu dépouilles ....
Aujourd'hui idem super chargé donc
Nénorme retard pour les remerciements !

Hervé, je suiis désolé mais ton fichier joint est disjoint .... :whistle:
Un petit oubli surement mais ne te tracasse pas car les collègues ont bossé comme des fous.
MicheXLD et Omicron (Le retour !) un grand merci à vous deux car cela fonctionne au delà de mes espérances. Un stock d'heures sera ainsi épargné. Je ne me voyais pas modifier manu-clavieri 45 graphiques avec 3 à 4 barres à chaque fois.....
hmy:
Bien évidemment il va falloir en plus que j'essaye de déchiffrer votre code... c'est pas gagné !

Merci encore une fois

@+ GD

Message édité par: Gérard DEZAMIS, à: 30/05/2005 19:20

 

[Hervé]

bonsoir tout le monde

Très très discrètement, comme ca en passant, mine de rien, je redépose mon fichier.

Hop, faites comme si vous aviez rien vu :whistle: :whistle:

un courant d'air, je ne suis qu'un courant d'air.

a plus

chut : un ange passe !!!!

 

[Hervé]

RE

Bon ben décidément XLD veut pas de ma pièce jointe.

MAIS je te ferais savoir monsieur XLD, que j'arrive toujours à mes fins.

Public Sub color2()
Dim serieX As Series
Dim tablo As Variant
Dim c As Range
Dim i As Byte

Application.ScreenUpdating = False
Application.Interactive = False
ActiveSheet.ChartObjects('Graphique 2').Activate

For Each serieX In ActiveChart.SeriesCollection
    tablo = serieX.XValues
Next serieX

With ActiveChart.SeriesCollection(1)
    For i = 1 To UBound(tablo)
        Set c = Range('b5:b18').Find(tablo(i), LookAt:=xlWhole)
        If c.Offset(0, -1) = 'F' Then
            If c = 'MOYENNE' Then
                .Points(i).Fill.Patterned Pattern:=msoPatternWideUpwardDiagonal
            Else
                .Points(i).Interior.Pattern = xlSolid
            End If
            .Points(i).Interior.ColorIndex = 3
        Else
            .Points(i).Interior.ColorIndex = 6
        End If
    Next i
End With
Range('d5').Select
Application.ScreenUpdating = True
Application.Interactive = True
End Sub

NON MAIS

Salut

 

[Celeda]

Bonsoir,

omicron, moi zossi très heureuse de te relire et encore une fois tu as raison!!!!!

je vais le copier 100 000 fois:
celeda vérifie ta version et cherche un peu avant de poser une question!!!
celeda vérifie ta version et cherche un peu avant de poser une question!!!
celeda vérifie ta version et cherche un peu avant de poser une question!!!
celeda vérifie ta version et cherche un peu avant de poser une question!!!
celeda vérifie ta version et cherche un peu avant de poser une question!!!
celeda vérifie ta version et cherche un peu avant de poser une question!!!

j'ai la tête dans les nuages parfois, désolée et un gros bisou omicron


hervé, non tu ne peux rien faire en catimini, je fais comme GD, je scrute !!!! nous scrutons, ils scrutent , tout ce que tu fais!!!!


Celeda