NombreTable--
POUR nCompteur = 1 A (NombreTable)
nIndice = TableCherche( N ,MATABLE.N[nCompteur],Vrai,nCompteur+1)
TANTQUE nIndice > 0
SI MATABELE.DATE [nCompteur] <> MATABELE.DATE[nIndice] ALORS
kk = Dimension(tabSuiteDate)
POUR j = 1 A kk
// Pour sauter les lignes déjà colorer
SI MATABLE.DATE [nIndice] = tabSuiteDate [j] ET ( MATABLE.N[nCompteur] = tabSuiteN [j] OU MATABLE.N[nIndice] = tabSuiteN [j] ) ALORS
GOTO hh
FIN
FIN
BufCompteur ++
Dimension(tabLIsteIndice,BufCompteur)
Dimension(tabLIsteSerail,BufCompteur)
// sauvegarde date et N à colorer
tabSuiteDate[BufCompteur] = MATABLE.DATE[nIndice]
tabSuiteN [BufCompteur] = MATABLE.N [nIndice]
// coloration des ligne de condition
MATABLE.N[nCompteur]..CouleurFond = iVertClair
MATABLE.N[nIndice]..CouleurFond = iVertClair
FIN
hh :
nIndice = TableCherche(N ,MATABLE.N[nCompteur],Vrai,nIndice+1)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5670&post_id=23130