Bonjour
Je rencontre une grande difficulté pour ma part, mais certainement une facilité pour vous...

Je souhaite remplir un graphe par programmation selon un champ table
Mon champ table référence les rendements de production journalier des collaborateurs, dans mon graphe (courbes) je voudrais faire apparaître les rendements avec comme axe x --> les dates
Etant donné que ma table comporte plusieurs fois la même date et les mêmes collaborateurs,
Comment lire mon champ table et remplir mon graphe ? Je n'arrive pas à renseigner les dates ?

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
26
27
28
29
30
31
32
33
34
35
36
 
PROCEDURE AffGrapheEvolution()
tabNbrCollaborateurs est un tableau de chaînes
sNomGraphe est une chaîne = "GRAF_Rendement"
 
//Suppression de l'ancien graphe
SI grExiste(sNomGraphe) = Vrai ALORS
	grSupprimeTout(sNomGraphe)
FIN
 
//Création du graphe
grCrée(sNomGraphe,grCourbe)
 
//Destination du graphe
grDestinationChamp(sNomGraphe,IMG_Image1)
grLégende(sNomGraphe,grADroite)
grLibellé(sNomGraphe,grAfficheValeur,Vrai)
 
SupprimeTout(tabNbrCollaborateurs)	
POUR TOUTE LIGNE DE TABLE_REQ_EvolutionRendement
	Ajoute(tabNbrCollaborateurs,TABLE_REQ_EvolutionRendement.COL_NomPrenom)
 
FIN
TableauSupprimeDoublon(tabNbrCollaborateurs)
TableauTrie(tabNbrCollaborateurs)
 
POUR i = 1 A tabNbrCollaborateurs..Occurrence
	grEtiquetteSérie(sNomGraphe,i,tabNbrCollaborateurs[i])
 
	POUR TOUTE LIGNE DE TABLE_REQ_EvolutionRendement
		SI TABLE_REQ_EvolutionRendement.COL_NomPrenom = tabNbrCollaborateurs[i] ALORS	
			grAjouteDonnée(sNomGraphe,i,TABLE_REQ_EvolutionRendement.COL_Rendement*100)
		FIN
	FIN
FIN
grDessine(sNomGraphe)


Il y a certainement mieux comme code... Je suis débutant et accepterais toutes vos suggestions

Merci beaucoup et encore bravo pour votre site

Cordialement