function hl=findobj(fig,cible,valeur)

%   Copyright 2003
%   Centre for Nonlinear Dynamics in Physiology and Medicine

liste=get(gcf,'children');
id=0;
for i=1:length(liste)
if(strcmp(get(liste(i),cible),valeur))
id=id+1;
hl(id)=liste(i);
end
end

if(isempty(hl))

	for i=1:length(liste)
		if(strcmp(get(liste(i),cible),'axes'))
		liste2=get(liste(i),'children');
			for j=1:length(liste2)
			if(strcmp(get(liste2(j),cible),'patch'))
			id=id+1;
			hl(id)=liste2(j);
			end;	
			end;
	   	end;
       end;




end