Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Graphe couleurs dynamiques

Graphe couleurs dynamiques

9 réponses
Avatar
Claude
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous=20
pour pouvoir la faire fonctionner avec deux s=E9ries=20
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a =3D 1 To 12
val_barre =3D Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col =3D 3
ElseIf val_barre < 0.9 Then
col =3D 6
Else
col =3D 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex =3D col
Next
End Sub
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ru-th
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphcondition
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message de
news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub
Avatar
Claude
Merci,
mais c'est déjà là que j'ai trouvé ce code et je voudrais
l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphconditio
n

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message de
news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.



Avatar
ru-th
re-

en supposant 2 séries en colonne AL (38), AM (39)
à vu de nez
Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
val_barre = cells(a + 4 , i+37).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub

ps : dans mon souvenir l'autre technique indiquer dans le lien la faisait
pour les différentes séries
a+
rural thierry (pour chrisV "et le SAV, il est où ?")

"Claude" a écrit dans le message de news:
293e01c42839$8df2e810$
Merci,
mais c'est déjà là que j'ai trouvé ce code et je voudrais
l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphconditio
n

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message de
news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.



Avatar
Claude
Non ca ne marche pas ca bloque sur val_barre
pour infos mes séries sont en AL 5 à 16 et AL 22 à 33
-----Message d'origine-----
re-

en supposant 2 séries en colonne AL (38), AM (39)
à vu de nez
Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
val_barre = cells(a + 4 , i+37).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub

ps : dans mon souvenir l'autre technique indiquer dans le
lien la faisait

pour les différentes séries
a+
rural thierry (pour chrisV "et le SAV, il est où ?")

"Claude" a écrit dans le message de
news:

293e01c42839$8df2e810$
Merci,
mais c'est déjà là que j'ai trouvé ce code et je voudrais
l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphconditi
o


n
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message de
news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.




.




Avatar
ru-th
re-

nouveau test compte tenu de l'emplacement de tes séries

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
IF i=1
j=0
else
j
endif
val_barre = cells(a + 4+j , 38).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub
tu ne veux pas vraiement essayé l'autre méthode qui teste les différents
points des différentes series ?
a+
rural thierry

"Claude" a écrit dans le message de news:
2a2901c42864$d11bfed0$
Non ca ne marche pas ca bloque sur val_barre
pour infos mes séries sont en AL 5 à 16 et AL 22 à 33
-----Message d'origine-----
re-

en supposant 2 séries en colonne AL (38), AM (39)
à vu de nez
Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
val_barre = cells(a + 4 , i+37).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub

ps : dans mon souvenir l'autre technique indiquer dans le
lien la faisait

pour les différentes séries
a+
rural thierry (pour chrisV "et le SAV, il est où ?")

"Claude" a écrit dans le message de
news:

293e01c42839$8df2e810$
Merci,
mais c'est déjà là que j'ai trouvé ce code et je voudrais
l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphconditi
o


n
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message de
news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.




.




Avatar
Claude
meme resultat mais je suis pret à tester l'autre méthode
@+
Claude
-----Message d'origine-----
re-

nouveau test compte tenu de l'emplacement de tes séries

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
IF i=1
j=0
else
j
endif
val_barre = cells(a + 4+j , 38).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub
tu ne veux pas vraiement essayé l'autre méthode qui
teste les différents

points des différentes series ?
a+
rural thierry

"Claude" a écrit dans le message de
news:

2a2901c42864$d11bfed0$
Non ca ne marche pas ca bloque sur val_barre
pour infos mes séries sont en AL 5 à 16 et AL 22 à 33
-----Message d'origine-----
re-

en supposant 2 séries en colonne AL (38), AM (39)
à vu de nez
Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
val_barre = cells(a + 4 , i+37).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub

ps : dans mon souvenir l'autre technique indiquer dans le
lien la faisait

pour les différentes séries
a+
rural thierry (pour chrisV "et le SAV, il est où ?")

"Claude" a écrit dans le message de
news:

293e01c42839$8df2e810$
Merci,
mais c'est déjà là que j'ai trouvé ce code et je voudrais
l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphcondit
i



o
n
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message
de



news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.




.




.





Avatar
ru-th
bon, si ton classeur n'est pas confidentiel
envoie sur en ôtant le machin

a+
rural thierry
"Claude" a écrit dans le message de news:
2c0201c42871$cc868540$
meme resultat mais je suis pret à tester l'autre méthode
@+
Claude
-----Message d'origine-----
re-

nouveau test compte tenu de l'emplacement de tes séries

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
IF i=1
j=0
else
j
endif
val_barre = cells(a + 4+j , 38).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub
tu ne veux pas vraiement essayé l'autre méthode qui
teste les différents

points des différentes series ?
a+
rural thierry

"Claude" a écrit dans le message de
news:

2a2901c42864$d11bfed0$
Non ca ne marche pas ca bloque sur val_barre
pour infos mes séries sont en AL 5 à 16 et AL 22 à 33
-----Message d'origine-----
re-

en supposant 2 séries en colonne AL (38), AM (39)
à vu de nez
Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
val_barre = cells(a + 4 , i+37).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub

ps : dans mon souvenir l'autre technique indiquer dans le
lien la faisait

pour les différentes séries
a+
rural thierry (pour chrisV "et le SAV, il est où ?")

"Claude" a écrit dans le message de
news:

293e01c42839$8df2e810$
Merci,
mais c'est déjà là que j'ai trouvé ce code et je voudrais
l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphcondit
i



o
n
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message
de



news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.




.




.





Avatar
Claude
Ok je t'envoie la feuille qui est "semi-confidentielle"
mais tu auras un souci, beaucoup de fichiers liés sont sur
un serveur donc pa
-----Message d'origine-----
bon, si ton classeur n'est pas confidentiel
envoie sur en ôtant le
machin


a+
rural thierry
"Claude" a écrit dans le message de
news:

2c0201c42871$cc868540$
meme resultat mais je suis pret à tester l'autre méthode
@+
Claude
-----Message d'origine-----
re-

nouveau test compte tenu de l'emplacement de tes séries

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
IF i=1
j=0
else
j
endif
val_barre = cells(a + 4+j , 38).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub
tu ne veux pas vraiement essayé l'autre méthode qui
teste les différents

points des différentes series ?
a+
rural thierry

"Claude" a écrit dans le message de
news:

2a2901c42864$d11bfed0$
Non ca ne marche pas ca bloque sur val_barre
pour infos mes séries sont en AL 5 à 16 et AL 22 à 33
-----Message d'origine-----
re-

en supposant 2 séries en colonne AL (38), AM (39)
à vu de nez
Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
val_barre = cells(a + 4 , i+37).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub

ps : dans mon souvenir l'autre technique indiquer dans
le



lien la faisait
pour les différentes séries
a+
rural thierry (pour chrisV "et le SAV, il est où ?")

"Claude" a écrit dans le message
de



news:
293e01c42839$8df2e810$
Merci,
mais c'est déjà là que j'ai trouvé ce code et je
voudrais



l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphcondi
t




i
o
n
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message
de



news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.




.




.




.






Avatar
ru-th
re-
Fichier renvoyé et détruit chez moi
la macro
Sub FormatConditionnelGraphique()
Application.ScreenUpdating = False
ActiveSheet.ChartObjects("Graphique 63").Activate
'Compte le nombre de séries
For c = 1 To ActiveChart.SeriesCollection.Count
'compte le nombre de points
For d = 1 To ActiveChart.SeriesCollection(c).Points.Count
'teste la présente des étiquettes sur le graphs
If ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = False Then TEST
= 1
'affiche les étiquettes
ActiveChart.SeriesCollection(c).Points(d).HasDataLabel = True
'récupère les informations des étiquettes et transforme le % en nombre
rep = (Mid(ActiveChart.SeriesCollection(c).Points(d).DataLabel.Text, 1,
Len(ActiveChart.SeriesCollection(c).Points(d).DataLabel.Text) - 1)) / 100
'convertit l'étiquette en nombre et fait le test
If CDbl(rep) >= 0.8 Then
'suivant le résultat, change la couleur
ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 3
ElseIf CDbl(rep) >= 0.6 Then
ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 4
Else
ActiveChart.SeriesCollection(c).Points(d).Interior.ColorIndex = 6
End If
'remets dans l'état initial le graphique
If TEST = 1 Then ActiveChart.SeriesCollection(c).Points(d).HasDataLabel False
Next d
Next c
End Sub
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message de
news:2d6201c4287b$d0e9fae0$
Ok je t'envoie la feuille qui est "semi-confidentielle"
mais tu auras un souci, beaucoup de fichiers liés sont sur
un serveur donc pa
-----Message d'origine-----
bon, si ton classeur n'est pas confidentiel
envoie sur en ôtant le
machin


a+
rural thierry
"Claude" a écrit dans le message de
news:

2c0201c42871$cc868540$
meme resultat mais je suis pret à tester l'autre méthode
@+
Claude
-----Message d'origine-----
re-

nouveau test compte tenu de l'emplacement de tes séries

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
IF i=1
j=0
else
j
endif
val_barre = cells(a + 4+j , 38).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub
tu ne veux pas vraiement essayé l'autre méthode qui
teste les différents

points des différentes series ?
a+
rural thierry

"Claude" a écrit dans le message de
news:

2a2901c42864$d11bfed0$
Non ca ne marche pas ca bloque sur val_barre
pour infos mes séries sont en AL 5 à 16 et AL 22 à 33
-----Message d'origine-----
re-

en supposant 2 séries en colonne AL (38), AM (39)
à vu de nez
Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
for i=1 to 2
For a = 1 To 12
val_barre = cells(a + 4 , i+37).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(i).Points _
(a).Interior.ColorIndex = col
Next a
next i
End Sub

ps : dans mon souvenir l'autre technique indiquer dans
le



lien la faisait
pour les différentes séries
a+
rural thierry (pour chrisV "et le SAV, il est où ?")

"Claude" a écrit dans le message
de



news:
293e01c42839$8df2e810$
Merci,
mais c'est déjà là que j'ai trouvé ce code et je
voudrais



l'adapter avec plusieurs séries
-----Message d'origine-----
Salut

jettes un coup d'oeil là
http://www.excelabo.net/xl/graph.php#couleursgraphcondi
t




i
o
n
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Claude" a écrit dans le message
de



news:23eb01c427bc$35ab4c10$
Bonjour,

Est ce que qq sait comment modifier ma macro ci dessous
pour pouvoir la faire fonctionner avec deux séries
distinctes..

Merci
Claude

Sub Barre_Couleur()
ActiveSheet.ChartObjects("Graphique 55").Activate
For a = 1 To 12
val_barre = Range("AL" & a + 4).Value
If val_barre < 0.8 Then
col = 3
ElseIf val_barre < 0.9 Then
col = 6
Else
col = 4
End If
ActiveChart.SeriesCollection(1).Points
(a).Interior.ColorIndex = col
Next
End Sub


.




.




.




.