Discussion :

[poupounne56]

Bonjour,

Voila, j'ai crée un programme avec la fonction %menu qui m'affiche une fenêtre où je peux choisir différentes analyses.

Ce programme marche très bien mais j'aimerai y rajouter une variable sortie qui permettrai que quand elle est égale à Y alors la fenêtre se ferme SANS lancer les analyses qui auraient pu être coché par erreur.

Si vous avez des idées...

Merci d'avance

[poupounne56]

%window pas %menu...

[s_a_m]

Hello,
si tu poste ton programme, on pourra peut être t'aider. vite fait je voie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
%if  &valeur_saisie=valeur  %then ; %put sortie du programme;

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
%if  &valeur_saisie=valeur  %then %goto sortie;
%sortie :

[poupounne56]

Désolé voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
%macro menu;
%window choix
COLOR=red
ICOLUMN= 1 IROW= 10
COLUMNS= 90 ROWS= 23
#5  @40 "MENU FOR CHECKING INDIVIDUAL DATA" ATTR=UNDERLINE COLOR=white
#7  @45 "Trial : Essai" COLOR=white
#12 @40 "Lancer l'analyse" COLOR=white +17	analyse 1	ATTR=UNDERLINE COLOR=white
 
#40 @17 "Quit : "	 COLOR=white +5	sortie 1 ATTR=UNDERLINE  COLOR=white;
 
%display choix;
 
%if %upcase(&sortie) eq Y  %then %do;
quit;
%end;
 
%if %upcase(&analyse) eq Y  %then %do;
 
ods listing close;
ods rtf style = sasref file="&RACINE.\Méta-analyse ORL\ check_rando_essai.doc" ;
ods noproctitle ;
 
%include "&Racine\analyse.sas";
 
ods rtf close;
ods listing;
%end;
%mend;
%menu;

et si &sortie = Y alors la fenètre se ferme sans lancer l'analyse si par erreur elle était cochée...

[s_a_m]

Hello,
je n'ai pas bien saisi. Je t'ai donné un exemple si l'utilisateur saisi un "Y" dans
lancer analyse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
 
%macro menu;
 
%window choix
COLOR=red
ICOLUMN= 1 IROW= 10
COLUMNS= 90 ROWS= 23
#5  @40 "MENU FOR CHECKING INDIVIDUAL DATA" ATTR=UNDERLINE COLOR=white
#7  @45 "Trial : Essai" COLOR=white
#12 @40 "Lancer l'analyse" COLOR=white +17	analyse 1	ATTR=UNDERLINE COLOR=white
 
#40 @17 "Quit : "	 COLOR=white +5	sortie 1 ATTR=UNDERLINE  COLOR=white;
 
%display choix;
 
%IF %upcase(&analyse) eq Y  %then %goto byebye;
 
%IF %upcase(&analyse) eq Y  %then %do;
 
ods listing close;
ods rtf style = sasref file="&RACINE.\Méta-analyse ORL\ check_rando_essai.doc" ;
ods noproctitle ;
 
%include "&Racine\analyse.sas";
 
ods rtf close;
ods listing;
%end;
%byebye :
 
 
 
%mend;
%menu;

[poupounne56]

Enfait c'est bon, j'ai trouvé la solution avec un %goto :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
%macro menu;
%window choix
	COLOR=red
	ICOLUMN= 1 IROW= 10
	COLUMNS= 90 ROWS= 23
	#5  @40 "MENU FOR CHECKING"  	ATTR=UNDERLINE COLOR=white
	#18 @40 "4. Checking toxicity" 				COLOR=white +22 check_tox 	1 	ATTR=UNDERLINE COLOR=white
	#40 @17 "Quit : "					COLOR=white +5	sortie 1	ATTR=UNDERLINE  COLOR=white
	;
%display choix;
 
 
%if %upcase(&sortie.) eq Y  %then
	%goto byby;
%end;
 
%if %upcase(&check_rando.) eq Y  %then %do;
%input "&Racine.\analyse.sas";
%end;
%byby:
%mend;
%menu;