var idx;
function Init(x)	{
	var L=5, C=7, P10=100;	// Lignes, Colonnes, Ecart
	var D, Tab, i, j, w, K, V, F, Euro, M, Minv, Dat;
	D=document.APA;
	Dat=D.Modif.value;
	Style("New", "borderStyle","none", "textAlign","center", "fontFamily","&fontFamily", "fontSize","100%", "fontWeight", "normal", "backgroundColor","#C7FEE3", "readonly", "false");
	Style("Set", D.Modif);
	
	if  (x<10)
	{	
		if(idx >=0) {F=D.T[idx].style, F.backgroundColor= "#FFFFCC"; F.fontWeight=""}
		idx=x;
		D.T[idx].style.backgroundColor= "#00FFFF"
	}

	Euro = D.Euro[0].checked;
	Tab = new Array();	
	if (Euro) {M = "E"} else {M = "F"}; M=""
	Tab[1] = CAPA(Dat, 0, "Mini", 1);
	Tab[C] = CAPA(Dat, 0, "Maxi", 1);
	Tab[0] = (Tab[C]-Tab[1])/(C-1);
	for (i=2; i<=C-1; i++)	{ V=(Tab[i-1] + Tab[0]) / P10; V=ARx(V,0); Tab[i]=(V*P10)};
//	Entete du tableau
	Style("Mod", "backgroundColor","#D5FFFF"); 
	D=document.APA;
	for (i=0; i<=C-1; i++)
	{   V= ARx(Tab[i+1],0);
	    V = V + M;
	    F = document.APA.T[i];
	    F.value= Ed(V);
	    Style("Set", F);	
	}
//	Corps du tableau
	if (Euro==0) 
	{	for (i=1; i<=C; i++)	{V= Tab[i]; V=ARx(V*KEcu,1); Tab[i]=V; D.T[i-1].value= Ed(ARx(V,0))+M}
	}
	Style("Mod", "backgroundColor","#FFFFCC"); 	
	for (i=1; i<=L-1; i++)	
	{ 	for (j=1; j<=C; j++)
		{	w=(i-1)*C+C-1+j ;
		    F = D.T[w];
		    F.value = Ed(ARx(CAPA(Dat, i, Tab[j], Euro),0)) + M ; 
		    Style("Set", F);	
		}
	 }
	if (Euro) {K=KEcu; M = " "+KEuro; Minv = " F"} else {K=1/KEcu; M = " F"; Minv = " "+KEuro} 
//	Colonne selectionnee
	for (i=0; i<=4; i++)
	{
		F=D.T[idx+C*i].style; 
		if (i) {F.backgroundColor="#D5FFD5"} else {F.backgroundColor="#00FFFF"; F.fontWeight="bold"}
	}
//	Texte sous le tableau
	Style("Mod", "backgroundColor","#fffff0", "readonly","false")
	for (i=0; i<=3; i++)	{Style("Set", D.T1[i])};
	D.T1[0].value = ["moins de","environ","environ","environ","environ","environ","plus de"][idx] ; 					
	D.T1[1].value = D.T[idx].value + M ; 	D.T1[1].style.backgroundColor="#00FFFF"; D.T1[1].style.textAlign="center";				
	D.T1[2].value = Ed(ARx(Tab[idx+1]*K, (Euro)? 0: 2)) + Minv; 		
	D.T1[3].value = D.T[idx+7*1].value + ((D.T[idx+7*1].value.length>3)? " ":"  ") + KAG + ((D.T[idx+7*4].value.length>3)? " ":"  ") + D.T[idx+7*4].value + M;
//	Colonnes Min et Max
	D.T[0].value =   "< " + D.T[0].value
	D.T[C-1].value = "> " + D.T[C-1].value
}