> Tous les forums > Forum Bureautique
 Macro couleur séries graphique excel 2010
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
WINNIE0931
  Posté le 16/10/2014 @ 15:39 
Aller en bas de la page 
Petit astucien

Bonjour à tous.

Je suis à la recherche (certainement par VBA) d'un moyen d'automatiser les couleurs des séries d'un graphique de type histogramme en fonction des libellés des étiquettes des séries.

Le document est téléchargeable avec ce lien :

http://cjoint.com/?DJqpPpBsWlS

Les étiquettes peuvent prendre 4 valeurs :

- "Bon niveau" et en ce cas la couleur de la série serait bleu turquoise (RGB : 102 204 255)

- "Niveau moyen" et en ce cas la couleur de la série serait lavande (RGB : 255 153 255)

- "Passable" et en ce cas la couleur de la série serait vert clair (RGB : 204 255 153)

- "Autres cas" et en ce cas la couleur de la série serait orange (RGB : 255 192 0)

A noter que les étiquettes ne sont pas forcément au nombre de 4 ; le "niveau moyen" peut être absent de l'étude par exemple.

Je génère le graphique par la macro suivante, en sélectionnant la source (ici cellules B4:T9) à l'aide d'une Inputbox

Sub generegraph()
'

Dim Var As range, i As Integer, NomZone As String
On Error Resume Next
Set Var = Application.InputBox("Sélectionner la source du graphique à partir de la cellule B4", _
"Sélection de zone ", Default:="", Type:=8)
On Error GoTo 0
If Not Var Is Nothing Then
'MsgBox Var.Address qui correspond aux références des cellules sélectionnées
Var.Select
Else
Exit Sub
End If

Dim maplage As range
Set maplage = Selection


'

'
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Activesheet.Shapes.AddChart.Select
ActiveChart.SeriesCollection(1).ChartType = xl3DColumnStacked
ActiveChart.Parent.Name = "mongraph"

ActiveChart.SetSourceData Source:=maplage
Activesheet.Shapes("mongraph").ScaleWidth 1.5989584427, msoFalse, _
msoScaleFromTopLeft
Activesheet.Shapes("mongraph").ScaleHeight 1.4861111111, msoFalse, _
msoScaleFromTopLeft
Activesheet.Shapes("mongraph").ScaleWidth 1.2657980274, msoFalse, _
msoScaleFromTopLeft
Activesheet.Shapes("mongraph").ScaleHeight 1.1565420561, msoFalse, _
msoScaleFromTopLeft


Activesheet.ChartObjects("mongraph").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.ChartArea.Format.ThreeD.Perspective = False


Mavariable = Var.Address
'MsgBox mavariable
range(Mavariable).SpecialCells(xlCellTypeConstants, 1).Select
For Each Cellule In Selection
If Cellule.Value = 0 Then Cellule.Value = ""
Next

Activesheet.ChartObjects("mongraph").Activate

For num = 1 To ActiveChart.SeriesCollection.Count

ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(num).Select
ActiveChart.SetElement (msoElementDataLabelShow)
Next



Activesheet.ChartObjects("mongraph").Activate
ActiveChart.Legend.Select
ActiveChart.Legend.Select
Selection.Position = xlBottom



End Sub

Merci beaucoup pour votre aide

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
999,99 €PC Portable 15.6 pouces Asus ROG TUF (Core i5 11300H, 16 Go, 512 Go SSD, RTX 3060) à 999,99 €
Valable jusqu'au 08 Décembre

Cdiscount fait une promotion sur l'ordinateur portable Asus TUF TUF516PM-AZ066 qui passe à 999,99 € alors qu'on le trouve ailleurs à partir de 1200 €. Cet ordinateur portable est équipé d'un écran 15,6 pouces Full HD (1920x1080 pixels) 240 Hz anti-reflet, d'un SSD de 512 Go, d'un processeur Intel Core i5-11300H, de 16 Go de RAM et d'une carte graphique dédiée NVIDIA GeForce RTX 3060 85W avec 6 Go de RAM. Le clavier est rétro éclairé. L'ordinateur est livré sans OS mais vous pouvez facilement installer Windows 10.


> Voir l'offre
19,90 €Bracelet connecté Xiaomi Mi Band 5 avec tracker cardiaque IP67, écran OLED et Bluetooth 5 à 19,90 €
Valable jusqu'au 09 Décembre

Amazon fait une promotion sur le bracelet connecté de fitness Xiaomi Mi Band 5 avec tracker cardiaque à 19,90 €. Ce bracelet est étanche IP67 et possède le bluetooth 5.0. Avec lui, vous pouvez suivre votre rythme cardiaque, mais également vos pas et vos calories dépensées que vous pourrez afficher sur son écran OLED couleur, de même que l'heure courante. Il intègre également un réveil vibreur silencieux (pratique pour se réveiller la nuit sans réveiller sa moitié) et peut suivre vos phases de sommeil. Vous pourrez configurer le bracelet et suivre votre activité depuis n'importe quel appareil mobile avec Bluetooth 5 sous Android ou iOS. Vous pourrez contrôler votre musique du téléphone depuis le bracelet et afficher vos notifications.

Sa batterie autorise une autonomie de 20 jours entre 2 recharges.


> Voir l'offre
79,99 €Aspirateur/Souffleur/Broyeur de feuilles Bosch UniversalGardenTidy 2300 à 79,99 €
Valable jusqu'au 09 Décembre

Amazon fait une promotion sur l'Aspirateur/Souffleur/Broyeur de feuilles Bosch UniversalGardenTidy 2300 qui passe à 79,99 € au lieu de 119 €. Ce souffleur et aspirateur de feuilles est un outil de nettoyage 3 en 1 permettant à la fois d’aspirer, de souffler et de broyer les feuilles et déchets végétaux. 2 300 W, sac de collecte de 45 L, vitesse variable, pour souffler, aspirer et broyer les feuilles.

 


> Voir l'offre

Sujets relatifs
Macro Excel 2010-lien hypertexte
Bouton macro dans feuille Excel 2010
(Macro Excel) Sélectionner cellule en fonction de sa couleur
graphique excel 2010
Graphique excel 2010
Macro sous Excel 2010
Excel 2007 graphique ajouter séries de données
probleme macro excel 2010
Excel 2010, Macro d'un bouton
Macro Excel 4
Plus de sujets relatifs à Macro couleur séries graphique excel 2010
 > Tous les forums > Forum Bureautique