Discussion :

[esmarlandes]

Bonjour,

A partir de 2 tables source je souhaiterais créer une table résultat qui aurait la forme suivante :

Source1
col1 Col2 Col3
Var11 Var21 Var31
Var12 Var22 Var32
Var13 Var23 Var33
Var14 Var24 Var34

Source2
Col1 Col2 Col3
val11 val21 val31
val12 val22 val32
val13 val23 val33
val14 val24 val34

Resultat
Colonne1 colonne2
var11 val11
var12 val12
var13 val13
var14 val14
var21 val21
Var22 val22
var23 val23
var24 val24
var31 val31
var32 val32
var33 val33
var34 val34

Je souhaiterais créer la table resultat par macro car dans les tables sources j'ai un nombre important de colonnes. J'ai testé en faisant des proc transpose mais je n'arrive pas au résultat attendu. Pourriez-vous m'aider ?

Merci par avance.

[RemiBousquet]

Ton exemple de données, en table SAS :

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
 
data source1 ;
    input col1 $ col2 $ col3 $ ;
    cards ;
Var11 Var21 Var31
Var12 Var22 Var32
Var13 Var23 Var33
Var14 Var24 Var34
;
run ;
 
data source2 ;
    input col1 $ col2 $ col3 $ ;    
    cards ;
val11 val21 val31
val12 val22 val32
val13 val23 val33
val14 val24 val34
;
run ;

Une solution, par approche "étape data" + macro + sql pour macros variables

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
37
 
/* 1. Macro pour mettre une table "en colonne" */;
%MACRO METTRE_EN_COLONNE (TABLE) ;
    /* 1.1.  Compter le nombre de colonnes et liste des noms de colonnes  */
    proc contents data = &TABLE
                  out  = &TABLE._contents 
                  noprint ;
    run ;
    proc sql noprint ;
        select distinct NAME
        into : LIST_NAME
        separated by ' '
        from &TABLE._contents ;
        select count(distinct NAME)
        into : NB_COLONNES
        from &TABLE._contents ;
    quit ;
    /* 1.2. Boucle dans étape data pour mise en colonne */
    data &TABLE._EN_COLONNE ;
        set %do LOOP = 1 %to &NB_COLONNES. ;
            &TABLE. (keep = %scan(&LIST_NAME., &LOOP.)
                     rename = (%scan(&LIST_NAME., &LOOP.)=COLONNE_&TABLE.)) 
            %end ; ;
    run ;
%MEND METTRE_EN_COLONNE ;
 
/* 1.3. Appel de la macros sur les deux tables en entrée */
%METTRE_EN_COLONNE (SOURCE1) ;
%METTRE_EN_COLONNE (SOURCE2) ;
 
/* 2. Fusion des 2 tables */
option mergenoby = NOWARN ; 
data WORK.RESULTAT ;
    merge   SOURCE1_EN_COLONNE
            SOURCE2_EN_COLONNE ;
run ;
option mergenoby = ERROR ;

A noter:
1- c'est une fusion "sans by" -> l faut les utiliser avec parcimonie!
Par défaut il vaut mieux avoir toujours l'option mergenoby = ERROR, pour éviter les accidents (oubli du by accidentel) et désactiver cette option uniquement de façon ponctuelle.
2- nécessite que, de façon certaine, les deux tables en entrée aient bien la même structure (nombre de lignes, nombre de colonnes). Si besoin, rajouter des "contrôles de cohérence" avant fusion.
3- nécessite que toutes les variables de source1 aient le même format. Idem pour source2. Idem que précédent, possibilité de rajouter si besoin des "contrôles de cohérence"

[esmarlandes]

Bonjour,

Cela fonctionne bien si on a moins de 10 colonnes car comme j'en ai 25 le programme

Code :

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

1
2
3
4
SELECT DISTINCT NAME
        INTO : LIST_NAME
        separated BY ' '
        FROM &TABLE._contents ;

reclasse mes colonnes => Var1 Var10 Var11 Var12 ... Var2 Var20 var21 .... de ma table source1. Les colonnes de ma table source 2 sont déjà ordonnées du coup les deux colonnes jointes ne correspondent pas....

Y a t-il un moyen pour que &LIST_NAME ne soit pas ordonnée ?

Merci par avance.