summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/pas-tableur
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-02-01 23:06:34 +0000
committerKarl Berry <karl@freefriends.org>2016-02-01 23:06:34 +0000
commit2a4061ee287eedaef3db0027a06e8a20d707b4a4 (patch)
tree0efdaf81d5993eb34a8e83487ba67786fdc25f2c /Master/texmf-dist/tex/latex/pas-tableur
parent61ebb8b69624b4931744ae78792435da9cfdf4c9 (diff)
pas-tableur (2feb16)
git-svn-id: svn://tug.org/texlive/trunk@39542 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/pas-tableur')
-rw-r--r--Master/texmf-dist/tex/latex/pas-tableur/pas-tableur.sty724
1 files changed, 308 insertions, 416 deletions
diff --git a/Master/texmf-dist/tex/latex/pas-tableur/pas-tableur.sty b/Master/texmf-dist/tex/latex/pas-tableur/pas-tableur.sty
index f1422a6f9f2..e98aa208bcb 100644
--- a/Master/texmf-dist/tex/latex/pas-tableur/pas-tableur.sty
+++ b/Master/texmf-dist/tex/latex/pas-tableur/pas-tableur.sty
@@ -1,461 +1,353 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% pas-tableur.sty v2.00 encodage : UTF8 %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% %
-% Créé par Stéphane PASQUET %
-% %
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %
+% pas-tableur.sty v2.01 encodage : UTF8 %
+% %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% %
+% Cree par Stephane PASQUET %
+% %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
-\def\fileversion{2.00}
-\def\filedate{2014/08/16}
+\def\fileversion{2.1}
+\def\filedate{2016/01/31}
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesClass{pas-tableur}[%
\filedate\space v\fileversion\space
LaTeX package by Stephane PASQUET]
-\@ifpackageloaded{tikz}{}{\RequirePackage{tikz}}
+\RequirePackage{tikz}
\usetikzlibrary{calc}
-\@ifpackageloaded{xstring}{}{\RequirePackage{xstring}}
-\@ifpackageloaded{xkeyval}{}{\RequirePackage{xkeyval}}
-
-
-% Définition des couleurs
-
+\RequirePackage{xstring}
+\RequirePackage{xkeyval}
+%
+% Definition des couleurs
+%
\definecolor{grayTopCell}{cmyk}{0.08,0.05,0.06,0}
\definecolor{grayBottomCell}{cmyk}{0.1,0.07,0.08,0}
\definecolor{graySepCell}{cmyk}{0.29,0.21,0.21,0}
\definecolor{blueSelecCellTop}{cmyk}{0.52,0.17,0,0}
\definecolor{blueSelecCellBottom}{cmyk}{0.75,0.34,0,0}
\definecolor{blueSelec}{cmyk}{0.23,0.06,0,0}
-
-% Définition des dimensions par défaut
-
+%
+% Definition des dimensions par defaut
+%
\def\col@width{7em}
-\def\numline@width{3em} % largeur de la colonne indiquant le numéros des lignes
+\def\numline@width{3em} % largeur de la colonne indiquant le numeros des lignes
\def\line@height{1.57em}
-
- %==> Changer les valeurs par défaut
+%
+ %==> Changer les valeurs par defaut
\newcommand*{\tabcolwidth}[1]{\def\col@width{#1}}
\newcommand*{\tabnumlinewidth}[1]{\def\numline@width{#1}}
\newcommand*{\tablineheight}[1]{\def\line@height{#1}}
-
-% Définition des polices de caractères
-
+%
+% Definition des polices de caracteres
+%
\newcommand{\helvbx}{\usefont{T1}{phv}{m}{n}}
-
-% Construction du tableur
-
- %==> Style des cellules
- \tikzstyle{celempty} = [outer sep=0pt]
- \tikzstyle{celhead} = [draw=black,rectangle,outer sep=0pt]
-
- %==> Macro de redirection : étoilée ou pas étoilée ?
- \newcommand{\tableur}{\@ifstar{\tableur@star}{\tableur@nostar}}
-
- %==> Macro étoilée : \tableur*{A/<l1>,B/<l2>,...}. Tableur avec colonnes de largeurs différentes
- \newcommand{\tableur@star}[2][1]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Construction du tableur %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%==> Macro intermediaire : trace de la premiere cellule
+%
+\newcommand{\pastab@draw@cell}[5]
+% #1 : \first@width, #2 : \first@name, #3 : 0=colonne1 / 1=autres colonnes /
+% 2 = ligne 1, #4 : coord., #5 : contenu
{%
- \xdef\list@of@col{#2}
- % Placement de la première cellule en-tête
- \StrChar{#2}{1}[\first@name]
- \StrBetween{#2}{/}{,}[\first@width]
- \node[minimum width={\first@width},minimum height=\line@height,celhead] (\first@name) {\helvbx\first@name};
- \fill[grayBottomCell]
- (\first@name.south west) --
- (\first@name.south east) --
- ($0.5*(\first@name.south east)+0.5*(\first@name.north east)$) --
- ($0.5*(\first@name.south west)+0.5*(\first@name.north west)$) --
- cycle;
- \fill[grayTopCell]
- (\first@name.north west) --
- (\first@name.north east) --
- ($0.5*(\first@name.south east)+0.5*(\first@name.north east)$) --
- ($0.5*(\first@name.south west)+0.5*(\first@name.north west)$) --
- cycle;
- \node[minimum width={\first@width},minimum height=\line@height,celhead] at (\first@name) {\helvbx\first@name};
-
- % Placement des autres en-têtes de colonnes
-
- \foreach \name/\w [remember=\name as \lastname,count=\colnumber] in {#2}
- {
- \ifx\name\first@name
+ \ifnum#3=0%
+ \tikzstyle{cellstyle} = [celhead,minimum width={#1},minimum height=\line@height]%
+ \def\pastableur@coord{(0,0)}%
+ \else%
+ \ifnum#3=1%
+ \tikzstyle{cellstyle} = [celhead,right,minimum width={#1},minimum height=\line@height]%
\else
- \node[minimum width={\w},minimum height=\line@height,celhead,right] (\name) at (\lastname.east) {\helvbx\name};
- \fill[grayBottomCell]
- (\name.south west) --
- (\name.south east) --
- ($0.5*(\name.south east)+0.5*(\name.north east)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)$) --
- cycle;
- \fill[grayTopCell]
- (\name.north west) --
- (\name.north east) --
- ($0.5*(\name.south east)+0.5*(\name.north east)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)$) --
- cycle;
- \node[minimum width={\w},minimum height=\line@height,celhead,right] at (\lastname.east) {\helvbx\name};
- \fi
- }
-
- % Placement des en-têtes de lignes
-
- \node[below left,celhead,minimum width=\numline@width,minimum height=\line@height] (numline1) at (\first@name.south west) {\helvbx 1};
+ \ifnum#3=2%
+ \tikzstyle{cellstyle} = [below left,celhead,minimum width={#1},minimum height=\line@height]
+ \else%
+ \tikzstyle{cellstryle} = [below,celhead,minimum width={#1},minimum height=\line@height]
+ \fi%
+ \fi%
+ \def\pastableur@coord{(#4)}%
+ \fi%
+ \node[cellstyle] (#2) at \pastableur@coord {\helvbx#5};%
\fill[grayBottomCell]
- (numline1.south west) --
- (numline1.south east) --
- ($0.5*(numline1.south east)+0.5*(numline1.north east)$) --
- ($0.5*(numline1.south west)+0.5*(numline1.north west)$) --
- cycle;
+ (#2.south west) --
+ (#2.south east) --
+ ($0.5*(#2.south east)+0.5*(#2.north east)$) --
+ ($0.5*(#2.south west)+0.5*(#2.north west)$) --
+ cycle;%
\fill[grayTopCell]
- (numline1.north west) --
- (numline1.north east) --
- ($0.5*(numline1.south east)+0.5*(numline1.north east)$) --
- ($0.5*(numline1.south west)+0.5*(numline1.north west)$) --
- cycle;
- \node[below left,celhead,minimum width=\numline@width,minimum height=\line@height] (numline1) at (\first@name.south west) {\helvbx1};
- \ifnum#1>1
- \foreach \num@line [remember=\num@line as \lastnum (initially 1)] in {2,...,#1}
- {
- \node[below,celhead,minimum width=\numline@width,minimum height=\line@height] (numline\num@line) at (numline\lastnum.south) {\helvbx\num@line};
- \fill[grayBottomCell]
- (numline\num@line.south west) --
- (numline\num@line.south east) --
- ($0.5*(numline\num@line.south east)+0.5*(numline\num@line.north east)$) --
- ($0.5*(numline\num@line.south west)+0.5*(numline\num@line.north west)$) --
- cycle;
- \fill[grayTopCell]
- (numline\num@line.north west) --
- (numline\num@line.north east) --
- ($0.5*(numline\num@line.south east)+0.5*(numline\num@line.north east)$) --
- ($0.5*(numline\num@line.south west)+0.5*(numline\num@line.north west)$) --
- cycle;
- \node[below,celhead,minimum width=\numline@width,minimum height=\line@height] (numline\num@line) at (numline\lastnum.south) {\helvbx\num@line};
- }
- \fi
-
- % Tracé de la grille
-
- \foreach \name/\w in {#2}
- {
- \node[celempty,below,minimum height=\line@height,minimum width=\w] (cell\name-1) at (\name.south) {};
- \draw[graySepCell] ($(cell\name-1.south west)+(0.25pt,0)$) -- (cell\name-1.south east) -- ($(cell\name-1.north east)+(0,-0.25pt)$);
- }
- \ifnum#1>1
- \foreach\numline [remember=\numline as \lastnumline (initially 1)] in {2,...,#1}
- {
- \foreach \name/\w in {#2}
- {
- \node[celempty,below,minimum height=\line@height,minimum width=\w] (cell\name-\numline) at (cell\name-\lastnumline.south) {};
- \draw[graySepCell] ($(cell\name-\numline.south west)+(0.25pt,0)$) -- (cell\name-\numline.south east) -- ($(cell\name-\numline.north east)+(0,-0.25pt)$);
- }
- }
- \fi
+ (#2.north west) --
+ (#2.north east) --
+ ($0.5*(#2.south east)+0.5*(#2.north east)$) --
+ ($0.5*(#2.south west)+0.5*(#2.north west)$) --
+ cycle;%
+ \node[minimum width={#1},minimum height=\line@height,cellstyle] at \pastableur@coord {\helvbx#5};%
+ }
+%
+%==> Macro intermediaire : trace de la grille
+%
+\newcommand{\pastableur@grid}[4] % #1 : width, #2 : name, #3 : numline, #4 : coord.
+ {%
+ \node[celempty,below,minimum height=\line@height,minimum width=#1] (cell#2-#3) at (#4) {};%
+ \draw[graySepCell] ($(cell#2-#3.south west)+(0.25pt,0)$) -- (cell#2-#3.south east) -- ($(cell#2-#3.north east)+(0,-0.25pt)$);%
+ }
+%
+%==> Style des cellules
+%
+\tikzstyle{celempty} = [outer sep=0pt]
+\tikzstyle{celhead} = [draw=black,rectangle,outer sep=0pt]
+%
+%==> Macro de redirection : etoilee ou pas etoilee ?
+%
+\newcommand{\tableur}{\@ifstar{\tableur@star}{\tableur@nostar}}
+%
+%==> Macro etoilee : \tableur*{A/<l1>,B/<l2>,...}. Tableur avec colonnes de largeurs differentes
+%
+\newcommand{\tableur@star}[2][1]
+ {%
+ \xdef\list@of@col{#2}%
+ % Placement de la premiere cellule en-tête
+ \StrChar{#2}{1}[\first@name]%
+ \StrBetween{#2}{/}{,}[\first@width]%
+ \pastab@draw@cell{\first@width}{\first@name}{0}{}{\first@name}
+ % Placement des autres en-têtes de colonnes
+ \foreach \name/\w [remember=\name as \lastname,count=\colnumber] in {#2}
+ {%
+ \ifx\name\first@name%
+ \else%
+ \pastab@draw@cell{\w}{\name}{1}{\lastname.east}{\name}
+ \fi%
+ }%
+ % Placement des en-têtes de lignes
+ \pastab@draw@cell{\numline@width}{numline1}{2}{\first@name.south west}{1}
+ \ifnum#1>1%
+ \foreach \num@line [remember=\num@line as \lastnum (initially 1)] in {2,...,#1}
+ {%
+ \pastab@draw@cell{\numline@width}{numline\num@line}{3}{numline\lastnum.south east}{\num@line}%
+ }%
+ \fi%
+ % Trace de la grille
+ \foreach \name/\w in {#2}
+ {%
+ \pastableur@grid{\w}{\name}{1}{\name.south}%
+ }%
+ \ifnum#1>1%
+ \foreach\numline [remember=\numline as \lastnumline (initially 1)] in {2,...,#1}
+ {%
+ \foreach \name/\w in {#2}
+ {%
+ \pastableur@grid{\w}{\name}{\numline}{cell\name-\lastnumline.south}%
+ }%
+ }%
+ \fi%
} % --> Fin de \tableur*
-
- %==> Macro non étoilée : \tableur{A,B,C,...} ou \tableur{A-C}
-
- %----------> Liste des noms de colonnes <----------
- \xdef\col@names{ABCDEFGHIJKLMNOPQRSTUVWXYZ}
-
- \newcommand{\tableur@nostar}[2][1] % [#1] -> nombre de lignes (par défaut, "1"), #2 -> A,B,...,Z
+%
+%==> Macro non etoilee : \tableur{A,B,C,...} ou \tableur{A-C}
+%
+\xdef\col@names{ABCDEFGHIJKLMNOPQRSTUVWXYZ} %----------> Liste des noms de colonnes <----------
+%
+\newcommand{\tableur@nostar}[2][1] % [#1] -> nombre de lignes (par defaut, "1"), #2 -> A,B,...,Z
{%
\IfSubStr{#2}{-}
{%
- \StrBefore{#2}{-}[\str@start] % 1ère lettre, par ex. "G"
- \StrBehind{#2}{-}[\str@end] % 2ème lettre, par ex. "L"
+ \StrBefore{#2}{-}[\str@start] % 1ere lettre, par ex. "G"
+ \StrBehind{#2}{-}[\str@end] % 2eme lettre, par ex. "L"
\StrBetween{\col@names}{\str@start}{\str@end}[\str@col] % retourne par exemple "HIJK"
\edef\str@col{\str@start\str@col\str@end} % retourne alors "GHIJKL"
\StrLen{\str@col}[\nb@columns] % nombre de colonnes
- % --> On place la première cellule en-tête
- \node[minimum width={\col@width},minimum height=\line@height,celhead] (\str@start) {\helvbx\str@start};
- \fill[grayBottomCell]
- (\str@start.south west) --
- (\str@start.south east) --
- ($0.5*(\str@start.south east)+0.5*(\str@start.north east)$) --
- ($0.5*(\str@start.south west)+0.5*(\str@start.north west)$) --
- cycle;
- \fill[grayTopCell]
- (\str@start.north west) --
- (\str@start.north east) --
- ($0.5*(\str@start.south east)+0.5*(\str@start.north east)$) --
- ($0.5*(\str@start.south west)+0.5*(\str@start.north west)$) --
- cycle;
- \node[minimum width={\col@width},minimum height=\line@height,celhead] at (\str@start) {\helvbx\str@start};
+ % --> On place la premiere cellule en-tête
+ \pastab@draw@cell{\col@width}{\str@start}{0}{}{\str@start}%
% --> On place les autres en-têtes
\foreach \i [remember=\i as \lasti (initially 1)] in {2,...,\nb@columns}
- {
- \StrChar{\str@col}{\i}[\name]
- \StrChar{\str@col}{\lasti}[\lastname]
- \node[minimum width={\col@width},minimum height=\line@height,celhead,right] (\name) at (\lastname.east) {\helvbx\name};
- \fill[grayBottomCell]
- (\name.south west) --
- (\name.south east) --
- ($0.5*(\name.south east)+0.5*(\name.north east)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)$) --
- cycle;
- \fill[grayTopCell]
- (\name.north west) --
- (\name.north east) --
- ($0.5*(\name.south east)+0.5*(\name.north east)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)$) --
- cycle;
- \node[minimum width={\col@width},minimum height=\line@height,celhead] at (\name) {\helvbx\name};
- }
- }
- {
- \StrChar{#2}{1}[\str@start]
- \node[minimum width={\col@width},minimum height=\line@height,celhead] (\str@start) {\helvbx\str@start};
- \fill[grayBottomCell]
- (\str@start.south west) --
- (\str@start.south east) --
- ($0.5*(\str@start.south east)+0.5*(\str@start.north east)$) --
- ($0.5*(\str@start.south west)+0.5*(\str@start.north west)$) --
- cycle;
- \fill[grayTopCell]
- (\str@start.north west) --
- (\str@start.north east) --
- ($0.5*(\str@start.south east)+0.5*(\str@start.north east)$) --
- ($0.5*(\str@start.south west)+0.5*(\str@start.north west)$) --
- cycle;
- \node[minimum width={\col@width},minimum height=\line@height,celhead] at (\str@start) {\helvbx\str@start};
-
+ {%
+ \StrChar{\str@col}{\i}[\name]%
+ \StrChar{\str@col}{\lasti}[\lastname]%
+ \pastab@draw@cell{\col@width}{\name}{1}{\lastname.east}{\name}%
+ }%
+ }%
+ {%
+ \StrChar{#2}{1}[\str@start]%
+ \pastab@draw@cell{\col@width}{\str@start}{0}{}{\str@start}%
\foreach \name [remember=\name as \lastname] in {#2}
- {
- \ifx\name\str@start
- \else
- \node[minimum width={\col@width},minimum height=\line@height,celhead,right] (\name) at (\lastname.east) {\helvbx\name};
- \fill[grayBottomCell]
- (\name.south west) --
- (\name.south east) --
- ($0.5*(\name.south east)+0.5*(\name.north east)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)$) --
- cycle;
- \fill[grayTopCell]
- (\name.north west) --
- (\name.north east) --
- ($0.5*(\name.south east)+0.5*(\name.north east)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)$) --
- cycle;
- \node[minimum width={\col@width},minimum height=\line@height,celhead] at (\name) {\helvbx\name};
- \fi
- }
- }
-
-
+ {%
+ \ifx\name\str@start%
+ \else%
+ \pastab@draw@cell{\col@width}{\name}{1}{\lastname.east}{\name}%
+ \fi%
+ }%
+ }%
% Placement des en-têtes de lignes
-
- \StrChar{#2}{1}[\first@name]
- \node[below left,celhead,minimum width=\numline@width,minimum height=\line@height] (numline1) at (\first@name.south west) {\helvbx 1};
- \fill[grayBottomCell]
- (numline1.south west) --
- (numline1.south east) --
- ($0.5*(numline1.south east)+0.5*(numline1.north east)$) --
- ($0.5*(numline1.south west)+0.5*(numline1.north west)$) --
- cycle;
- \fill[grayTopCell]
- (numline1.north west) --
- (numline1.north east) --
- ($0.5*(numline1.south east)+0.5*(numline1.north east)$) --
- ($0.5*(numline1.south west)+0.5*(numline1.north west)$) --
- cycle;
- \node[below left,celhead,minimum width=\numline@width,minimum height=\line@height] (numline1) at (\first@name.south west) {\helvbx1};
- \ifnum#1>1
- \foreach \num@line [remember=\num@line as \lastnum (initially 1)] in {2,...,#1}
- {
- \node[below,celhead,minimum width=\numline@width,minimum height=\line@height] (numline\num@line) at (numline\lastnum.south) {\helvbx\num@line};
- \fill[grayBottomCell]
- (numline\num@line.south west) --
- (numline\num@line.south east) --
- ($0.5*(numline\num@line.south east)+0.5*(numline\num@line.north east)$) --
- ($0.5*(numline\num@line.south west)+0.5*(numline\num@line.north west)$) --
- cycle;
- \fill[grayTopCell]
- (numline\num@line.north west) --
- (numline\num@line.north east) --
- ($0.5*(numline\num@line.south east)+0.5*(numline\num@line.north east)$) --
- ($0.5*(numline\num@line.south west)+0.5*(numline\num@line.north west)$) --
- cycle;
- \node[below,celhead,minimum width=\numline@width,minimum height=\line@height] (numline\num@line) at (numline\lastnum.south) {\helvbx\num@line};
+ \StrChar{#2}{1}[\first@name]%
+ \pastab@draw@cell{\numline@width}{numline1}{2}{\first@name.south west}{1}
+ \ifnum#1>1%
+ \foreach \num@line [remember=\num@line as \lastnum (initially 1)] in {2,...,#1}
+ {%
+ \pastab@draw@cell{\numline@width}{numline\num@line}{3}{numline\lastnum.south east}{\num@line}%
+ }%
+ \fi%
+ % Trace de la grille
+ \IfSubStr{#2}{-}
+ {%
+ \foreach \i in {1,...,\nb@columns}
+ {%
+ \StrChar{\str@col}{\i}[\name]%
+ \pastableur@grid{\col@width}{\name}{1}{\name.south}%
+ }%
+ \ifnum#1>1%
+ \foreach\numline [remember=\numline as \lastnumline (initially 1)] in {2,...,#1}
+ {%
+ \foreach \i in {1,...,\nb@columns}
+ {%
+ \StrChar{\str@col}{\i}[\name]%
+ \pastableur@grid{\col@width}{\name}{\numline}{cell\name-\lastnumline.south}%
+ }%
+ }%
+ \fi%
}
- \fi
-
- % Tracé de la grille
-
- \IfSubStr{#2}{-}
- {%
- \foreach \i in {1,...,\nb@columns}
- {
- \StrChar{\str@col}{\i}[\name]
- \node[celempty,below,minimum height=\line@height,minimum width=\col@width] (cell\name-1) at (\name.south) {};
- \draw[graySepCell] ($(cell\name-1.south west)+(0.25pt,0)$) -- (cell\name-1.south east) -- ($(cell\name-1.north east)+(0,-0.25pt)$);
- }
- \ifnum#1>1
- \foreach\numline [remember=\numline as \lastnumline (initially 1)] in {2,...,#1}
- {
- \foreach \i in {1,...,\nb@columns}
- {
- \StrChar{\str@col}{\i}[\name]
- \node[celempty,below,minimum height=\line@height,minimum width=\col@width] (cell\name-\numline) at (cell\name-\lastnumline.south) {};
- \draw[graySepCell] ($(cell\name-\numline.south west)+(0.25pt,0)$) -- (cell\name-\numline.south east) -- ($(cell\name-\numline.north east)+(0,-0.25pt)$);
- }
- }
- \fi
- }
- {%
- \foreach \name in {#2}
- {
- \node[celempty,below,minimum height=\line@height,minimum width=\col@width] (cell\name-1) at (\name.south) {};
- \draw[graySepCell] ($(cell\name-1.south west)+(0.25pt,0)$) -- (cell\name-1.south east) -- ($(cell\name-1.north east)+(0,-0.25pt)$);
- }
- \ifnum#1>1
- \foreach\numline [remember=\numline as \lastnumline (initially 1)] in {2,...,#1}
- {
- \foreach \name in {#2}
- {
- \node[celempty,below,minimum height=\line@height,minimum width=\col@width] (cell\name-\numline) at (cell\name-\lastnumline.south) {};
- \draw[graySepCell] ($(cell\name-\numline.south west)+(0.25pt,0)$) -- (cell\name-\numline.south east) -- ($(cell\name-\numline.north east)+(0,-0.25pt)$);
- }
- }
- \fi
- }
-}
-
-% Insérer quelque chose dans une cellule
-
+ {%
+ \foreach \name in {#2}
+ {%
+ \pastableur@grid{\col@width}{\name}{1}{\name.south}%
+ }%
+ \ifnum#1>1%
+ \foreach\numline [remember=\numline as \lastnumline (initially 1)] in {2,...,#1}
+ {%
+ \foreach \name in {#2}
+ {%
+ \pastableur@grid{\col@width}{\name}{\numline}{cell\name-\lastnumline.south}%
+ }%
+ }%
+ \fi%
+ }%
+ } % --> Fin de \tableur
+%
+% Inserer quelque chose dans une cellule : \celtxt [modif. du 2016/01/21 due \`a "Un bon petit"]
+%
\define@cmdkey [PAS] {celtxt} {width}{}
\define@cmdkey [PAS] {celtxt} {color}{}
\define@boolkey [PAS] {celtxt} {l}[true]{}
\define@boolkey [PAS] {celtxt} {r}[true]{}
\define@boolkey [PAS] {celtxt} {c}[true]{}
\presetkeys [PAS] {celtxt} {width = \col@width, color=black}{}
-
-\newcommand*{\celtxt}[1][]{\cel@txt[#1]}
-
-\newcommand\cel@txt[3][]{%
- \setkeys[PAS]{celtxt}{#1}
- \begingroup
- \@makeother\^%
- \@makeother\$%
- \@celtxt@[#1]{#2}{#3}%
-}
-\newcommand\@celtxt@[4][]{%
- \endgroup
- \setkeys[PAS]{celtxt}{#1}
- \StrPosition{#4}{=}[\@equalPos]
- \ifnum\@equalPos=1
- %\def\@scale{1}%
- \let\@style\texttt
- \else
- %\def\@scale{0.9}%
- \let\@style\@empty
- \fi
- \ifPAS@celtxt@c
- \def\pos@align{c}
- \else
- \ifPAS@celtxt@r
- \def\pos@align{r}
- \else
- \def\pos@align{l}
- \fi
- \fi
- \node at (cell#2-#3) {\makebox[\dimexpr\cmdPAS@celtxt@width-2pt][\pos@align]{\@style{\textcolor{\cmdPAS@celtxt@color}{#4}}}};
-}
-
-% Cellule sélectionnée : \selecCell
-
+%
+\newcommand*\celtxt@catcoderegime@begin{}
+\newcommand*\celtxt@catcoderegime@end{}
+%
+\newcommand*\celtxt
+ {%
+ \@ifstar{%
+ \let\celtxt@catcoderegime@end\@empty
+ \let\celtxt@catcoderegime@begin\@empty
+ \celtxt@i
+ }{%
+ \def\celtxt@catcoderegime@begin{%
+ \begingroup
+ \@makeother\^%
+ \@makeother\$%
+ }%
+ \let\celtxt@catcoderegime@end\endgroup
+ \celtxt@i
+ }%
+ }
+%
+\newcommand*{\celtxt@i}[1][]{\celtxt@ii{#1}}
+%
+\newcommand*\celtxt@ii[3]
+ {%
+ \setkeys[PAS]{celtxt}{#1}%
+ \celtxt@catcoderegime@begin
+ \celtxt@iii{#1}{#2}{#3}%
+ }
+%
+\newcommand*\celtxt@iii[4]
+ {%
+ \celtxt@catcoderegime@end
+ \IfBeginWith{#4}{=}{\let\pastab@style\texttt}{\let\pastab@style\@empty}
+ \ifPAS@celtxt@c
+ \def\pos@align{c}%
+ \else
+ \ifPAS@celtxt@r
+ \def\pos@align{r}%
+ \else
+ \def\pos@align{l}%
+ \fi
+ \fi
+ \node at (cell#2-#3) {\makebox[\dimexpr\cmdPAS@celtxt@width-2pt][\pos@align]{\pastab@style{\textcolor{\cmdPAS@celtxt@color}{#4}}}};%
+ }
+%
+% Cellule selectionnee : \selecCell
+%
\newcommand*\selecCell[2]
-{%
- %==> En-tête ligne
-
- \fill[blueSelecCellBottom]
- (numline#2.south west) --
- (numline#2.south east) --
- ($0.5*(numline#2.south east)+0.5*(numline#2.north east)$) --
- ($0.5*(numline#2.south west)+0.5*(numline#2.north west)$) --
- cycle;
- \fill[blueSelecCellTop]
- (numline#2.north west) --
- (numline#2.north east) --
- ($0.5*(numline#2.south east)+0.5*(numline#2.north east)$) --
- ($0.5*(numline#2.south west)+0.5*(numline#2.north west)$) --
- cycle;
- \node[celhead,minimum width=\numline@width,minimum height=\line@height] at (numline#2) {\helvbx#2};
-
- %==> En-tête colonne
-
- \fill[blueSelecCellBottom]
- ($(#1.south west)+(0.25pt,0.25pt)$) --
- ($(#1.south east)+(-0.25pt,0.25pt)$) --
- ($0.5*(#1.south east)+0.5*(#1.north east)+(-0.25pt,0)$) --
- ($0.5*(#1.south west)+0.5*(#1.north west)+(0.25pt,0)$) --
- cycle;
- \fill[blueSelecCellTop]
- ($(#1.north west)+(0.25pt,-0.25pt)$) --
- ($(#1.north east)+(-0.25pt,-0.25pt)$) --
- ($0.5*(#1.south east)+0.5*(#1.north east)+(-0.25pt,0)$) --
- ($0.5*(#1.south west)+0.5*(#1.north west)+(0.25pt,0)$) --
- cycle;
- \node at (#1) {\helvbx#1};
-
- %==> Cellule cell#1-#1
-
- \draw[very thick] (cell#1-#2.south west) rectangle (cell#1-#2.north east);
- \fill[black] ($(cell#1-#2.south east)+(-1pt,1pt)$) rectangle +(3pt,-3pt);
-}
-
-% Sélection de plusieurs cellules : \multiSelec{A-1}{B-2} _/!\_ Nouvelle syntaxe 2014
-
+ {%
+ %==> En-tête ligne
+ %
+ \pastableur@colorcell{numline#2}{0}
+ \node[celhead,minimum width=\numline@width,minimum height=\line@height] at (numline#2) {\helvbx#2};%
+ %
+ %==> En-tête colonne
+ %
+ \pastableur@colorcell{#1}{1}
+ \node at (#1) {\helvbx#1};%
+ %
+ %==> Cellule cell#1-#1
+ %
+ \draw[very thick] (cell#1-#2.south west) rectangle (cell#1-#2.north east);%
+ \fill[black] ($(cell#1-#2.south east)+(-1pt,1pt)$) rectangle +(3pt,-3pt);%
+ } % fin de \selecCell
+%
+% Selection de plusieurs cellules : \multiSelec{A-1}{B-2} _/!\_ Nouvelle syntaxe 2014
+%
\newcommand*\multiSelec[2]
-{%
- \fill[blueSelec,opacity=0.5] ($(cell#1.north west)+(0.25pt,-0.25pt)$) rectangle ($(cell#2.south east)+(-0.25pt,0.25pt)$);
- \draw[very thick] (cell#1.south west) rectangle (cell#1.north east);
- \fill[black] ($(cell#2.south east)+(-0.5pt,0.5pt)$) rectangle +(3pt,-3pt);
-
- %==> On colorie les en-têtes "colonnes"
-
- \StrChar{#1}{1}[\str@start] % par exemple, "G"
- \StrChar{#2}{1}[\str@end] % par exemple, "L"
- \StrBetween{\col@names}{\str@start}{\str@end}[\str@col] % retourne par exemple "HIJK"
- \edef\str@col{\str@start\str@col\str@end} % retourne alors "GHIJKL"
- \StrLen{\str@col}[\nb@columns] % nombre d'en-têtes "colonnes" à colorier
- \foreach \i in {1,...,\nb@columns}
- {
- \StrChar{\str@col}{\i}[\name]
- \fill[blueSelecCellBottom]
- ($(\name.south west)+(0.25pt,0.25pt)$) --
- ($(\name.south east)+(-0.25pt,0.25pt)$) --
- ($0.5*(\name.south east)+0.5*(\name.north east)+(-0.25pt,0)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)+(0.25pt,0)$) --
- cycle;
- \fill[blueSelecCellTop]
- ($(\name.north west)+(0.25pt,-0.25pt)$) --
- ($(\name.north east)+(-0.25pt,-0.25pt)$) --
- ($0.5*(\name.south east)+0.5*(\name.north east)+(-0.25pt,0)$) --
- ($0.5*(\name.south west)+0.5*(\name.north west)+(0.25pt,0)$) --
- cycle;
- \node at (\name) {\helvbx\name};
- }
-
- %==> On colorie les en-têtes "lignes"
-
- \StrGobbleLeft{#1}{2}[\first@num]
- \StrGobbleLeft{#2}{2}[\second@num]
- \foreach \i in {\first@num,...,\second@num}
- {
+ {%
+ \fill[blueSelec,opacity=0.5] ($(cell#1.north west)+(0.25pt,-0.25pt)$) rectangle ($(cell#2.south east)+(-0.25pt,0.25pt)$);%
+ \draw[very thick] (cell#1.south west) rectangle (cell#1.north east);%
+ \fill[black] ($(cell#2.south east)+(-0.5pt,0.5pt)$) rectangle +(3pt,-3pt);%
+ %
+ %==> On colorie les en-têtes "colonnes"
+ %
+ \StrChar{#1}{1}[\str@start] % par exemple, "G"
+ \StrChar{#2}{1}[\str@end] % par exemple, "L"
+ \StrBetween{\col@names}{\str@start}{\str@end}[\str@col] % retourne par exemple "HIJK"
+ \edef\str@col{\str@start\str@col\str@end} % retourne alors "GHIJKL"
+ \StrLen{\str@col}[\nb@columns] % nombre d'en-têtes "colonnes" \`a colorier
+ \foreach \i in {1,...,\nb@columns}
+ {%
+ \StrChar{\str@col}{\i}[\name]%
+ \pastableur@colorcell{\name}{1}
+ \node at (\name) {\helvbx\name};%
+ }%
+ %
+ %==> On colorie les en-têtes "lignes"
+ %
+ \StrGobbleLeft{#1}{2}[\first@num]%
+ \StrGobbleLeft{#2}{2}[\second@num]%
+ \foreach \i in {\first@num,...,\second@num}
+ {%
+ \pastableur@colorcell{numline\i}{0}
+ \node[celhead,minimum width=\numline@width,minimum height=\line@height] at (numline\i) {\helvbx\i};%
+ }%
+ }% fin de \multiSelec
+%
+%
+%
+\newlength\pastableur@decal
+\newcommand{\pastableur@colorcell}[2] % #1 : name, #2 : 0=en-tetes "lignes" / 1=en-tetes "colonnes"
+ {%
+ \ifnum#2=0%
+ \setlength\pastableur@decal{0pt}%
+ \else%
+ \setlength\pastableur@decal{0.25pt}%
+ \fi%
\fill[blueSelecCellBottom]
- (numline\i.south west) --
- (numline\i.south east) --
- ($0.5*(numline\i.south east)+0.5*(numline\i.north east)$) --
- ($0.5*(numline\i.south west)+0.5*(numline\i.north west)$) --
- cycle;
+ ($(#1.south west)+(\pastableur@decal,-\pastableur@decal)$) --
+ ($(#1.south east)+(-\pastableur@decal,\pastableur@decal)$) --
+ ($0.5*(#1.south east)+0.5*(#1.north east)+(-\pastableur@decal,0)$) --
+ ($0.5*(#1.south west)+0.5*(#1.north west)+(\pastableur@decal,0)$) --
+ cycle;%
\fill[blueSelecCellTop]
- (numline\i.north west) --
- (numline\i.north east) --
- ($0.5*(numline\i.south east)+0.5*(numline\i.north east)$) --
- ($0.5*(numline\i.south west)+0.5*(numline\i.north west)$) --
- cycle;
- \node[celhead,minimum width=\numline@width,minimum height=\line@height] at (numline\i) {\helvbx\i};
- }
-}
+ ($(#1.north west)+(\pastableur@decal,-\pastableur@decal)$) --
+ ($(#1.north east)+(-\pastableur@decal,-\pastableur@decal)$) --
+ ($0.5*(#1.south east)+0.5*(#1.north east)+(-\pastableur@decal,0)$) --
+ ($0.5*(#1.south west)+0.5*(#1.north west)+(\pastableur@decal,0)$) --
+ cycle;%
+ }%
\endinput