bonjour tt le monde
je vous expose mon problme
j'ai mis un code qui vas afficher un chiffre en fonction de couleurs pour chaque activite
le principe
jai 4 indicateur Q P D C
chque indicateur peut prendre 4 couleur Rouge, noire orange , vert
exemple
a laide de mon userform je vais :
imposer le rouge pour Q
L'orange pour P
noire pour D
vert pour C
ma cellule que jai specifie va mafficher le chifre 1324
car dans mon user forme jai specifie que si lindicateur prend le rouge il va afficher 1
si il prned le noire il affiche 2
orange il afiche 3
vert il affuche 4
et cela pour tt les indicateurs , ce que nous donne au final 4 chiffre qui corespend chquun a un indicateure
voici le programme que jai mis
coul_Q = 1000 * (1 * (VB_comments.TextBox2.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox2.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox2.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox2.BackColor = RGB(175, 250, 175)))
coul_P = 100 * (1 * (VB_comments.TextBox3.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox3.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox3.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox3.BackColor = RGB(175, 250, 175)))
coul_D = 10 * (1 * (VB_comments.TextBox4.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox4.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox4.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox4.BackColor = RGB(175, 250, 175)))
coul_C = 1 * (1 * (VB_comments.TextBox5.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox5.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox5.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox5.BackColor = RGB(175, 250, 175)))
ActiveCell.Offset(0, 6).Value = coul_Q + coul_P + coul_D + coul_C
maintenat puisque il ya plusieur activites je vais avoire plusieur cellule a 4 chiffre comme le montre limage
ce que je souhaite c de mettre un code vba qui va faire la somme pour chque indicateur en fonction de sa couleur ( le nombre)
exemple d'image
jai 5 cellule , chaqune contien 4 chifre :
1332 : veut dire :
lindicateur Q est en rouge (qui est symbolise par le premier chiffre 1)
l indicateur P qui est en 2 eme position = 3 : veut dire que il est en orange
l indicateur D qui est en 3 eme position =3 veut dire que est en orange
l indicateur C qui a la derniere position = 4 veut dire que lindicateur C en en vert
de mm pour les autres cellule
donc si je fais la somme manuellement je vais avoir pour
Q : 4 activite en rouge (car 4 cellule commence par le 1 ) et une activite qui est en vert (le premeir chiffre de la derniere cellule =4)n
P : jai pour les 5 activite le chiffre 3 est corespond a la couleur orange donc lindicateur P = 5 en rouge
D : 4 en orange et 1 en rouge
C : 5 en noire
donc je vais avoire 16 grille
4 grrille ( qui correspond a la couleur ) pour chque indicateur
merci pour vos reponse
je vous expose mon problme
j'ai mis un code qui vas afficher un chiffre en fonction de couleurs pour chaque activite
le principe
jai 4 indicateur Q P D C
chque indicateur peut prendre 4 couleur Rouge, noire orange , vert
exemple
a laide de mon userform je vais :
imposer le rouge pour Q
L'orange pour P
noire pour D
vert pour C
ma cellule que jai specifie va mafficher le chifre 1324
car dans mon user forme jai specifie que si lindicateur prend le rouge il va afficher 1
si il prned le noire il affiche 2
orange il afiche 3
vert il affuche 4
et cela pour tt les indicateurs , ce que nous donne au final 4 chiffre qui corespend chquun a un indicateure
voici le programme que jai mis
coul_Q = 1000 * (1 * (VB_comments.TextBox2.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox2.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox2.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox2.BackColor = RGB(175, 250, 175)))
coul_P = 100 * (1 * (VB_comments.TextBox3.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox3.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox3.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox3.BackColor = RGB(175, 250, 175)))
coul_D = 10 * (1 * (VB_comments.TextBox4.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox4.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox4.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox4.BackColor = RGB(175, 250, 175)))
coul_C = 1 * (1 * (VB_comments.TextBox5.BackColor = RGB(250, 100, 100)) + 2 * (VB_comments.TextBox5.BackColor = RGB(0, 0, 0)) + 3 * (VB_comments.TextBox5.BackColor = RGB(250, 175, 100)) + 4 * (VB_comments.TextBox5.BackColor = RGB(175, 250, 175)))
ActiveCell.Offset(0, 6).Value = coul_Q + coul_P + coul_D + coul_C
maintenat puisque il ya plusieur activites je vais avoire plusieur cellule a 4 chiffre comme le montre limage
ce que je souhaite c de mettre un code vba qui va faire la somme pour chque indicateur en fonction de sa couleur ( le nombre)
exemple d'image
jai 5 cellule , chaqune contien 4 chifre :
1332 : veut dire :
lindicateur Q est en rouge (qui est symbolise par le premier chiffre 1)
l indicateur P qui est en 2 eme position = 3 : veut dire que il est en orange
l indicateur D qui est en 3 eme position =3 veut dire que est en orange
l indicateur C qui a la derniere position = 4 veut dire que lindicateur C en en vert
de mm pour les autres cellule
donc si je fais la somme manuellement je vais avoir pour
Q : 4 activite en rouge (car 4 cellule commence par le 1 ) et une activite qui est en vert (le premeir chiffre de la derniere cellule =4)n
P : jai pour les 5 activite le chiffre 3 est corespond a la couleur orange donc lindicateur P = 5 en rouge
D : 4 en orange et 1 en rouge
C : 5 en noire
donc je vais avoire 16 grille
4 grrille ( qui correspond a la couleur ) pour chque indicateur
merci pour vos reponse
