re
sub Calc3ect()
dim diff as integer
dim cel as range
dim moyenne as integer
dim ect as integer
for each cel in range('c:c') ' colonne C
moyenne = cel.offset(0,-2).value ' L C(-2)
ect=cel.offset(0,-1).value 'L C(-1)
cel.value=moyenne-(3*ect) 'L C
next
end sub
moyenne en A, ect en B et resultat en C
Message édité par: dg62, à: 20/05/2005 15:11
Message édité par: dg62, à: 20/05/2005 16:54