function deplace(i_fen)

% Déplacer la barre et afficher nouveClle proportionau pourcentage

i_bar=gcbo;            % la barre, source de l'événement

% Récupérer l'abscisse de la souris
i_gr = get(i_bar,'Parent');             % les axes
pos_souris = get(i_gr,'CurrentPoint');
x_souris=pos_souris(1,1);               % ne garder que l'abscisse

% Déplacer la barre
x_bar = get(i_bar,'XData');              % ses abscisses
if x_souris<x_bar(1), x_bar=x_bar-0.1;   % vers la gauche
else                  x_bar=x_bar+0.1;   % vers la droite
end
set(i_bar,'XData',x_bar);

% Mettre à jour la proportion
a = get(i_bar,'UserData');               % récupérer les val.aléatoires
pc = sum(a.val>x_bar(1))/length(a.val);  % le nouveau pourcentage
txt = ['% valeurs à droite: ' num2str(pc)];
i_t = findobj(i_fen,'Type','text','Tag','pourcentage');  % objet texte
set(i_t,'String',txt);                   % changement du texte