Boucle pour reduire le programme
Fermé
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
-
18 mars 2019 à 11:35
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 23 mars 2019 à 20:30
blalaa Messages postés 167 Date d'inscription mercredi 18 avril 2018 Statut Membre Dernière intervention 24 mars 2020 - 23 mars 2019 à 20:30
A voir également:
- Boucle pour reduire le programme
- Comment réduire la taille d'un fichier - Guide
- Programme demarrage windows 10 - Guide
- Comment reduire la taille d'une photo - Guide
- Programme démarrage windows 10 - Guide
- Ce message d'erreur apparaît sur l'ordinateur d'elena. que peut-on dire du programme gwxux ? - Forum logiciel systeme
4 réponses
Zoul67
Messages postés
1959
Date d'inscription
lundi 3 mai 2010
Statut
Membre
Dernière intervention
30 janvier 2023
149
18 mars 2019 à 14:53
18 mars 2019 à 14:53
Bonjour,
De manière générale, il faut éviter d'utiliser les couleurs...
Sinon, essaie (en remplacement de tout ton code !) :
A+
De manière générale, il faut éviter d'utiliser les couleurs...
Sinon, essaie (en remplacement de tout ton code !) :
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
A+
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
20 mars 2019 à 11:00
20 mars 2019 à 11:00
Bonjour à tous
Je ne sais pas si j'ai bien compris.
Un essai
https://www.cjoint.com/c/ICuj7yS0NzB
Cdlmnt
Je ne sais pas si j'ai bien compris.
Un essai
https://www.cjoint.com/c/ICuj7yS0NzB
Cdlmnt
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
21 mars 2019 à 09:25
21 mars 2019 à 09:25
Bonjour
en fait c pas ce que je voulais, merci quand mm
pour le code des couleur monsieur Zoul67 me la passe et je le remerci par l'ocasion
voici le code
ce que je cherche maintenant c de faire la somme des couleurs
exemple
chque activite a 4 indicateur (Q P D C ) et chque indicateur va prendre une couleur qui peut etre rouge,noire,orange,vert
ce que je veux c un code pour faire la somme de chaque indicateur en fonction de sa couleur
comme ici jai mis si la couleur de lindicateur Q est rouge
la couleur de lindicateur Q est noiire
la couleur de lindicateur Q est orange
la couleur de lindicateur Q est vert
donc dans ma cellule je vais avoire un chiffre qui coresponds a ces couleurs la = 1234
le 1 signifie que lindicateur Q est rouge (si au lieu 1 c 3 ca signifie que la couleur de Q est orange .....)
le 2 signifie que lindicateur P est rouge (si au lieu 2 c 4 ca signifie que la couleur de P est vert .....)
le 3 signifie que lindicateur D est VERT (si au lieu 4 c 1 ca signifie que la couleur de D est rouge .....)
le 4 signifie que lindicateur C est vert (si au lieu 4 c 2 ca signifie que la couleur de P est Noire .....)
sachant yq plusieur activites alos jaurais plusieur chiffres bien sur dans des celluls differnet que jai specifie moi (comme montre dans limage)
maintenat je veux faire la somme pour chque indicateur en fonction de sa couluer par exemple
limage l'indicateur Q prend le chifre 1 dans 4 cellule et prend le chiffre 4 dans la derniere cellule
donc lindicateur Q est en rouge dans 4 activite et en vert dans une activite
mon code va faire la somme et jaurrais pour lindicateur Q
jai 4 Q en rouge et 1 Q en vert
je ne sai spas si c claire ou nn
mais si vous pouvez maider c serit vraiment gentil
je trouve pas la solution
merci davance
en fait c pas ce que je voulais, merci quand mm
pour le code des couleur monsieur Zoul67 me la passe et je le remerci par l'ocasion
voici le code
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
ce que je cherche maintenant c de faire la somme des couleurs
exemple
chque activite a 4 indicateur (Q P D C ) et chque indicateur va prendre une couleur qui peut etre rouge,noire,orange,vert
ce que je veux c un code pour faire la somme de chaque indicateur en fonction de sa couleur
comme ici jai mis si la couleur de lindicateur Q est rouge
la couleur de lindicateur Q est noiire
la couleur de lindicateur Q est orange
la couleur de lindicateur Q est vert
donc dans ma cellule je vais avoire un chiffre qui coresponds a ces couleurs la = 1234
le 1 signifie que lindicateur Q est rouge (si au lieu 1 c 3 ca signifie que la couleur de Q est orange .....)
le 2 signifie que lindicateur P est rouge (si au lieu 2 c 4 ca signifie que la couleur de P est vert .....)
le 3 signifie que lindicateur D est VERT (si au lieu 4 c 1 ca signifie que la couleur de D est rouge .....)
le 4 signifie que lindicateur C est vert (si au lieu 4 c 2 ca signifie que la couleur de P est Noire .....)
sachant yq plusieur activites alos jaurais plusieur chiffres bien sur dans des celluls differnet que jai specifie moi (comme montre dans limage)
maintenat je veux faire la somme pour chque indicateur en fonction de sa couluer par exemple
limage l'indicateur Q prend le chifre 1 dans 4 cellule et prend le chiffre 4 dans la derniere cellule
donc lindicateur Q est en rouge dans 4 activite et en vert dans une activite
mon code va faire la somme et jaurrais pour lindicateur Q
jai 4 Q en rouge et 1 Q en vert
je ne sai spas si c claire ou nn
mais si vous pouvez maider c serit vraiment gentil
je trouve pas la solution
merci davance
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
21 mars 2019 à 11:48
21 mars 2019 à 11:48
RE bonjour
jai mis ce code mais je ne sais pas comment l'adapter pour plusieurs cellule et commenet faire ensuit la somme
en gros je recupere le premier chiffre apres le 2 eme apre le 3 eme et le 4 eme
mais je ne sais pas comment continuer
si vous avez une idee merci de me la partager
jai mis ce code mais je ne sais pas comment l'adapter pour plusieurs cellule et commenet faire ensuit la somme
Sub g()
Dim a As Integer
Dim x, x1, y, y1, z As Integer
a = Left(Range("B1"), 1)
x = Left(Range("b1"), 2)
x1 = Right(x, 1)
y = Left(Range("b1"), 3)
y1 = Right(y, 1)
z = Right(Range("b1"), 1)
End Sub
en gros je recupere le premier chiffre apres le 2 eme apre le 3 eme et le 4 eme
mais je ne sais pas comment continuer
si vous avez une idee merci de me la partager
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié le 22 mars 2019 à 16:26
Modifié le 22 mars 2019 à 16:26
Quelque chose comme ça ?
https://www.cjoint.com/c/ICwpAxGFxiB
Cdlmnt
https://www.cjoint.com/c/ICwpAxGFxiB
Cdlmnt
blalaa
Messages postés
167
Date d'inscription
mercredi 18 avril 2018
Statut
Membre
Dernière intervention
24 mars 2020
23 mars 2019 à 20:30
23 mars 2019 à 20:30
merci beaucoup
18 mars 2019 à 15:59
merci ca a marche , au debut il affiche le chifre avec le signe (-) apres j'ai rajoute au debut de chque coul le signe (-) et ca fonctionne super
18 mars 2019 à 16:39
comme vous pouvez le voire apres l'enregistrement de mes couleurs je voudrais faire la somme de Q qui sont en rouges et renvoyer la somme a une cellule specifiee , la somme de Q qui sont noire , Q qui sont en orange, la somme de Q qui sont vert
de mm pour les autres indicateurs a savoir P, D , C, je ne sais pas si c possible ou nn , si vous avez une idee merci d'avance pour votre aide.
18 mars 2019 à 16:58
18 mars 2019 à 17:02
c un doc que j'ai recupere
18 mars 2019 à 17:07