Discussion :

[cooltechfr]

Comment colorier une cellule de table par programation:
j'ai un table qui contient:
1-Colonne liste des étudiants.
2 Colonne Moyenne d'étudiants.
3-Colonne statut (si l'étudient à une moyenne <10 la cellule de cette colonne qui correspond à ce étudient qui n'as pas de moyenne devient rouge . sinon vert)

RQ: j'arrive à faire un code qui permet de colorer tout la ligne avec la fonction ("..CouleurFond=rouge"). mais j'aime bien colorer qu'une seul cellule

merci d'avance .

[Raptor92]

Bonjour,

Dans "l'affichage d'une ligne" de votre table:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
i est un entier
POUR i = 1 _A_ TableOccurrence(TABLE_STOCKS,toTotal)
	SI TABLE_STOCKS.COL_QTE[i]..Valeur <> 0 ALORS
		TABLE_STOCKS.COL_ARTICLE[i]..CouleurFond = VertClair
	SINON SI TABLE_STOCKS[i]..Valeur = 0 ALORS
		TABLE_STOCKS.COL_ARTICLE[i]..CouleurFond = Transparent
 
 
	FIN
FIN

Bien entendu il vous faudra changer les noms et les adapter à votre table
Dans mon cas cela fonctionne

[cooltechfr]

Parfait Raptor92 Merci

[Bowen]

Dans "l'affichage d'une ligne" de votre table:

Heu, là je suis pas vraiment d'accord...
Le fait de se placer dans l'évènement "Affichage d'une ligne", appelle automatiquement l'évènement pour chaque ligne affichée.
Donc :

• Soit on fait l'instruction sur l'évènement "affichage d'une ligne", sans placer la boucle autour :
  

  Code de l'évènement "Affichage d'une ligne" :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
   
  	SI TABLE_STOCKS.COL_QTE[i]..Valeur <> 0 ALORS
  		TABLE_STOCKS.COL_ARTICLE[i]..CouleurFond = VertClair
  	FIN

• Soit on fait l'instruction sur une procédure externe à cet évènement, qu'on appelle par exemple après avoir remplit la table. Dans ce cas on place la boucle pour parcourir toutes les lignes
  

  Code de la procédure "ColorerColonne()" :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  4
  5
  6
   
  POUR i = 1 _A_ TableOccurrence(TABLE_STOCKS,toTotal)
  	SI TABLE_STOCKS.COL_QTE[i]..Valeur <> 0 ALORS
  		TABLE_STOCKS.COL_ARTICLE[i]..CouleurFond = VertClair
  	FIN
  FIN

Le fait de faire la boucle dans l'évènement "Affichage d'une ligne" fonctionne parfaitement, mais il parcourt toutes les lignes plusieurs fois, ce qui est vraiment pénalisant quand on a beaucoup de lignes.

[Louis Griffont]

Attention ! Si la table est une table fichier, il faut absolument passer par la méthode "Affichage d'une ligne, et évidemment, ne traiter qu'une ligne à la fois.. Celle affichée !

[hpascal]

Bonjour

Bowen, tu as tout a fait raison, mais tu as oublié d'enlever le [i] et d'ajouter l'indice de la ligne en cours pour la couleur

Code de l'évènement "Affichage d'une ligne" :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SI TABLE_STOCKS.COL_QTE..Valeur <> 0 ALORS
   TABLE_STOCKS.COL_ARTICLE[TABLE_STOCKS]..CouleurFond = VertClair
FIN

[Bowen]

Heu oui, ça sent le mauvais copier-coller ça...
à noter que je remplacerais par IndiceEnCours() pour le numéro de ligne (ça ne change pas grand chose lors du parcours initial, mais lorsqu'on affiche une partie non visible du tableau, on ré-execute le code "affichage d'un ligne, et on colore alors la dernière ligne du tableau selon la règle énoncée actuellement).
La bonne syntaxe, c'est donc :

Code de la procédure "affichage d'une ligne" :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SI TABLE_STOCKS.COL_QTE <> 0 ALORS TABLE_STOCKS.COL_ARTICLE[IndiceEnCours]..CouleurFond = VertClair