Répartition d'un nombre de renseignements

[pix33]

Bonjour,

Je vous expose le problème que j'ai. Je vous mets un echantillon de mon fichier excel en pièce jointe pour être le plus clair possible.

J'ai une base constituée de clients (col A), avec pour chacun un ou plusieurs code formule (col B), qui correspond à un type de produit différent.
Pour chaque client/formule, on a un nombre de dossiers mensuel (col C à N) ainsi qu'un nombre de renseignements mensuel (col O à Z). Je n'ai mis dans la pièce jointe que l'année 2010 mais mon étude va de 2008 à 2011.

Le soucis c'est que les renseignements sont mal répartis entre les formules.
Je vais prendre un exemple concret. Le client RCA a trois formules (AD8, D08 et D09). Sur le mois de janvier 2010 il a :
- 37 dossiers et 123 renseignements sur la formule AD8
- 8 dossiers et 30 renseignements sur la formule D08
- 32 dossiers et 58 renseignements sur la formule D09
Toutes formules confondues, on a donc 77 dossiers et 211 renseignements pour ce client.

Le nombre de renseignements total est correct mais la répartition entre les formules est erronée. Le but serait d'obtenir une répartition similaire aux nombre de dossiers. En partant des 211 renseignements je devrai avoir la répartition par formule suivante (arrondi au nombre entier) :
- (37/77)*211 = 101 renseignements sur la formule AD8
- (8/77)*211 = 22 renseignements sur la formule D08
- (32/77)*211 = 88 renseignements sur la formule D09


Je ne suis pas un expert SAS et je ne vois pa trop comment faire.

J'espère avoir été assez clair pour être compris.

[MEGAMIND2]

Bonjour,
Il faudrait récupérer les totaux par clients (c'est le plus dur) puis les vecteurs:

Code :

1
2
3
4
5
6
7
8
9
DATA C;
SET xx;
array x(*) nbdos:;
array y(*) nbrens:;
array formule(*) form1-form2;
do i=1 TO dim(x);
formule(i)=x(i) /y(i);
end;
run;

[pix33]

Je n'ai pas la possibilité de récupérer les totaux par clients. Il faut justement que je les calcule par client/formule à partir de ma base, chose que j'ai du mal à faire depuis qq jours.

Votre code ne fonctionne qu'une fois les totaux rapatriés?

[MEGAMIND2]

Bonjour,
Faudrait importer ton fichier Excel(=Base dans mon programme), et normalement ça fonctionne.
ps: je n'ai pas eu le temps de documenter le programme, désolé!!

Code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
proc means DATA=BASE noprint;
      class code_client;
      output out=sumstat(DROP=_type_ _freq_) sum=        ;
 
run;
 
DATA sumstat;
SET sumstat;
IF _n_=1 then DELETE;
run;
 
proc sort DATA=sumstat nodupkey out=out;
BY code_client;
run;
 
proc sql noprint;
SELECT count(*) INTO:nb FROM out;
SELECT code_client INTO: liste_client separated BY ' ' FROM out;
quit;
 
DATA DOS;
SET BASE;
keep NbDos:;
run;
 
DATA Rens;
SET BASE;
keep NbRens:;
run;
 
proc contents DATA=DOS out=DOS(WHERE=(name ne "code_client"));
run;
 
proc contents DATA=RENS out=RENS(WHERE=(name ne "code_client"));
run;
 
 
DATA DOS;
SET DOS;
new=compress("dos_"!!name);
run;
 
DATA RENS;
SET RENS;
new=compress("rens_"!!name);
run;
 
DATA NAME;
SET DOS RENS;
RUN;
 
%MACRO RENAME;
 
proc sql noprint;
	SELECT count(*) INTO:nb FROM name;
	SELECT name INTO:name separated BY ' ' FROM name;
	SELECT new INTO:new separated BY ' ' FROM name;
quit;
 
 
%DO i=1 %TO &NB. ;
%let anc&i=%scan(&name,&i,' ');
%let nouv&i=%scan(&new,&i,' ');
	DATA sumstat;
	SET sumstat;
	RENAME &&anc&i=&&nouv&i;
	run;
%END;
%MEND;
 
%RENAME;
 
proc sort DATA=sumstat;
BY code_client;
run;
 
proc sort DATA=BASE;
BY code_client;
run;
 
DATA BASE2;
merge BASE sumstat;
BY code_client;
run;
 
DATA BASE3;
SET BASE2;
array NbDos(*) NbDos:;
array NbRens(*) NbRens:;
array dos(*) dos:;
array rens(*) rens:;
array ratio(*) ratio1-ratio12;
do i=1 TO dim(dos);
ratio(i)=int((NbDos(i)/dos(i))*rens(i));
end;
DROP i;
run;
 
 
DATA temp;
SET base;
keep NbDos:;
run;
 
 
proc contents DATA=temp out=temp2;
run;
 
DATA temp2;
SET temp2;
new=compress("ratio_"!!tranwrd(name,"NbDos_"," "));
run;
 
proc sql noprint;
SELECT new INTO:name separated BY ' ' FROM temp2;
SELECT count(*) INTO:nb FROM temp2;
quit;
 
%MACRO RENAME2;
 
%DO i=1 %TO &NB. ;
%let anc&i=%scan(&name,&i,' ');
	DATA BASE3;
	SET BASE3;
	RENAME ratio&i=&&anc&i;
	run;
%END;
%MEND;
 
%RENAME2;