Bonjour , Comment modifier les couleurs du fonds des lignes d'une table hiérarchique selon le niveau d'hierarchie Merci
Salut Essaie avec ça I est entier = 0 sBranche_Fils est chaîne TableListeFils(TABLEH1, 0, ProcListe) PROCÉDURE INTERNE ProcListe(sTableH est chaîne <utile>, sBranche est chaîne, sFils est chaîne, nNiveau est un entier) I++ Trace(I) sBranche_Fils = sBranche + sFils SI TableTypeElément(TABLEH1, sBranche_Fils) = taFeuille ALORS SELON nNiveau CAS 0 TABLEH1..CouleurFond = RVB(255,255,0) CAS 1 TABLEH1..CouleurFond = RVB(153,255,0) CAS 2 TABLEH1..CouleurFond = RVB(51,255,0) CAS 3 TABLEH1..CouleurFond = RVB(102,204,0) CAS 4 TABLEH1..CouleurFond = RVB(51,153,0) FIN SINON SELON nNiveau CAS 0 TABLEH1..CouleurFond = RVB(200,255,255) CAS 1 TABLEH1..CouleurFond = RVB(0,255,255) CAS 2 TABLEH1..CouleurFond = RVB(0,212,255) CAS 3 TABLEH1..CouleurFond = RVB(0,130,255) CAS 4 TABLEH1..CouleurFond = RVB(0,80,255) FIN FIN FIN