Vba colorer des cellules en fonction de %
Résolu
kanzaki57
-
Raymond PENTIER Messages postés 71871 Date d'inscription Statut Contributeur Dernière intervention -
Raymond PENTIER Messages postés 71871 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je vous explique j'ai un tableau excel pour calculer de la productivité et je dois colorer des cellules en fonction de restrictions de pourcentages pour montrer les améliorations. J'ai 5 restritions donc je ne peux pas utiliser la mise en forme conditionnelle alors je souhaite utiliser le vba mais malgré mes cours d'info je séche!!!
Voici mes restrictions :
MOYENNE
TRES BIEN >+15%
BIEN entre 6 et 14%
MOYEN égal à + 5%
AMELIORATION < ou égal à la moyenne
INSUFFISANT < à la moyenne > 5%
Sachant que il y a de la couleur dans la cellule et la police est colorée également.
Merci d'avance.
Je vous explique j'ai un tableau excel pour calculer de la productivité et je dois colorer des cellules en fonction de restrictions de pourcentages pour montrer les améliorations. J'ai 5 restritions donc je ne peux pas utiliser la mise en forme conditionnelle alors je souhaite utiliser le vba mais malgré mes cours d'info je séche!!!
Voici mes restrictions :
MOYENNE
TRES BIEN >+15%
BIEN entre 6 et 14%
MOYEN égal à + 5%
AMELIORATION < ou égal à la moyenne
INSUFFISANT < à la moyenne > 5%
Sachant que il y a de la couleur dans la cellule et la police est colorée également.
Merci d'avance.
A voir également:
- Vba colorer une cellule en fonction de sa valeur
- Fonction si et - Guide
- Colorer une cellule excel selon de sa valeur - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Excel : Remplir une cellule en fonction d'une autre ✓ - Forum Excel
3 réponses
Bonsoir,
d'apres mes souvenirs car je n'ai plus Excel d'installé sur mon pc actuel
il me semble que c'est du genre :
dim i as integer
dim moyenne as float
moyenne=range("A1").value
for i=1 to 10
if cell(1,i).value>1,15*moyenne then
Cell(1, i).Interior.ColorIndex = rgb(255,0,0)
else
...
endif
next
A adapter selon les cellules bien sur.
J'espere que ça te donnera une piste...
d'apres mes souvenirs car je n'ai plus Excel d'installé sur mon pc actuel
il me semble que c'est du genre :
dim i as integer
dim moyenne as float
moyenne=range("A1").value
for i=1 to 10
if cell(1,i).value>1,15*moyenne then
Cell(1, i).Interior.ColorIndex = rgb(255,0,0)
else
...
endif
next
A adapter selon les cellules bien sur.
J'espere que ça te donnera une piste...
