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
| if ($color{$cpt}) {$col=$color{$cpt};}
# pour la séparation des couleurs
$sep = $wb->add_format();
$sep->set_bg_color($col);
if ( ($bib{$code}) && ($ligne%2==0) )
{
my $titre = $wb->add_format(
bold => 1,
border => 6,
valign => 'vcenter',
align => 'center',
);
$ws->write_blank($ligne,$titre);
#$ws->merge_range('A.$ligne:F.$ligne', $bib{$code}, $titre);
#$ligne++;
$ws->write($ligne,0,$bib{$code},$sep);
$ws->write($ligne,1,$tab[1]);
$ws->write($ligne,2,$tab[2],$centre);
$ws->write($ligne,3,$tab[3],$centre);
$ws->write($ligne,4,$tab[4],$centre);
$ws->write($ligne,5,$tab[5]);
$ligne++;
} |
Partager