Re,
Après avoir + ou - bien cogité sur ton souci de vouloir attribuer tous les lots, il semble que seul cas où tu es sûr de tout distribuer est quand le nombre d'inscrits "une place" est supérieur ou égal au nombre de places allouées.
le cauchemar étant quand une catégorie de lots , notamment 3 et 4 places, est supérieur au nombre d'inscrits de la catégorie.
Il faudrait donc calculer le nombre de lots par catégorie à partir du nombre d'inscrits dans chaque catégorie, c'est à dire après la clôture du jeu: est ce bien légal?
Si oui, tu pourrais établir un bareme dans le style
20 places = 1lot de 4, 1 lot de 3, 4 lots de 2, 5 lots de 1
30 places= 2 lots de 4 etc.
(tout se jouera sur le nombre de 1...)
et prendre des conditions de subtitution:
par exemple: si il me manque 1 inscrit 4 places le lot est transformé en lot 3 places + 1 lot 1 places, si il manque un "3places"=1"2 places" + 1 "1place" etc.
Je te souhaite alors bien du plaisir: j'ai commencé et...
Donc, bien que ca me plaise pas trop,je reclique sur le bouton au cas où
IL y a une faute de frappe dans la macro au lieu de:
inscrits.Add Range(Cells(cptr, 1), Cells(cptr, 5)), Cells(cptr, 1).Value & Cells(cptr, 5).Value
il faut écrire:
inscrits.Add Range(Cells(cptr, 1), Cells(cptr, 5)), Cells(cptr, 1).Value & Cells(cptr, 2).Value
A+
Michel