Un graphique Excel avec des aspects différents ! SVP !!! (VBA)

Un graphique Excel avec des aspects différents ! SVP !!! (VBA) - VB/VBA/VBS - Programmation

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 ! :D
 
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 !!!!!!! :fou:  
 
Même chose pour les couleurs ... Je ne connais pas les formules, et je n'arrive pas à les trouver ... :pfff:

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 !!!!!!!!!!!!!!!!!!!!!!

Reply

Marsh Posté le 12-03-2012 à 20:41:27   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed