Un graphique Excel avec des aspects différents ! SVP !!! (VBA)
Un graphique Excel avec des aspects différents ! SVP !!! (VBA) - VB/VBA/VBS - Programmation
Sujets relatifs:
Leave a Replay
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 12-03-2012 à 20:41:27
Bonjour à tous,
Je suis totalement novice en VBA (j'apprends sur le site du zéro !) et là je suis perdu !
Peut-être que ce que je vais vous demandez est vraiment basique .... et j'en suis désolé ... Mais SVP : HELP ME !
En abscisse j'ai mes occurences : le nombre de fois où un sujet revient.
En ordonnée : le niveau de satisfaction avec lequel est exprimé le sujet.
Dans mes statistiques, j'ai d'autres données intéressantes à montrer aux clients, mais que je n'arrive pas à rendre visuellement. C'est le niveau d'implication avec lequel est évoqué le sujet + si le sujet est impliqué émotionnellement ou rationnellement:
Sur l'implication j'essaie de faire en sorte que l'étiquette du sujet soit grosse quand l'implication est forte, et petite quand l'implication est faible.
ex. Etiquette grosse si indice d'implication > 0.75
Etiquette moyenne si indice d'implication entre 0.5 et 0.75
Etiquette petite si indice d'implication <0.5
Pour l'émotionnel et rationnel, c'est plus basique :
Si le sujet est émotionnel (1), l'étiquette est en rouge
Si le sujet est rationnel (0), l'étiquette est en bleu
J'ai commencé par faire cette macro pour spécifié mes 4 séries... Mais je ne sais pas du tout comment je peux agir sur des formules. Par exemple, comment je peux dire : sur "Implication", une étiquette grosse de 8 si >0,75, grosse de 5 entre 0,5 et 0,75 et enfin grosse de 2, inférieur à 0,5 ????????? HELP ME PLEASE !!!!!!!
Même chose pour les couleurs ... Je ne connais pas les formules, et je n'arrive pas à les trouver ...
Sub Macro1()
Worksheets(1).ChartObjects(1).Chart _
.SeriesCollection(1).MarkerSize = 8
'occurence
Worksheets(1).ChartObjects(1).Chart _
.SeriesCollection(2).MarkerSize = 8
'satisfaction
Worksheets(1).ChartObjects(1).Chart _
.SeriesCollection(3).MarkerSize = 8
'Implication
Worksheets(1).ChartObjects(1).Chart _
.SeriesCollection(4).MarkerSize = 8
'Emotionnel
End Sub
Merci d'avance !!!!!!!!!!!!!!!!!!!!!!