function param(NomGraph,TexteBtn,ParamBtn,TexteCheck,titreChaine,aideChaine,CBack)
global Btn chk fig graph

% Fenêtre graphique pour la représentation
graph=figure(...
	'Name',NomGraph,...
	'Numbertitle','off',...
	'Visible','off');
	
% Fenêtre pour l'affichage des paramètres et le lancement de la
% simulation
gauche=45;
bas=80;
if isempty(TexteCheck)|isempty(TexteBtn)
	large=340;
else
	large=450;
end

[m,n]=size(TexteBtn);
[o,p]=size(ParamBtn);
nbc=max([m o]);
haut=20+nbc*40;
fig=figure(...
	'Name','Paramètres',...
	'NumberTitle','off',...
	'Position',[gauche bas large haut],...
	'Resize','off',...
	'Visible','off');

% Boutons

if m~=o
	error('Nombre de boutons différent du nombre de paramètres')
end
for i=1:m
  uicontrol(fig,...
	'Style','text',...
	'HorizontalAlignment','left',...
	'Position',[20 haut-i*40 110 20],...
	'String',TexteBtn(i,:));
 Btn(i)=uicontrol(fig,...
	'Style','edit',...
	'String',ParamBtn(i,:),...
	'Position',[140 haut-i*40 60 20]);
end

% Cases à cocher
[m,n]=size(TexteCheck);
for i=1:m
 chk(i)=uicontrol(fig,...
	'Style','checkbox',...
	'String',TexteCheck(i,:),...
	'Position',[220 haut-i*40 110 20]);
end
	
% Boutons de contrôle: Fin, OK et Aide
uicontrol(fig,...
	'Style','push',...
	'Position',[large-80 20 60 20],...
	'String','Fin',...
	'CallBack','close(fig);close(graph);clear global;clear');
				
uicontrol(fig,...
	'Style','push',...
	'Position',[large-80 haut-40 60 20],...
	'String','Aide',...
	'CallBack','aidefun(titreChaine,aideChaine)');
	
uicontrol(fig,...
	'Style','push',...
	'Position',[large-80 60 60 20],...
	'String','OK',...
	'CallBack',CBack);
	
set(fig,'Visible','on');
