Discussion :

[Dim33]

Bonjour,

J'ai un graphique (crée par une macro) contenant de nombreuses séries en nuages de point (xlXYScatter).

Il m'est difficile d'identifier la série (trop de points) que je souhaite mettre en évidence sauf par pointer avec la souris sur le graphique jusqu’à trouver ma série et ensuite changer ses motifs.

Je souhaiterai donc une macro qui m'ouvre une boite de dialogue (tant qu' a faire) dans laquelle je rentre le nom de la série et la macro se charge d'augmenter la taille de la marque de la série concernée. Ainsi il me sera facile d'identifier ma série parmi toutes les autres.

De plus, je peux avoir jusqu’à trois graphiques sur la même feuille. Les séries sont communes sur les trois graphiques (pas les mêmes graphiques mais les mêmes noms de série). La macro doit pouvoir m'identifier simultanément la série sur un graphique, deux ou les 3.

Mes piètres connaissances en VBA ne me permettent pas de faire ça.

Place aux pros. y'a du challenge ...

Merci d'avance.

[EngueEngue]

Tu fais ton userform avec ta textbox, ton nomserie prend la textbox
et sur le bouton tu mets cette macro en la modifiant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub graphes()
Dim wk as worksheet
Dim cht as chartobjects
On error resume next
nomserie="***"
For each wk in activeworkbook.worksheets
wk.activate
For each cht in activesheet.chartobjects
cht.chart.seriescollection(nomserie).border.color = RGB(0,255,0)
next cht
next wk
end sub

[Daniel.C]

Bonjour,

Regarde le classeur joint; le bouton "Choisir séries" affiche un userform. Dans la listbox de gauche, tu peux choisir un ou plusieurs graphiques (en utilisant les touches Ctrl ou Maj comme pour sélectionner des cellules). Dans la listbox de droite, choisis une série. Clique sur le bouton "OK pour visualiser la série. Le bouton "Annul" restaure la taille des séries. Il faut ajouter un bouton par feuille.

[Dim33]

Merci à tous les deux pour votre aide.

Merci notamment à Daniel pour ta solution très très pro, maintenant il faut que j'arrive à l'adapter .


J'ai repris aujourd'hui la macro de EngueEngue que j'ai fortement simplifié (plus de testbox) et adapter à mon cas.
Je me retrouve avec ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Trouver()
Dim cht As ChartObject
On Error Resume Next
nomserie = "mon_nom_de_serie"
For Each cht In ActiveSheet.ChartObjects
cht.Chart.SeriesCollection(nomserie).Border.Color = RGB(0, 255, 0)
Next cht
End Sub

Cette macro simpliste fonctionne si dans "nomserie" je rentre directement le nom de la série mais si je demande d'aller chercher ce nom dans une cellule de la feuille active, rien ne se passe. J'ai pourtant essayé de nombreuses solutions pour aller chercher ce nom. Le nom de la série est un chiffre : 1001, 1002, 1003 .... etc

Merci d'avance pour votre aide.

[Daniel.C]

Il faut alors marquer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomserie = "1001"

etc.

[EngueEngue]

Si tu cherches en feuille active

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomserie= cstr(Activesheet.range("A1"))