\documentclass[a4paper,french]{article}


\usepackage[T1]{fontenc}
\usepackage{xlop,ifthen,calc,xcolor}
\usepackage[francais,bloc,completemulti]{automultiplechoice}
\usepackage{babel}
\usepackage{cleveref}

%%%%%%%%
%% %\usepackage{xlop,ifthen,calc,xcolor}%obligatoire pour afficher points par avance/chargé après
%%%%
%%%%%%affiche barème
%\BaremeDetailtrue%affiche le barème dans la marge
%\BaremeEspaceMarge{0cm}%ajoute un écart entre la marge et les points%1.5 minimum
%\setlength{\parindent}{0pt}
%\brm{1}
%%%%%%%


\opset{decimalsepsymbol={,}}  % option du package xlop, pour additionner les compteurs
\newlength{\fulllinewidth}
\AtBeginDocument{\setlength{\fulllinewidth}{\linewidth}}
\newlength{\brouillon}
\newif\ifBaremeDetail
\BaremeDetailfalse

\newcommand*\FranPt[1]{%
   \ifBaremeDetail
 \opprint{#1}  pt%
     \ifdim#1pt<2pt % singulier lorsque < 2 et pas pluriel lorsque > 1
          \else
       s%
     \fi
   \fi
}

\makeatletter
%%%%
%%Code de  Jean-Côme Charpentier issu de


\newcommand*{\taille@Exo}{}
\newcommand*{\tailleEXO}[1]{\renewcommand*{\taille@Exo}{#1}} %% ???
\newcommand{\BaremeEspace@Marge}{1.5cm}
\newcommand{\BaremeEspaceMarge}[1]{\renewcommand{\BaremeEspace@Marge}{#1}} %% ???


\newcommand*{\brm}[1]{%
   % (\BaremeEspace@Marge == 0pt) => au ras de la marge gauche
   % (\BaremeEspace@Marge >0pt) => plus à l'intérieur de la marge gauche
   \immediate\write\@auxout{%
     \string\opadd*{#1}{totalPoints-\AMCStudentNumber}{totalPoints-\AMCStudentNumber}
   }%
   \setlength{\brouillon}{\BaremeEspace@Marge-\linewidth+\fulllinewidth}%
   \makebox[0pt][r]{\color{gray}\FranPt{#1}\hspace*{\brouillon}}%
   \ignorespaces%
}

%Remet automatiquement à 1 le compteur des question lors d'un nouvel appel à \section
\newcounter{exo}%[section]%inutile car le total est pris avec section

\newcommand\EXO{%
   \refstepcounter{exo}%
   \immediate\write\@auxout{% on écrit dans le fichier auxiliaire
     \string\opcopy{0}{totalPoints-\AMCStudentNumber}
   }%
   \@ifstar\exercice@\exercice@@
}

\newcommand\exercice@@[1][]{%
   {#1 \totalPoints{-\AMCStudentNumber}}
}

\newcommand\exercice@[1][]{%
   {#1 }
}

\newcommand\totalPoints[1]{% \total renommé en \totalPoints car la commande \total est déjà définie par le paquet totcount
   \@ifundefined{Op@totalPoints#1}{recompilez}%
   {%
     \opunzero{totalPoints#1}% on ne sait jamais,  permet de supprimer les zéros non significatifs du  nombre passé en argument.
     \opprint{totalPoints#1}~%
     \opcmp{totalPoints#1}{2}%on compare le score à 2 pour mettre ou pas un «s».
     \ifopge points\else point\fi
        }%
   }

\makeatother

\begin{document}

%%% préparation des groupes

\setdefaultgroupmode{withoutreplacement}

\element{geographie}{
  \begin{question}{Paris}\AMClabel{Paris}\brm{1}
    Dans quel continent se situe Paris~?
    \begin{reponses}
      \bonne{L'Europe}
      \mauvaise{L'Afrique}
      \mauvaise{L'Asie}
      \mauvaise{La planète Mars}
    \end{reponses}
  \end{question}
}

\element{geographie}{
  \begin{question}{Cameroun}\AMClabel{Cameroun}\brm{1}
    Quelle est la capitale du Cameroun~?
    \begin{reponses}
      \bonne{Yaoundé}
      \mauvaise{Douala}
      \mauvaise{Abou-Dabi}
    \end{reponses}
  \end{question}
}

\element{histoire}{
  \begin{question}{Marignan}\AMClabel{Marignan}
    En quelle année a eu lieu la bataille de Marignan~?\brm{1}
    \begin{reponseshoriz}
      \bonne{1515}
      \mauvaise{1915}
      \mauvaise{1519}
    \end{reponseshoriz}
  \end{question}
}

\element{histoire}{
  \begin{questionmult}{Nantes}\AMClabel{Nantes}
    Que peut-on dire de l'Édit de Nantes~?\brm{1}
    \begin{reponses}
      \bonne{Il a été signé en 1598}
      \bonne{Il a été définitivement révoqué par Louis XIV}
      \mauvaise{Il a été signé par Henri II}
    \end{reponses}
  \end{questionmult}
}

%%% fabrication des copies

\exemplaire{10}{

Répondre aux \cref{\AMCstudentlabel{Paris},\AMCstudentlabel{Marignan},\AMCstudentlabel{Cameroun},\AMCstudentlabel{Nantes}}
\EXO
%%% debut de l'en-tête des copies :

\noindent{\bf QCM  \hfill TEST}

\vspace*{.5cm}
\begin{minipage}{.4\linewidth}
  \centering\large\bf Histoire et géographie\\ Examen du 01/01/2008
\end{minipage}
\champnom{\fbox{\begin{minipage}{.5\linewidth}
Nom et prénom :

\vspace*{.5cm}\dotfill
\vspace*{1mm}
\end{minipage}}}

%%% fin de l'en-tête

\begin{center}
  \hrule\vspace{2mm}
  \bf\Large Géographie
  \vspace{1mm}\hrule
\end{center}

\restituegroupe{geographie}

\begin{center}
  \hrule\vspace{2mm}
  \bf\Large Histoire
  \vspace{2mm}\hrule
\end{center}

\restituegroupe{histoire}
}

\end{document}
