Macro VBA nuage de point dynamique

Bonjour,

Debutant en VBA, je cherche à créer une macro me permettant de mettre a jour

un graphique dynamique de type Nuage de Point (l’ordre et le nombre des

points sont variables).

Le seul élément que je n’arrive pas à régler est le suivant.

J’ai quatre colonnes : Nom du point / Type du Point ou la classe du point / Valeur X / Valeur Y

Je souhaite avoir dans mon nuage de point :

•Une couleur de point différente selon le type du point ou la classe

•Une étiquette visible uniquement pour chaque point

il faut que lorsque je change le nombre de la colonne du type de point la couleur se modifie automatiquement dans mon nuage de point

Pourriez vous m'indiquer le type de macro qui pourrait répondre a ce besoin

précis.

Merci d'avance.

svp y'a quelqu'un pour m'aider ? merci

Bonjour Pika,

wahou, 23mn d'écart entre ta demande et ta relance !

A part MFerrand, on se lève à peine

Mets nous un fichier - exemple...

bonjour merci de m'avoir repondu Steelson

voila un exemple

Bonjour,

Suis ce lien et dans Graphiques, tu trouveras les informations nécessaires pour traiter ta demande.

Cdlt.

http://boisgontierjacques.free.fr/

Merci jean Éric mais tous ne correspond pas a ce que je veux faire

Je souhaiterai créer un graphique à partir d'un tableau croisé dynamique mais en nuage de points. Or, Excel ne le permet pas. Je voulais savoir si en passant par VBA, il était possible de créer un nuage de points dynamique (en modifiant mon tableau croisé dynamique, mon graphique se mettrait automatiquement à jour).

et donc

Je souhaite avoir dans mon nuage de point :

•Une couleur de point différente selon le type du point ou la classe

•Une étiquette visible uniquement pour chaque point

il faut que lorsque je change le nombre de la colonne du type de point la couleur se modifie automatiquement dans mon nuage de point

Mon tableau je le rappelle a 5colonnes nom du point /date/type de point / valeur X /valeur Y

Si c'est possible, pourrais-je avoir un exemple de programme VBA afin que je puisse l'appliquer dans mon fichier ?

Merciii beaucoup

Bjr y' a t'il quelqu'un pour m'aider svp j'en ai vraiment besoin

Merci d'avance

Essaie ceci en ajustant les couleurs voulues !

uniquement pour le changement de classe ... je vais voir le reste demain !

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 And Target.Row > 1 And Target.Count = 1 And Target.Value <> "" Then
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.FullSeriesCollection(Target.Row - 1).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        Select Case Target.Value
            Case Is = 0
                .ForeColor.RGB = RGB(0, 192, 255)
            Case Is = 1
                .ForeColor.RGB = RGB(168, 192, 0)
            Case Is = 2
                .ForeColor.RGB = RGB(255, 92, 92)
            Case Is = 3
                .ForeColor.RGB = RGB(0, 0, 255)
            Case Is = 4
                .ForeColor.RGB = RGB(168, 0, 168)
            Case Is = 5
                .ForeColor.RGB = RGB(0, 92, 92)
        End Select
        .Transparency = 0
        .Solid
    End With
End If

End Sub

ok sa marche merci steelson beuacoup et du coup ce programme je le rentre dans une nouvelle macro ou dans la feuille du graph stp

le programme que tu mas ecrit si jai bien compris fais que quand je change le nombre de la classe il suit la couleur de a legende c bien sa ?

Steelson

du coup jai essayer ton programme jai changer mes couleurs dans rgb voila mon code couleur classe 0 =bleu ,classe 3=jaune,classe4 =rouge et pour la calsse 5= noir et du coup quand jexecute mon programme c'est a dire je change la valeur de la classe dans le tableau la modification de couleur en fonction de la classe voulu ne se modifie pas. lorsque je change les valeurs du tableau tous les points deviennent bleu ainsi que les points de la legende alors qu'ils ne sont pas de la meme classe

il faut que si je met 5 dans mn tableau a la place du 4 la couleur noir devienne rouge automatiquement dans le graph et cela pour toutes les classes .je sais pas si tu m's compris ?

en tous cas merci c'est tres sympa de m'aider

Nouvelle proposition

sa fonctionne ta tous resoulu bravo merci merci beaucoup tu me sauves la vie en tous cas je ne sais comment te remercier steelson

en tous cas si jai encore besoin de toi je pourrais te solliciter si sa ne te derange pas merci merci

bonne soirée a toi