Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Code VBA - changer couleur etiquette histogramme sous condition

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion kd13
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

kd13

Guest
bonjour je suis debutant en VBA excel et
j'aimerais bien avoir un script qui me permet de changer la couleur des étiquettes de mon histogramme selon une condition
couleur vert si la valeur de l'etiquette est positive sinon rouge

Merci !!​
 
Trier par date Trier par votes
Re : Code VBA - changer couleur etiquette histogramme sous condition

j'ai essayé ce code mais ca marche pas


Sub Macro3()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(2).Select

ActiveChart.SeriesCollection(2).DataLabels.Select 'sélection de l'étiquette
If [selection.value <0 ] Then
With Selection.Interior
.ColorIndex = 3 'couleur de fond rouge
.PatternColorIndex = 1
.Pattern = xlSolid
End With
Else With Selection.Interior
.ColorIndex = 8 'couleur de fond rouge
.PatternColorIndex = 1
.Pattern = xlSolid
End With
End If
With Selection.Interior
.ColorIndex = 8 'couleur de fond rouge
.PatternColorIndex = 1
.Pattern = xlSolid
End With
End Sub
 
Vote positif 0 Vote négatif
Re : Code VBA - changer couleur etiquette histogramme sous condition

Bonsoir,
Code: 
Sub Macro3()
Dim cht As Chart, tablo
Set cht = ActiveSheet.ChartObjects("Graphique 1").Chart
With cht.SeriesCollection(2)
    tablo = .Values
    For i = 1 To UBound(tablo)
        If tablo(i) > 0 Then
            .Points(i).DataLabel.Interior.ColorIndex = 4
        Else
            .Points(i).DataLabel.Interior.ColorIndex = 3
        End If
    Next
End With
End Sub
A+
kjin
 
Vote positif 0 Vote négatif
Re : Code VBA - changer couleur etiquette histogramme sous condition

Merci bien
mais il y' une erreur au niveau de cette ligne
"parametre non valide"
.Points(i).DataLabel.Interior.ColorIndex = 4
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

H
  • Résolu(e)
XL 2016 Changer la couleur d'un histogramme sur un graphique en vba
Réponses
2
Affichages
324
hutch57
H
M
  • Question Question
XL 2021 Gestion des couleurs histogramme
Réponses
2
Affichages
472
nat54
H
  • Question Question
XL 2019 Masquer des lignes sous condition en vba
Réponses
8
Affichages
297
job75
P
  • Résolu(e)
XL pour MAC Problème de changement de couleur de la valeur d'une cellule
Réponses
2
Affichages
578
pvander
P
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
500
sylvanu
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
198
sylvanu
S
  • Question Question
XL 2016 Comment attribuer des classes avec trois conditions?
Réponses
7
Affichages
432
TooFatBoy
I
  • Résolu(e)
XL 2021 VBA - importer des tableaux dans un fichier excel
2 3
Réponses
44
Affichages
2 K
fanch55
  • Question Question
XL 2010 tableau mise en forme conditionnelle
Réponses
2
Affichages
586
pierre dupont
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
K
  • Question Question
XL 2019 VBA colorer les cellules et éliminer les cellules en rouge dans le calcul de plus proche valeur
Réponses
3
Affichages
482
KAMARY
K
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
898
picc
P
A
  • Résolu(e)
Microsoft 365 VBA_Copier coller selon des critères dans deux menus déroulants
Réponses
6
Affichages
383
Altfkat
A
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
664
Chaton77
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
4 K
apocalypse
A
L
  • Question Question
XL 2019 Créer des dossiers et sous dossiers avec VBA
2
Réponses
19
Affichages
790
patricktoulon
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
674
ma6me
M
R
  • Question Question
XL 2019 Colorer des shapes en récupérant la couleur d'une cellule
2
Réponses
16
Affichages
2 K
ruliann
R
G
  • Question Question
Microsoft 365 Tableau de bord VBA : construction d'histogramme horizontal VBA
Réponses
8
Affichages
1 K
grace2023
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…