Dennnisss
XLDnaute Occasionnel
Bonjour a tous les intervenants
hier j'ai envoyer sur le forum comment ameliorer mon code pour minimiser les lignes autrement dit creer une boucle , mrs zon ma repondu et son code etait excellent j'ai juste modifié ou ajouter une ligne dans son code pour remettre les couleurs des labels en vert
If .Controls("Label" & i) < .Controls("Label" & i + 12) Then .Controls("Label" & i + 24).BackColor = &HFF&
If .Controls("Label" & i) >= .Controls("Label" & i + 12) Then .Controls("Label" & i + 24).BackColor = &HFF00&
moi j'ai ajouter la deuxieme ligne
tous cela va bien sauf lorsque je j'ecrit 1996 ok ca va 1997 ok ca va mais lorsque j'ecris 1998 il mais le mois d'aout en rouge mais le calcul n'est pas negatif je cherche pourquoi j'ai verifié si il avait un chiffre d'ecrit en negatif dans la feuille de calcul il ne semble pas alors j'ai besoin de votre aide s'il vous plait
bien sur je vous envoie un petit fichier avec les changements de mrs zon
alors bonne journée a vous tous et merci de votre aide
denis
hier j'ai envoyer sur le forum comment ameliorer mon code pour minimiser les lignes autrement dit creer une boucle , mrs zon ma repondu et son code etait excellent j'ai juste modifié ou ajouter une ligne dans son code pour remettre les couleurs des labels en vert
If .Controls("Label" & i) < .Controls("Label" & i + 12) Then .Controls("Label" & i + 24).BackColor = &HFF&
If .Controls("Label" & i) >= .Controls("Label" & i + 12) Then .Controls("Label" & i + 24).BackColor = &HFF00&
moi j'ai ajouter la deuxieme ligne
tous cela va bien sauf lorsque je j'ecrit 1996 ok ca va 1997 ok ca va mais lorsque j'ecris 1998 il mais le mois d'aout en rouge mais le calcul n'est pas negatif je cherche pourquoi j'ai verifié si il avait un chiffre d'ecrit en negatif dans la feuille de calcul il ne semble pas alors j'ai besoin de votre aide s'il vous plait
bien sur je vous envoie un petit fichier avec les changements de mrs zon
alors bonne journée a vous tous et merci de votre aide
denis