Changement de couleur par ligne dans une liste

**Xsara 167 cv** · 03/11/2010, 10h20

Bonjour à tous,

J'ai une liste que je rempli à l'aide d'une table. Tout fonctionne.

Mais car il y a un mais, dans la table qui me sert de référence j'ai 2 colonnes. 1 colonne texte qui me permet de remplir la liste et une colonne booléen. Ce booléen est un marqueur.
Je n'arrive pas à trouver comment faire pour que chaque ligne de la liste soit noire ou rouge suivant la valeur du booléen du tableau... Je ne sais pas si je suis clair.

Merci de votre aide.

Bonne journée.

**mail.spam** · 03/11/2010, 11h04

Bonjour,

Il faut que tu remplisse ta liste par programmation

avec quelque chose du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
nIdListe est un entier
POUR TOUT TonFICHIER
	nIdListe++
	ListeAjoute(MonChampLISTE,TonFICHIER.MonTexteAAfficher)
	SI TonFICHIER.Marqueur ALORS
		MonChampLISTE[nIdListe]..CouleurFond = RougeClair
	SINON
		MonChampLISTE[nIdListe]..CouleurFond = VertClair
	FIN
FIN

Précise nous si tu alimente ta liste avec un champ table ou un fichier de donnée.

Merci et bonne lecture

**hpascal** · 03/11/2010, 11h45

Bonjour

Que la table soit fichier ou mémoire tu peux passer par le traitement "Affichage d'une ligne" avec un code tel que celui ci

Code :

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

TABLE[TABLE]..CouleurFond = (TABLE.col_Test = 1 ? RougePastel SINON JaunePastel)

où col_Test est ta colonne qui contient la valeur à tester

Là c'est la syntaxe simplifiée mais tu peux utiliser la syntaxe classique SI ... ALORS ... SINON

**mail.spam** · 03/11/2010, 11h51

Envoyé par hpascal

Bonjour

Que la table soit fichier ou mémoire tu peux passer par le traitement "Affichage d'une ligne"

Bonjour HPascal,

Il y a un traitement affichage d'une ligne pour un champ liste? Je ne l'ai pas trouvé.
On l'ajoute où?

**hpascal** · 03/11/2010, 12h33

Effectivement mail.spam j'ai lu trop vite, il n'y a pas de traitement d'affichage sur un champ liste

Il faut bien, comme tu le dis, alimenter la liste par programmation avec par exemple :

Code :

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

1
2
3
4
POUR TOUTE LIGNE DE TABLE
   ListeAjoute(TALISTE, TABLE.Col_Texte)
   TALISTE[ListeOccurrence(TALISTE)]..CouleurFond = (TABLE.col_Booleen = Vrai ? RougePastel SINON JaunePastel)
FIN

**Xsara 167 cv** · 03/11/2010, 14h57

Merci à tous,

Effectivement je cherchais au départ l'affichage d'une ligne. Je vais regarder tout ça.

Merci.

**Xsara 167 cv** · 04/11/2010, 10h22

Bonjour,

Pour le chargement de la liste je la remplie par programmation, car ce que je mets dans la liste n'existe pas dans mon fichier sous cette forme. Je m'explique : fichier : 1 champ nom, 1 champ prénom, 1 champ numéro de carte. Dans la liste j'affiche par ligne nom + " " + prénom + " - " + NumCarte.

Je viens de suivre vos conseils mais j'ai encore un problème. Sur 292 lignes, il n'y a que dans 5 lignes que j'obtiens soit une couleur (rougeclair) soit l'autre (bleuclair). Les autres restent en couleur de base, à savoir noir.

Je ne trouve pas le problème. J'ai déroulé pas à pas et je n'ai rien trouvé....

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
nNbreLignes est un entier = TABLE_Cartes..Occurrence
 
POUR nNumBoucle = 1 A nNbreLignes
	ListeAjoute(LISTE_ORIGINE, TABLE_Cartes[nNumBoucle].COL_Nom + " " + TABLE_Cartes[nNumBoucle].COL_Prenom + " - " + TABLE_Cartes[nNumBoucle].COL_NumCarte)
	SI TABLE_Cartes[nNumBoucle].COL_Imprimé = Faux ALORS
		LISTE_ORIGINE[nNumBoucle]..Couleur = RougeClair
	SINON
		LISTE_ORIGINE[nNumBoucle]..Couleur = BleuClair
	FIN
FIN

Voili voilou

**Hibernatus34** · 04/11/2010, 10h31

Si votre liste est triée votre code est faux, car le numéro de ligne n'est pas forcément le numéro d'itération.
Sinon au pire vous avez gStylo(Rouge) + "Le texte"

**Nicolas_Jeanneau** · 04/11/2010, 10h32

Bonjour,

est-ce que par hasard ta liste ne ferait pas par défaut 5 lignes au départ ? Car je pense que ce code ne s'appliquera qu'aux lignes affichées dès le départ et pas à celles qui ne sont encore visible. Le fait de jouer avec la molette ou d'agrandir la liste ne change pas l'affichage des lignes suivantes car on ne reconstruit pas la liste ! Petit problème bien pénible à gérer ...

à bientôt,

Nicolas

**Xsara 167 cv** · 04/11/2010, 10h38

Envoyé par Hibernatus34

Si votre liste est triée votre code est faux, car le numéro de ligne n'est pas forcément le numéro d'itération.
Sinon au pire vous avez gStylo(Rouge) + "Le texte"

Bonjour,

Oui ma liste est triée. Mais dans le cas indiqué j'aurais probablement des couleurs fausses, ça je suis d'accord. Mais toutes les lignes seraient bleu ou rouges et pas seulement 5 d'entre elles !? Je me trompe ?

**Xsara 167 cv** · 04/11/2010, 10h39

Envoyé par Nicolas_Jeanneau

Bonjour,

est-ce que par hasard ta liste ne ferait pas par défaut 5 lignes au départ ? Car je pense que ce code ne s'appliquera qu'aux lignes affichées dès le départ et pas à celles qui ne sont encore visible. Le fait de jouer avec la molette ou d'agrandir la liste ne change pas l'affichage des lignes suivantes car on ne reconstruit pas la liste ! Petit problème bien pénible à gérer ...

à bientôt,

Nicolas

Bonjour Nicolas,

Non ma liste ne fait pas 5 lignes au départ mais beaucoup plus...

**Hibernatus34** · 04/11/2010, 10h44

Oui, vous vous trompez :
- J'ajoute la ligne A en position 1, je colore la ligne 1
- J'insère la ligne B en position 1, je colore la ligne 2 (A)
J'ai coloré 2 fois la A, 0 fois la B

Notez qu'il existe la propriété ..Triée.

Envoyé par Xsara 167 cv

Bonjour,

Oui ma liste est triée. Mais dans le cas indiqué j'aurais probablement des couleurs fausses, ça je suis d'accord. Mais toutes les lignes seraient bleu ou rouges et pas seulement 5 d'entre elles !? Je me trompe ?

**mail.spam** · 04/11/2010, 10h46

Envoyé par Xsara 167 cv

Bonjour Nicolas,

Non ma liste ne fait pas 5 lignes au départ mais beaucoup plus...

Ce que Nicolas voulais dire, enfin je pense, c'est ton champ liste n'a t il pas que 5 lignes de visible à l'écran.

Sinon moi j'ai pas eu de souci quand j'ai tester le code (il est vrai que mon champ liste n'étais pas trié).
Au pire essaie de faire la même chose dans un nouveau champ liste.

**Nicolas_Jeanneau** · 04/11/2010, 10h49

je parle affichage et non pas contenu

Sinon, je suis assez d'accord avec Hibernatus34 car le fait de modifier la ligne d'indice = compteur de boucle ne te garanti pas de modifier la bonne ligne en cas de tri sur la liste.
Le mieux est faire le tri par programmation une fois la liste construite.

**Xsara 167 cv** · 04/11/2010, 10h49

Ca y est c'est presque bon. Merci à Hibernatus34.

J'ai utilisé effectivement la fonction gStylo que je ne connaissais pas et ça fonctionne pour mettre les couleurs.

Le code est donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
nNbreLignes est un entier = TABLE_Cartes..Occurrence
 
 
POUR nNumBoucle = 1 A nNbreLignes
	SI TABLE_Cartes[nNumBoucle].COL_Imprimé = Faux ALORS
		ListeAjoute(LISTE_ORIGINE, gStylo(RougeClair) + TABLE_Cartes[nNumBoucle].COL_Nom + " " + TABLE_Cartes[nNumBoucle].COL_Prenom + " - " + TABLE_Cartes[nNumBoucle].COL_NumCarte)
	SINON
		ListeAjoute(LISTE_ORIGINE, gStylo(BleuClair) + TABLE_Cartes[nNumBoucle].COL_Nom + " " + TABLE_Cartes[nNumBoucle].COL_Prenom + " - " + TABLE_Cartes[nNumBoucle].COL_NumCarte)
	FIN
FIN

Il ne me reste plus qu'à mettre les bonne couleurs.

**Hibernatus34** · 04/11/2010, 10h52

Le problème n'est pas le nombre de lignes visibles, il n'y a aucun problème de ce genre avec les listes. Le champ fonctionne très bien.
Encore une fois c'est une erreur de programmation, le mauvais numéro de ligne est utilisé.
2 solutions :
1. ..Triée = Faux avant remplissage et ..Triée = Vrai après.
2. ListeAjoute(LaListe, gStylo(RougeClair) + "Le texte")

**Xsara 167 cv** · 04/11/2010, 10h58

Sur la liste non triée, ça fonctionne parfaitement l'astuce d'Hibernatus34. Enfin l'astuce, je devrais plutôt dire la fonction gStyle.

Par contre j'ai encore un souci. Ma liste met 10 secondes à se remplir. Je vois scintiller l'ascenseur vertical pendant tout ce temps là. Et sur un autre poste c'est pire comme temps....

Quelqu'un aurait une idée pour accélérer ça ? Car je trouve que 10 secondes pour remplir une liste c'est un peu long... Ou alors c'est normal ?

**Hibernatus34** · 04/11/2010, 11h02

Ce n'est pas normal.
Combien d'éléments ?
Au pire vous auriez ..AffichageActif, mais ça ne devrait pas être nécessaire.
Essayez plutôt en désactivant le tri et en l'activant à la fin (..Triée).
C'est plus optimisé.

**Jannus** · 04/11/2010, 11h11

Envoyé par Xsara 167 cv

je trouve que 10 secondes pour remplir une liste c'est un peu long...

Ça dépend essentiellement du contenu de la liste, mais aussi du PC utilisé.
Sans ces informations, difficile d'avoir un avis.

**Xsara 167 cv** · 04/11/2010, 11h25

Envoyé par Hibernatus34

Ce n'est pas normal.
Combien d'éléments ?
Au pire vous auriez ..AffichageActif, mais ça ne devrait pas être nécessaire.
Essayez plutôt en désactivant le tri et en l'activant à la fin (..Triée).
C'est plus optimisé.

292 éléments. Les 10 secondes c'est aussi bien liste triée que non triée... Et là elle n'est plus triée

Changement de couleur par ligne dans une liste

WinDev

Discussions similaires

Partager

Partager