× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
85,39 €SSD SanDisk Ultra 3D 1 To à 85,39 € livré (via coupon)
Valable jusqu'au 27 Octobre

Amazon Allemagne fait une belle promotion sur le SSD SanDisk Ultra 3D d'une capacité de 1 To qui passe à 80,75 € (avec la TVA ajustée) grâce à un coupon de réduction automatiquement appliqué au paiement. Comptez 4,64 € pour la livraison en France, soit un total de 85,39 € livré. On le trouve ailleurs autour de 140 €. Une bonne affaire pour ce SSD performant qui offre des débits de 560 Mo/s en lecture et 530 Mo/s en écriture. Cette version est garantie 5 ans.

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douanes. Si vous êtes perdu en allemand, vous pouvez traduire le site en anglais.


> Voir l'offre
79,99 €Ecran Samsung 22 pouces LED Full HD 2ms VGA / HDMI à 79,99 €
Valable jusqu'au 28 Octobre

Cdiscount fait actuellement une vente flash sur l'écran Samsung S22F350F qu'il propose à 79,99 € alors qu'on le trouve ailleurs autour de 90 €. Cet écran de 22 pouces est Full HD (1920x1080), dispose d'un temps de réponse rapide de 5ms et d'entrées VGA et HDMI.


> Voir l'offre
83,76 €Alimentation semi modulaire Corsair TX650M Gold à 83,76 € livrée (via coupon)
Valable jusqu'au 27 Octobre

Amazon Allemagne propose actuellement l'alimentation semi modulaire Corsair TX650M à 75,55 € (avec la TVA ajustée) grâce à un coupon de réduction automatiquement appliqué au paiement. Comptez 8,21 € pour la livraison en France soit un total de 83,76 € livrée en France. Cette alimentation de 650 W est certifiée 80+ Gold et est garantie 7 ans. On la trouve ailleurs à partir de 100 €. Semi-modulaire elle permet d'utiliser uniquement les câbles nécessaires, pour un assemblage épuré et une circulation de l'air plus efficace.


> 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