Discussion :

[cid5420]

Bonjour,

je dois faire un tableau sous windev, j'ai du mal a assimiler la partie remplir par programmation !!!

en fait j'arrive a afficher des données présente dans un fichier.

Ce que j'aimerais faire c'est de retravailler les données avant de les afficher dans mon tableau.

voici le tableau

et voici ce que j'aimerais obtenir :

[zouzoukha]

Salut!

Je t'exhorte à :

- Créer une table mémoire
- Parcourir ton fichier et remplir ta table (à l'aide des fonctions hlit et tableajouteligne)

Bon DEV

[serendib]

Salut!

Je t'exhorte à :

- Faire de toute urgence, et sérieusement, le cours d'autoformation.

Bonne form.

[cid5420]

Peut-on remplir une cellule avec une couleur par programmation?

en fait j'aimerais colorer les cellules vide.

[dsr57]

Bonjour

La propriété couleurFond, voir l'aide en ligne : http://doc.pcsoft.fr/fr-FR/?2510022

Bon dev

[Ry_Yo]

A défaut de ne pas vouloir faire le cours d'autoformation, vous avez l'aide windev....

Si vous faites l'effort de chercher par exemple : "couleur table" dans l'aide de windev....
On tombe sur cela : http://doc.pcsoft.fr/fr-FR/?2510022&...fond_propriete

Après je vous l'accorde, il faut prendre le temps de lire et de comprendre.

[cid5420]

Oui en faite je cherchais dans les fonction table en pensant qu'il y ai une fonction pour la couleur des cellules, alors il est vrai que j'aurai pue chercher plus loin !

Cepandant, j'ai essayé un bout de code mais il ne fonctionne pas, pourriez vous m'aider svp ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
HExécuteRequête(REQ_horaire,hRequêteDéfaut,0)
HLitPremier(REQ_horaire)
TANTQUE HEnDehors() = Faux
	jour est une chaîne
	active est une chaîne
	sHeureOuverture1 est une chaîne
	sHeureOuverture2 est une chaîne
	sHeureOuverture3 est une chaîne
	sHeureOuverture4 est une chaîne
	SI REQ_horaire.HeureDebut1 = "NULL" ALORS COL_Début..CouleurFond = RougeClair SINON sHeureOuverture1 = REQ_horaire.HeureDebut1
	SI REQ_horaire.HeureFin1 = "NULL" ALORS sHeureOuverture2 = "Fermée" SINON sHeureOuverture2 = REQ_horaire.HeureFin1
	SI REQ_horaire.HeureDebut2 = "NULL" ALORS sHeureOuverture3 = "Fermée" SINON sHeureOuverture3 = REQ_horaire.HeureDebut2
	SI REQ_horaire.HeureFin2 = "NULL" ALORS sHeureOuverture4 = "Fermée" SINON sHeureOuverture4 = REQ_horaire.HeureFin2
	SI REQ_horaire.Jour = 1 ALORS jour= "Lundi"
	SI REQ_horaire.Jour = 2 ALORS jour= "Mardi"
	SI REQ_horaire.Jour = 3 ALORS jour= "Mercredi"
	SI REQ_horaire.Jour = 4 ALORS jour= "Jeudi"
	SI REQ_horaire.Jour = 5 ALORS jour= "Vendredi"
	SI REQ_horaire.Jour = 6 ALORS jour= "Samedi"
	SI REQ_horaire.Jour = 7 ALORS jour= "Dimanche"
	SI REQ_horaire.Actif = 0 ALORS active = "Non"
	SI REQ_horaire.Actif = 1 ALORS active = "Oui"
	TableAjoute(TABLE_Horaire_Hiver, jour +TAB+ "Hiver" +TAB+ active +TAB+ sHeureOuverture1 +TAB+ sHeureOuverture2 +TAB+ sHeureOuverture3 +TAB+ sHeureOuverture4)
	HLitSuivant()
FIN

Dans ma fiche de donnée, j'ai des jours où les horaires sont à NULL et c'est celles-ci que je souhaite colorer.

[cid5420]

Bon j'ai trouvé mon erreur mais je ne me suis pas aperçu que la couleur était sur toute la colonne, hors j'aimerais appliquer la couleur uniquement sur la cellule.
J'arrive a dire applique la couleur sur la col_debut mais comment je dis de mettre la couleur sur la cellule?

[Ry_Yo]

Bonjour alors si je peux me permettre, si vous voulez prendre de bonne habitude de programmation :

...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
HExécuteRequête(REQ_horaire,hRequêteDéfaut,0) <-- de manière générale, toujours tester l'échec de fonction
HLitPremier(REQ_horaire)
TANTQUE HEnDehors() = Faux
	jour est une chaîne    <-- de manière générale, sortez les déclaration en début de code, là vous redéclarer à chaque itération la variable....
	active est une chaîne
	sHeureOuverture1 est une chaîne
	sHeureOuverture2 est une chaîne
	sHeureOuverture3 est une chaîne
	sHeureOuverture4 est une chaîne
	SI REQ_horaire.HeureDebut1 = "NULL" ALORS COL_Début..CouleurFond = RougeClair SINON sHeureOuverture1 = REQ_horaire.HeureDebut1 
	SI REQ_horaire.HeureFin1 = "NULL" ALORS sHeureOuverture2 = "Fermée" SINON sHeureOuverture2 = REQ_horaire.HeureFin1
	SI REQ_horaire.HeureDebut2 = "NULL" ALORS sHeureOuverture3 = "Fermée" SINON sHeureOuverture3 = REQ_horaire.HeureDebut2
	SI REQ_horaire.HeureFin2 = "NULL" ALORS sHeureOuverture4 = "Fermée" SINON sHeureOuverture4 = REQ_horaire.HeureFin2
	SI REQ_horaire.Jour = 1 ALORS jour= "Lundi"
	SI REQ_horaire.Jour = 2 ALORS jour= "Mardi"
	SI REQ_horaire.Jour = 3 ALORS jour= "Mercredi"
	SI REQ_horaire.Jour = 4 ALORS jour= "Jeudi"
	SI REQ_horaire.Jour = 5 ALORS jour= "Vendredi"
	SI REQ_horaire.Jour = 6 ALORS jour= "Samedi"
	SI REQ_horaire.Jour = 7 ALORS jour= "Dimanche"
	SI REQ_horaire.Actif = 0 ALORS active = "Non"
	SI REQ_horaire.Actif = 1 ALORS active = "Oui"
	TableAjoute(TABLE_Horaire_Hiver, jour +TAB+ "Hiver" +TAB+ active +TAB+ sHeureOuverture1 +TAB+ sHeureOuverture2 +TAB+ sHeureOuverture3 +TAB+ sHeureOuverture4) <-- de manière générale, préférer TableAjouteLigne() à TableAjoute(), car si votre chaine contient une tabulation, cela va tout décaler, et de plus TableAjouteLigne() est plus adapté pour une intégration 3-tiers
	HLitSuivant() <-- de manière générale, pensez à préciser la source de données, dans le cas de plusieurs requête imbriqué, cela va devenir compliquer à débugger 
FIN

...

Ensuite comment le faire pour une cellule, si vous avez pris le temps de lire l'aide en ligne, la réponse EXACTE à votre question se trouve dedans... allez vous pouvez même être fainéant et lire en diagonale que les exemples jusqu'à trouver votre CAS....

[cid5420]

Merci pour les conseilles,
Alors oui je suis sur l'aide en ligne, seulement il faut connaitre le nom de la colonne et le numéro de ma ligne et je ne connait pas le numéro de ligne vue que je suis en train de la rajouter.

[Ry_Yo]

Je vous dirais simplement de regarder l'aide de la fonction : tableAjoute() ou tableAjouteLigne() : http://doc.pcsoft.fr/fr-FR/?3074006&...ligne_fonction

C'est une fonction et pas une procédure... donc cela sous-entend que l'appel à cette fonction retourne quelque chose.

EDIT : si vous voulez utiliser tableAjoute() alors regardez du côté de la fonction TableOccurrence() pour connaitre le nombre de ligne dans une table mémoire ou fichier, l'indice sera forcément égale au nombre de ligne vu que vous venez de l'ajouter

[Xipotera]

Bonjour,

il y a moyen de simplifier ton premier code, pas besoin de jour et active.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
HExécuteRequête(REQ_horaire,hRequêteDéfaut,0)
HLitPremier(REQ_horaire)
TANTQUE HEnDehors() = Faux
	sHeureOuverture1 est une chaîne
	sHeureOuverture2 est une chaîne
	sHeureOuverture3 est une chaîne
	sHeureOuverture4 est une chaîne
	SI REQ_horaire.HeureDebut1 <> "NULL" ALORS sHeureOuverture1 = REQ_horaire.HeureDebut1
	SI REQ_horaire.HeureFin1 = "NULL" ALORS sHeureOuverture2 = "Fermée" SINON sHeureOuverture2 = REQ_horaire.HeureFin1
	SI REQ_horaire.HeureDebut2 = "NULL" ALORS sHeureOuverture3 = "Fermée" SINON sHeureOuverture3 = REQ_horaire.HeureDebut2
	SI REQ_horaire.HeureFin2 = "NULL" ALORS sHeureOuverture4 = "Fermée" SINON sHeureOuverture4 = REQ_horaire.HeureFin2
 
	TableAjoute(TABLE_Horaire_Hiver, NuméroDeJourVersLettre(REQ_horaire.Jour)+TAB+ "Hiver" +TAB+ REQ_horaire.Actif +TAB+ sHeureOuverture1 +TAB+ sHeureOuverture2 +TAB+ sHeureOuverture3 +TAB+ sHeureOuverture4)
	HLitSuivant(REQ_horaire)
FIN

ensuite, pour ta couleur de fond,

Code :

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

1
2
3
4
5
 
Pour i=1 _a_ tableoccurence(TABLE_Horaire_Hiver)
	IF COL_Début[i]="NULL" THEN COL_Début[i]..CouleurFond = RougeClair 
 
FIN

idem pour ton code :

Code :

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

1
2
3
4
5
6
7
 
	sHeureOuverture2 est une chaîne
	sHeureOuverture3 est une chaîne
	sHeureOuverture4 est une chaîne
	SI REQ_horaire.HeureFin1 = "NULL" ALORS sHeureOuverture2 = "Fermée" SINON sHeureOuverture2 = REQ_horaire.HeureFin1
	SI REQ_horaire.HeureDebut2 = "NULL" ALORS sHeureOuverture3 = "Fermée" SINON sHeureOuverture3 = REQ_horaire.HeureDebut2
	SI REQ_horaire.HeureFin2 = "NULL" ALORS sHeureOuverture4 = "Fermée" SINON sHeureOuverture4 = REQ_horaire.HeureFin2

tu dois pouvoir le simplifier par une fonction. de plus j'ai un doute vu le format de tes colonnes heure que Fermée s'inscrive mais c'est juste un doute.

[cid5420]

Merci pour ton aide j'ai relativement simplifié et viré tous ce qui ne servais à rien !!!

Dans la boucle pour la couleur de fond, j'aimerais ajouter une fonction supplémentaire.
Les colonnes des horaires sont en saisie et le reste du tableau est en affichage seulement.
Donc le truc serait de passer uniquement la cellule concerné d'un état de saisie en affichage seulement.

Dans les fonctions de table, je n'ai pas trouvé comment changer un état