Rapport de message :*
 

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