Bonjour !
Je souhaiterais effectuer une mise en forme (changement de couleur) en
fonction des valeurs...(en rouge si telle valeur est superieure a tant, une
autre couleur si elle et comprise entre 2 autres valeurs ..etc...)
Connaissez vous un moyen de le faire ?
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
selegorn
Bonjour, Oui il est possible de le faire en intégrant du code VBA à ton fichier Excel (mais il doit y avoir d'autres moyens ) :
With Selection.Interior ' Intérieur de la cellule concernée .ColorIndex = 6 ' Pour la couleur jaune .Pattern = xlSolid End With
Salutations.
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Bonjour,
Oui il est possible de le faire en intégrant du code VBA à ton fichier Excel
(mais il doit y avoir d'autres moyens ) :
With Selection.Interior ' Intérieur de la cellule concernée
.ColorIndex = 6 ' Pour la couleur jaune
.Pattern = xlSolid
End With
Salutations.
Bonjour !
Je souhaiterais effectuer une mise en forme (changement de couleur) en
fonction des valeurs...(en rouge si telle valeur est superieure a tant, une
autre couleur si elle et comprise entre 2 autres valeurs ..etc...)
Connaissez vous un moyen de le faire ?
Bonjour, Oui il est possible de le faire en intégrant du code VBA à ton fichier Excel (mais il doit y avoir d'autres moyens ) :
With Selection.Interior ' Intérieur de la cellule concernée .ColorIndex = 6 ' Pour la couleur jaune .Pattern = xlSolid End With
Salutations.
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Torkem
Le probleme est que mon tableau ou se situe les données est a rafraichissement automatique...je ne sais donc pas a l'avance si la valeur presente sera supérieure a un certain seuil a partir duquel je veux colorer mes colones...En fait, il me faudrait un moyen de faire une sorte de "mise en forme conditionnelle" sur un digramme...
Bonjour, Oui il est possible de le faire en intégrant du code VBA à ton fichier Excel (mais il doit y avoir d'autres moyens ) :
With Selection.Interior ' Intérieur de la cellule concernée .ColorIndex = 6 ' Pour la couleur jaune .Pattern = xlSolid End With
Salutations.
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Le probleme est que mon tableau ou se situe les données est a
rafraichissement automatique...je ne sais donc pas a l'avance si la valeur
presente sera supérieure a un certain seuil a partir duquel je veux colorer
mes colones...En fait, il me faudrait un moyen de faire une sorte de "mise en
forme conditionnelle" sur un digramme...
Bonjour,
Oui il est possible de le faire en intégrant du code VBA à ton fichier Excel
(mais il doit y avoir d'autres moyens ) :
With Selection.Interior ' Intérieur de la cellule concernée
.ColorIndex = 6 ' Pour la couleur jaune
.Pattern = xlSolid
End With
Salutations.
Bonjour !
Je souhaiterais effectuer une mise en forme (changement de couleur) en
fonction des valeurs...(en rouge si telle valeur est superieure a tant, une
autre couleur si elle et comprise entre 2 autres valeurs ..etc...)
Connaissez vous un moyen de le faire ?
Le probleme est que mon tableau ou se situe les données est a rafraichissement automatique...je ne sais donc pas a l'avance si la valeur presente sera supérieure a un certain seuil a partir duquel je veux colorer mes colones...En fait, il me faudrait un moyen de faire une sorte de "mise en forme conditionnelle" sur un digramme...
Bonjour, Oui il est possible de le faire en intégrant du code VBA à ton fichier Excel (mais il doit y avoir d'autres moyens ) :
With Selection.Interior ' Intérieur de la cellule concernée .ColorIndex = 6 ' Pour la couleur jaune .Pattern = xlSolid End With
Salutations.
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Francois L
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce qui va déclencher la mise à jour du graphique puisque tu dis que tes données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille graphique et d'utiliser l'évènement "activate" de cette feuille pour mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert Private Sub Chart_Activate() Application.ScreenUpdating = False Dim lng As Integer, valp As Double With ActiveChart.SeriesCollection(1) For i = 1 To .Points.Count valp = WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",") With .Points(i) If valp < 5 Then .Interior.Color = RGB(255, 0, 0) Else .Interior.Color = RGB(0, 255, 0) End If End With Next End With Application.ScreenUpdating = True End Sub
Exemple d'utilisation de la méthode
http://cjoint.com/?lcsjFC1cN5
-- François L
Bonjour !
Je souhaiterais effectuer une mise en forme (changement de couleur) en
fonction des valeurs...(en rouge si telle valeur est superieure a tant, une
autre couleur si elle et comprise entre 2 autres valeurs ..etc...)
Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais
trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce
qui va déclencher la mise à jour du graphique puisque tu dis que tes
données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille
graphique et d'utiliser l'évènement "activate" de cette feuille pour
mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert
Private Sub Chart_Activate()
Application.ScreenUpdating = False
Dim lng As Integer, valp As Double
With ActiveChart.SeriesCollection(1)
For i = 1 To .Points.Count
valp =
WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",")
With .Points(i)
If valp < 5 Then
.Interior.Color = RGB(255, 0, 0)
Else
.Interior.Color = RGB(0, 255, 0)
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce qui va déclencher la mise à jour du graphique puisque tu dis que tes données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille graphique et d'utiliser l'évènement "activate" de cette feuille pour mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert Private Sub Chart_Activate() Application.ScreenUpdating = False Dim lng As Integer, valp As Double With ActiveChart.SeriesCollection(1) For i = 1 To .Points.Count valp = WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",") With .Points(i) If valp < 5 Then .Interior.Color = RGB(255, 0, 0) Else .Interior.Color = RGB(0, 255, 0) End If End With Next End With Application.ScreenUpdating = True End Sub
Exemple d'utilisation de la méthode
http://cjoint.com/?lcsjFC1cN5
-- François L
Torkem
Et bien, voila exactement ce qu'il me fallait...en fait, mes données sont mises a jour par une macro qui elle même lance un rafraichissement de données provenant d'une base de données (j'utilise un lien ODBC). Maintenent, suis-je obligé de garder ce graphique dans une autre feuille ? Est il possible de l'avoir dans une feuille ou j'ai deja un graphique et mes tables (ca ne represente que 2 graphiques et 2 tables en fait)
Merci pour ton aide !
PS: désolé de ne pas avoir recherché dans les archives...ca m'apprendra tiens....
"Francois L" wrote:
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce qui va déclencher la mise à jour du graphique puisque tu dis que tes données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille graphique et d'utiliser l'évènement "activate" de cette feuille pour mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert Private Sub Chart_Activate() Application.ScreenUpdating = False Dim lng As Integer, valp As Double With ActiveChart.SeriesCollection(1) For i = 1 To .Points.Count valp = WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",") With .Points(i) If valp < 5 Then .Interior.Color = RGB(255, 0, 0) Else .Interior.Color = RGB(0, 255, 0) End If End With Next End With Application.ScreenUpdating = True End Sub
Exemple d'utilisation de la méthode
http://cjoint.com/?lcsjFC1cN5
-- François L
Et bien, voila exactement ce qu'il me fallait...en fait, mes données sont
mises a jour par une macro qui elle même lance un rafraichissement de données
provenant d'une base de données (j'utilise un lien ODBC).
Maintenent, suis-je obligé de garder ce graphique dans une autre feuille ?
Est il possible de l'avoir dans une feuille ou j'ai deja un graphique et mes
tables (ca ne represente que 2 graphiques et 2 tables en fait)
Merci pour ton aide !
PS: désolé de ne pas avoir recherché dans les archives...ca m'apprendra
tiens....
"Francois L" wrote:
Bonjour !
Je souhaiterais effectuer une mise en forme (changement de couleur) en
fonction des valeurs...(en rouge si telle valeur est superieure a tant, une
autre couleur si elle et comprise entre 2 autres valeurs ..etc...)
Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais
trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce
qui va déclencher la mise à jour du graphique puisque tu dis que tes
données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille
graphique et d'utiliser l'évènement "activate" de cette feuille pour
mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert
Private Sub Chart_Activate()
Application.ScreenUpdating = False
Dim lng As Integer, valp As Double
With ActiveChart.SeriesCollection(1)
For i = 1 To .Points.Count
valp =
WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",")
With .Points(i)
If valp < 5 Then
.Interior.Color = RGB(255, 0, 0)
Else
.Interior.Color = RGB(0, 255, 0)
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
Et bien, voila exactement ce qu'il me fallait...en fait, mes données sont mises a jour par une macro qui elle même lance un rafraichissement de données provenant d'une base de données (j'utilise un lien ODBC). Maintenent, suis-je obligé de garder ce graphique dans une autre feuille ? Est il possible de l'avoir dans une feuille ou j'ai deja un graphique et mes tables (ca ne represente que 2 graphiques et 2 tables en fait)
Merci pour ton aide !
PS: désolé de ne pas avoir recherché dans les archives...ca m'apprendra tiens....
"Francois L" wrote:
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce qui va déclencher la mise à jour du graphique puisque tu dis que tes données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille graphique et d'utiliser l'évènement "activate" de cette feuille pour mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert Private Sub Chart_Activate() Application.ScreenUpdating = False Dim lng As Integer, valp As Double With ActiveChart.SeriesCollection(1) For i = 1 To .Points.Count valp = WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",") With .Points(i) If valp < 5 Then .Interior.Color = RGB(255, 0, 0) Else .Interior.Color = RGB(0, 255, 0) End If End With Next End With Application.ScreenUpdating = True End Sub
Exemple d'utilisation de la méthode
http://cjoint.com/?lcsjFC1cN5
-- François L
Torkem
Oubliez ma derniere question, j'ai trouve tout seul comme un grand !!
Merci beaucoup !
"Torkem" wrote:
Et bien, voila exactement ce qu'il me fallait...en fait, mes données sont mises a jour par une macro qui elle même lance un rafraichissement de données provenant d'une base de données (j'utilise un lien ODBC). Maintenent, suis-je obligé de garder ce graphique dans une autre feuille ? Est il possible de l'avoir dans une feuille ou j'ai deja un graphique et mes tables (ca ne represente que 2 graphiques et 2 tables en fait)
Merci pour ton aide !
PS: désolé de ne pas avoir recherché dans les archives...ca m'apprendra tiens....
"Francois L" wrote:
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce qui va déclencher la mise à jour du graphique puisque tu dis que tes données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille graphique et d'utiliser l'évènement "activate" de cette feuille pour mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert Private Sub Chart_Activate() Application.ScreenUpdating = False Dim lng As Integer, valp As Double With ActiveChart.SeriesCollection(1) For i = 1 To .Points.Count valp = WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",") With .Points(i) If valp < 5 Then .Interior.Color = RGB(255, 0, 0) Else .Interior.Color = RGB(0, 255, 0) End If End With Next End With Application.ScreenUpdating = True End Sub
Exemple d'utilisation de la méthode
http://cjoint.com/?lcsjFC1cN5
-- François L
Oubliez ma derniere question, j'ai trouve tout seul comme un grand !!
Merci beaucoup !
"Torkem" wrote:
Et bien, voila exactement ce qu'il me fallait...en fait, mes données sont
mises a jour par une macro qui elle même lance un rafraichissement de données
provenant d'une base de données (j'utilise un lien ODBC).
Maintenent, suis-je obligé de garder ce graphique dans une autre feuille ?
Est il possible de l'avoir dans une feuille ou j'ai deja un graphique et mes
tables (ca ne represente que 2 graphiques et 2 tables en fait)
Merci pour ton aide !
PS: désolé de ne pas avoir recherché dans les archives...ca m'apprendra
tiens....
"Francois L" wrote:
Bonjour !
Je souhaiterais effectuer une mise en forme (changement de couleur) en
fonction des valeurs...(en rouge si telle valeur est superieure a tant, une
autre couleur si elle et comprise entre 2 autres valeurs ..etc...)
Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais
trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce
qui va déclencher la mise à jour du graphique puisque tu dis que tes
données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille
graphique et d'utiliser l'évènement "activate" de cette feuille pour
mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert
Private Sub Chart_Activate()
Application.ScreenUpdating = False
Dim lng As Integer, valp As Double
With ActiveChart.SeriesCollection(1)
For i = 1 To .Points.Count
valp =
WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",")
With .Points(i)
If valp < 5 Then
.Interior.Color = RGB(255, 0, 0)
Else
.Interior.Color = RGB(0, 255, 0)
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
Oubliez ma derniere question, j'ai trouve tout seul comme un grand !!
Merci beaucoup !
"Torkem" wrote:
Et bien, voila exactement ce qu'il me fallait...en fait, mes données sont mises a jour par une macro qui elle même lance un rafraichissement de données provenant d'une base de données (j'utilise un lien ODBC). Maintenent, suis-je obligé de garder ce graphique dans une autre feuille ? Est il possible de l'avoir dans une feuille ou j'ai deja un graphique et mes tables (ca ne represente que 2 graphiques et 2 tables en fait)
Merci pour ton aide !
PS: désolé de ne pas avoir recherché dans les archives...ca m'apprendra tiens....
"Francois L" wrote:
Bonjour ! Je souhaiterais effectuer une mise en forme (changement de couleur) en fonction des valeurs...(en rouge si telle valeur est superieure a tant, une autre couleur si elle et comprise entre 2 autres valeurs ..etc...) Connaissez vous un moyen de le faire ?
merci !
Bonsoir,
Question rituelle... (si tu avais cherché dans les archives, tu aurais trouvé)
La seule solution est d'utiliser VBA. Le seul problème est de savoir ce qui va déclencher la mise à jour du graphique puisque tu dis que tes données varient régulièrement.
La solution la plus simple est de mettre le graphique dans une feuille graphique et d'utiliser l'évènement "activate" de cette feuille pour mettre à jour le graphique.
Code
' Valeur < 5 en rouge, sinon vert Private Sub Chart_Activate() Application.ScreenUpdating = False Dim lng As Integer, valp As Double With ActiveChart.SeriesCollection(1) For i = 1 To .Points.Count valp = WorksheetFunction.Substitute(WorksheetFunction.Index(.Values, i), ".", ",") With .Points(i) If valp < 5 Then .Interior.Color = RGB(255, 0, 0) Else .Interior.Color = RGB(0, 255, 0) End If End With Next End With Application.ScreenUpdating = True End Sub
Exemple d'utilisation de la méthode
http://cjoint.com/?lcsjFC1cN5
-- François L
Francois L
Oubliez ma derniere question, j'ai trouve tout seul comme un grand !!
Bonsoir,
Et bien, c'est parfait.
-- François L
Oubliez ma derniere question, j'ai trouve tout seul comme un grand !!
