boucle (suite 2)

[Dennnisss]

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

 

[jpb388]

Re : boucle (suite 2)

Bonjour le forum
essaye ceci

 With Me
 .Controls("Label" & i + 24) = CDbl(.Controls("Label" & i)) - CDbl(.Controls("Label" & i + 12))
If CDbl(.Controls("Label" & i)) < CDbl(.Controls("Label" & i + 12)) Then .Controls("Label" & i + 24).BackColor = 255
If CDbl(.Controls("Label" & i)) >= CDbl(.Controls("Label" & i + 12)) Then .Controls("Label" & i + 24).BackColor = &HFF00&
 End With

 

[Papou-net]

Re : boucle (suite 2)

Bonsoir Dennnisss, jp,

Ou bien comme ceci :

For i = 10 To 21
 With Me
 .Controls("Label" & i + 24) = .Controls("Label" & i).Caption - .Controls("Label" & i + 12).Caption
  If .Controls("Label" & i + 24) >= 0 Then
  .Controls("Label" & i + 24).BackColor = &HFF00&
  Else
  .Controls("Label" & i + 24).BackColor = 255
  End If
 End With
 Next i
End With

Je ne saurais pas dire pourquoi, mais ça fonctionne correctement. Et puis c'est plus simple : si valeur du Label >= 0 alors couleur verte sinon couleur rouge.

Cordialement.

 

[Papou-net]

Re : boucle (suite 2)

RE :

Encore plus simple, condition sur une seule ligne :

For i = 10 To 21
 With Me
  .Controls("Label" & i + 24) = .Controls("Label" & i).Caption - .Controls("Label" & i + 12).Caption
  .Controls("Label" & i + 24).BackColor = IIf(.Controls("Label" & i + 24) >= 0, &HFF00&, 255)
 End With
 Next i

Cordialement.

 

[Dennnisss]

Re : boucle (suite 2)

Bonjour mrs papou-net

je vient de prendre connaissance de ta correction des deux codes que tu ma envoyer
les deux sont extra je n'obtient plus erreur sur le mois d'aout de l'annee 1998

tous est sensassionnel
alors merci a toi papou-net et de ta patience a me corrigé
et passe une belle fin de journee
denis gauthier

 

[Papou-net]

Re : boucle (suite 2)

Bonjour mrs papou-net

je vient de prendre connaissance de ta correction des deux codes que tu ma envoyer
les deux sont extra je n'obtient plus erreur sur le mois d'aout de l'annee 1998

tous est sensassionnel
alors merci a toi papou-net et de ta patience a me corrigé
et passe une belle fin de journee
denis gauthier

De rien, Denis, mais n'oublie pas non plus de remercier jpb388. Sa aolution marche également : l'as-tu testée ?

Cordialement.

 

[Dennnisss]

Re : boucle (suite 2)

bonjour mrs jpb388

je viens juste de voir que tu m'avais aussi envoyer un code toi aussi
alors je prend quelque lignes pour te remercier personnellement
du temps que tu a pris pour moi j'apprecie enormement
alors j,ai eu trois intervenants et grand merci a vous tous
et bonne journee
denis gauthier