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]

Bonjour à tous,
Si tu nous expliquais ce que tu désire cela permettrait peut-être d'avancer dans ta demande !
Bonne journée !

 

[gourdin]

Bonjour,

Désolé ne ne pas avoir été clair et je vais essayer de préciser au mieux la demande :

En fait il s'agit d'adapter le code existant à mon projet qui comporte les 2 différences suivantes :
- le tableau en question commence à la ligne 8 au lieu de la ligne 1
- Le tableau se limite à 1 plage de cellule définie (100 lignes notamment)

Ci-joint un nouveau fichier avec 2 feuilles : l'une nommée "ORIGINAL" avec le code qui fonctionne pour un tableau commençant à la 1e ligne de la feuille et sans plage prédéfinie et une 2e feuille nommée "MON_PROJET" commençant à la 8e ligne.

Merci

 

[JBARBE]

Bonsoir à tous,
Il est difficile de reprendre une macro faite par quelqu'un quand il n'y a pas de commentaires dans la macro !
Néanmoins dans la feuille MON_PROJET (2) je n'ai pu mettre la saisie des colonnes B & C qu'à partir de la 1ere ligne comme il a été fait dans l'original !
Si un autre nom devait être donné à la feuille il faudra modifier la macro ainsi :
remplacer tout les Sheets("MON_PROJET (2)") par un nouveau nom de feuille !
Enfin, les colonnes B & C peuvent être cachée !
Bonne soirée !

 

[gourdin]

Merci mais celà ne fonctionne pas (quand je demande de répartir sur 2 groupes par exemple) et il faut absolument que les les colonnes B et C commencent à la 8e lignes.

Je vais essayer de voir si le créateur du code "mapomme" peut faire quelque chose.

 

[JBARBE]

Re,
Peut-être en mettant les colonnes B - C sur une autre feuille !
ça marche avec 2 groupes !
Bonne soirée !

 

[gourdin]

En effet celà fonctionne avec 2 feuilles. Merci

J'aimerai quand même voir avec "mapomme" mais je n'arrive pas à trouver la procédure pour lui envoyer un message.

 

[JBARBE]

Re,
Tout à fait en haut à droite clic dans conversations puis nouvelle conversation !
Tu rentres le pseudo de mapomme ( c'est celui-ci )
Et tu inscris ta demande !
En espérant qu'il puisse te répondre car ces temps ci je ne l'ai pas beaucoup vu sur ce forum !
Bonne soirée !

 

[gourdin]

J'ai beau chercher je ne vois pas "nouvelle conversation"
Voir capture écran

 

[JBARBE]

Re,
Désolé petite erreur !
clic dans conversations !
puis nouvelle conversation !
@+

 

[gourdin]

Le menu "nouvelle conversation" n’apparaît pas (cf. précédente capture d'écran).
J'ai envoyé un message à l'administrateur du site.

 

[JBARBE]

Bonjour gourdin, bonjour à tous,
Le nécessaire est fait dans la feuille "MON_PROJET (2)" !
S'il faut changer de feuille et de nom, il faut le faire également dans la macro >> Sheets("MON_PROJET (2)")
Bonne journée !

 

[gourdin]

Bonjour,

Merci JBARBE

Mais dans la feuille "MON_PROJET (2)" la répartition n'est plus aussi équitable que les répartitions proposées par le fichier original.

Par exemple pour une répartition en 2 groupes l'écart max = 12 (au lieu de 2), 3 groupes écart max = 3 (au lieu de 0), 4 groupes écart max = 26 (au lieu de 3) etc.

 

[JBARBE]

Re,
Le fichier original comporte un défaut ( ou plusieurs je n'ai pas tout vérifié)
car la macro calcul par pas de 8 !
sur le fichier original il y a : par pas de 8 :
Aude
Lozère
Yvelines >>> erreur ça devrait être Vaucluse !
D’où les écarts trouvés dû à ce décalage !
Ainsi mon fichier est plus juste que l'original !
Bonne soirée !
original

Creer

 

[gourdin]

Désolé mais je ne comprends pas très bien pourquoi le fichier original qui propose l'écart max de 3 entre les 4 colonnes n'est pas correct.
Tous les départements sont bien présents dans 4 colonnes avec tous les chiffres correspondant.

L'objectif étant d'avoir une répartition la plus équitable possible entre les 4 colonnes ce qui correspond à avoir le moins d'écart possible entre les 4 colonnes.