Bonjour Laurent,
C'est bien parce que le temps incite à rester chez soi faire de la généalogie ou du sql...
Le problème vient de PROC_LR_SEL_GROUPE.
A l'intérieur de la boucle
while ((O_NB_GENERATIONS < I_NB_GENERATIONS) and (continuer=1) do
tu vas chercher successivement les ascendants puis les descendants, en forçant "continuer" à 1 ou 0 en fonction du nombre d'individus sélectionnés à la fin de chacune des phases (ascendance puis descendance). Mais s'il n'y a plus de descendance, continuer est remis à 0, même s'il y avait une ascendance (continuer=1), arrêtant de ce fait la recherche des ascendants.
Je proposerai les modifs suivantes:
Après le WHILE initialiser continuer=0
Après chaque phase de recherche des ascendants et descendants, inverser le test en mettant:
if (NOMBRE>0) then continuer=1;
au lieu de
if (NOMBRE<=0) then continuer=0;
Es-tu OK pour que je fasse cette modif dans une prochaine maj de la base?
A+
André