Graphique nuage - mise en forme - Excel 2003

Bonjour,

J'ai un tableau excel (2003) de 7 colonnes et un grand nombre de lignes.

A partir des données de la 2nd colonne et de la 6e colonne je réalise un nuage de points.

Jusque là ok !

Ce que je souhaite c'est mettre en avant certains points de ce nuage (couleur différente ou taille différente peut m'importe) .

Le critère de la mise en forme est le chiffre "6" et se trouve dans la 1ère colonne.

Quelle est la macro à utiliser afin de de colorer les points respectant le critère ci dessus ?

Merci beaucoup.

Aude

Bonjour,

Voir fichier.

ALT F11 pour ouvrir l'éditeur VBE - voir Module1

ALT F8 pour exécuter les 2 procédures.

Cdlt.

Option Explicit
Public Sub Appliquer_couleur()
Dim i As Integer
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        For i = 1 To .Points.Count
            If Cells(i + 5, 2) = 6 Then
                With .Points(i)
                    .MarkerStyle = 1
                    .MarkerSize = 5
                    .Format.Fill.ForeColor.RGB = RGB(155, 0, 0)
                End With
            End If
        Next i
    End With
End Sub
Public Sub Retablir_couleurs()
Dim i As Integer
    With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
        For i = 1 To .Points.Count
            With .Points(i)
                .MarkerStyle = 2
                .MarkerSize = 5
                .Format.Fill.ForeColor.RGB = RGB(0, 32, 96)
            End With
        Next i
    End With
End Sub

Merci beaucoup,

bon ne connaissant rien au langage vba dès que j'active la macro voici le message :

(cf pj)

que dois je faire ?

merci beaucoup.

Bonjour,

Le problème vient de nos versions Excel différentes.

Attendons une intervention d'une personne travaillant sous Excel 2003 pour corriger la ligne surlignée.

With .Points(i)
 .MarkerStyle = 1
 .MarkerSize = 5
 .Format.Fill.ForeColor.RGB = RGB(155, 0, 0)
End With

je vois !

merci beaucoup pour l'aide.

Bonjour à toutes et à tous,

Personne pour venir en aide à aude.b pour la formulation sous Excel 2003

Cdlt.

besoin de votre aide à tous !

merci beaucoup !

Re,

J'ai modifié ainsi :

With .Points(i)
   .MarkerStyle = 1
   .MarkerSize = 5
   .MarkerBackgroundColorIndex = 3
End With

A tester sous Excel 2003.

Cdlt.

merci beaucoup,

ça fonctionne !

milles mercis une très bonne chose de faite !

Re,

Pense à clore le sujet.

A bientôt sur le forum.

Cdlt.