Adapter macro a des couleurs definies dans un graph camenbert |
Titre du sujet : Adapter macro a des couleurs definies dans un graph camenbert par papi73 le 19/11/2007 11:41:00 Bonjour à toutes et tous. Je viens vers vous car je n’arrive pas a adapter le code de « MDF » sur les couleurs graphiques à mon cas. Je rentre 1 code produit en BR1 de la feuille « FICHE » qui me rapatrie les données de ce produit en S13 ; U20 de la feuille « récapitulatif ». La feuille « matricielle » sert à classer les % qui sont rapatriés sur la feuille « recapitulatif » pour le graphique et de n’afficher dans la légende que les valeurs > 0, qui vont alimenter le graphique sur la feuille « FICHE » Par ailleurs il y a 2 plages définies Var1 = plage I de la feuille « matricielle » Var2 = plage H de la feuille « matricielle » Merci pour votre aide. Cordialement DANS LE MODULE DE CODE DE LA FEUILLE Private Sub Worksheet_Change(ByVal Target As Range) 'myDearFriend! - www.mdf-xlpages.com Dim Cel As Range If Target.Count > 1 Then Exit Sub If Not Application.Intersect(Target, Range("B6:B30")) Is Nothing Then Set Cel = Sheets("Corresp.Couleurs").Columns(1).Find(Target.Value, LookIn:=xlValues) If Not Cel Is Nothing Then Target.Offset(0, -1).Interior.Color = Cel.Interior.Color ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1) _ .Points(Target.Row - 5).Interior.Color = Cel.Interior.Color End If End If End Sub |
Forums