Répartition equitable - Adaptation code

[gourdin]

Bonjour,

J'ai utilisé et un peu adapté le code VBA trouvé sur le forum (#post1512143) par "mapomme" (merci) et cela convient mais j'aurais aimé mieux l'adapter à mon fichier mais le code est trop compliqué pour moi .

Voir fichier en pièce jointe.
Merci.

 

[JBARBE]

Re,
Je n'ai pu obtenir que Ecart Max = 5 et Ecart Moyen 1,5 pour 4 groupes
C'est déjà pas mal compte tenu que la macro de mapomme n'a été que légèrement modifiée !
Pas facile ce décalage des lignes !
Bonne nuit !

 

[JBARBE]

Bonjour à tous,
J'ai maintenant les mêmes écarts que l'original soit :
Ecart Max = 3
Ecart Moyen = 1,0
pour 4 groupes et autres !
Je pense que le nécessaire est fait maintenant !
Bonne journée !

 

[gourdin]

Bonjour,

En effet les écart max semblent bons mais après répartition et selon le nombre de groupes (à partir de 5 groupes) curieusement des départements disparaissent ou le chiffre associé à certains département est modifié.

On peut facilement s'en apercevoir sur le fichier joint sur lequel j'ai ajouté 2 totaux qui devraient être toujours identiques quelque soit le nombre de groupe :
1. Le total de tous les départements
2. Le total des départements après répartition en groupes

 

[JBARBE]

Re,
A cause de la saisie en dessous du tableau le décompte des lignes était faux !
Pour l'exemple de 5 groupes il est normal qu'il y a haute Garonne seul pour avoir le bon total !
cellule C6 = total demandé
cellule E6 = total obtenu
@+

 

[gourdin]

Désolé mais dans le fichier ci-joint quand on réparti sur 5 groupes le total de départ se modifie en passant de 1512 à 1508.

En effet 4 départements passent de 1 à 0 (Lot, Moselle, Rhône, Territoire-de-Belfort).

 

[JBARBE]

Re,
Le fichier ci-joint est une copie conforme de celui de mapomme !
S' il y a des erreurs maintenant, je crains que tu vas devoir attendre mapomme !
Bonne soirée !

 

[gourdin]

Ok pas de problème.
Merci de votre aide