Attribuer a des etiquettes automatiser une couleur de fond

bonjour ,

donc jai créer un progarmme qui me permet de relaiser un nuage de ppoints dynamiques et tableau seulement j'aimerai en plus de m'afficher mes etiquettes a fond beige jaimerais attribuer a chaque point donc etiqutte une couleur par categorie jai 2 categorie

est ce que c possible en vba ?

merci

bonjour jai ce programme qui permet de changer la couleur de fond des ettiquttes créer dans les graphs en mettant une couleur de fond voulu pour les labells dans la premirre colonee dun tableau seulemnt mes graphiues ont plusieurs series ainsi mon probleme la couleur de fond prend en compte seulemt une serie pas les autres comment faire svp

Private Sub CommandButton5_Click()

ActiveSheet.ChartObjects(1).Activate

On Error Resume Next

ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel

On Error GoTo 0

For igraph = 1 To ActiveSheet.ChartObjects.Count

ActiveSheet.ChartObjects(igraph).Activate

ActiveChart.SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabel

For i = 1 To ActiveChart.SeriesCollection(1).Points.Count

ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select

Selection.Interior.COLOR = ActiveSheet.Cells(i + 1, 1).Interior.COLOR

Selection.Font.Size = 7

Selection.Text = ActiveSheet.Cells(i + 1, 1)

Next i

Next igraph

End Sub

peersonne pour m'aider ? s'il vous plait j'an ai vraiment besoin