cricriminator
Messages postés5Date d'inscriptionvendredi 29 février 2008StatutMembreDernière intervention26 mars 2008
-
25 mars 2008 à 14:52
cricriminator
Messages postés5Date d'inscriptionvendredi 29 février 2008StatutMembreDernière intervention26 mars 2008
-
26 mars 2008 à 09:53
Bonjour,
Je bricole un fichier pour faire des synthèses d'actions de managements.( En gros
il m'affiche chaques mois le total d'actions faite par le service)
Le but est de mesurer par la suite des écarts et autres choses .(cela fonctionne déja)
Dans une feuille "synthèse" j'affiche un tableau avec des barres, qui m'indiquent les valeurs d'actions du mois.
Dans mon graphe une cellule (H9) est un menue déroulant qui va de : (janv-08 => déc-08)
le but est de faire une macro qui m'affiche en fonction de H9 les écarts dans mon graphe.
En gros si sur H9 je selectionne avr-08
il va m'afficher les valeurs dans mon graphe de JANV-08 => AVR-08
cricriminator
Messages postés5Date d'inscriptionvendredi 29 février 2008StatutMembreDernière intervention26 mars 2008 26 mars 2008 à 09:53
Voici le début de mon code, mais ya un bleme qqpart...
______________________________________________
Sub toto()
'
' toto Macro
' Macro enregistrée le 25/03/2008 par c331042
'
'
Sheets("Synthèse QOFG").Select
num_mois = Month(Cells(h9).Value)
MsgBox (CStr(num_mois))
If num_mois > 12 Then num_mois = 12
For i = num_mois To 12
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(i).Select
With Selection.Border
.Weight = xlHairline
.LineStyle = xlNone
End With
Selection.Shadow = False
Selection.InvertIfNegative = False
Selection.Interior.ColorIndex = xlNone
Next