XL 2016 Répartition équitable de binômes

halecs93 · 30 Juillet 2024

Bonjour,

Je travaille toujours sur un fichier me permettant de répartir le plus équitablement possible des personnes. Le but étant de créer des binômes différents à affecter les samedis.

J'ai, je crois, pas mal avancé, mais je n'arrive pas à finaliser cet aspect "équitable".

Quelqu'un aurait une proposition plus fiable que la mienne ?

Un grand merci.

job75 · 2 Août 2024

La macro avec 3 Dictionary :

VB:

Sub Tirages()
Dim tablo As Range, nNom%, delai%, dferie As Object, c As Range, dinterdit As Object
Dim d As Object, col%, r1%, r2%, txt$, rejet As Boolean, ecart%
Set tablo = [Tableau1] 'tableau structuré
nNom = tablo.Rows.Count
delai = 42 'au moins 42 jours avant de réutiliser un nom
'---jours fériés à éliminer---
Set dferie = CreateObject("Scripting.Dictionary")
For Each c In [feries]
    If Weekday(c) = 7 Then dferie(c.Value) = ""
Next c
'---binômes interdits---
Set dinterdit = CreateObject("Scripting.Dictionary")
For Each c In [Tableau5].Columns(1).Cells
    dinterdit(c & vbLf & c(1, 2)) = ""
    dinterdit(c(1, 2) & vbLf & c) = ""
Next c
Application.ScreenUpdating = False
Randomize
Set d =...

job75 · 31 Juillet 2024

Bonjour halecs93, le forum,

Les écarts peuvent être réduits par des tirages aléatoires, voyez ce fil :

https://excel-downloads.com/threads...upes-sous-contraintes.20083742/#post-20651761

A+

crocrocro · 31 Juillet 2024

Bonjour à tous,
en pj une solution avec le solveur
quelques explications :
j'ai créé 2 feuilles
la 1ère liste les noms des personnes avec leur id (numérique pour le solveur) , le nb de samedis affectés, attendus et l'écart en valeur absolue.
La somme des écarts srera l'objectif du solveur (à minimiser)
la 2ème est une transposition des samedi avec pour 2ème colonne l'id du nom affecté (calculé par le solveur)
en D1 l'écart actuel (cf. commentaire de la cellule)
en D3 formule donnant le nombre de valeurs (également utilisé par le solveur)
copie d'écran des règles du solveur
Si ce n'est pas déjà fait, ajouter le solveur (option -> compléments)
Pour lancer le solveur : Données -> Solveur -> résoudre.
L'arrêter au bout d'un certain temps (pour ce calcul une dizaine de secondes).
Il reste un travail de mise en forme pour mettre à jour le planning ...

halecs93 · 31 Juillet 2024

crocrocro à dit:
Bonjour à tous,
en pj une solution avec le solveur
quelques explications :
j'ai créé 2 feuilles
la 1ère liste les noms des personnes avec leur id (numérique pour le solveur) , le nb de samedis affectés, attendus et l'écart en valeur absolue.
La somme des écarts srera l'objectif du solveur (à minimiser)
la 2ème est une transposition des samedi avec pour 2ème colonne l'id du nom affecté (calculé par le solveur)
en D1 l'écart actuel (cf. commentaire de la cellule)
en D3 formule donnant le nombre de valeurs (également utilisé par le solveur)
copie d'écran des règles du solveur
Si ce n'est pas déjà fait, ajouter le solveur (option -> compléments)
Pour lancer le solveur : Données -> Solveur -> résoudre.
L'arrêter au bout d'un certain temps (pour ce calcul une dizaine de secondes).
Il reste un travail de mise en forme pour mettre à jour le planning ...

Regarde la pièce jointe 1201260

Regarde la pièce jointe 1201259

Merci... je regarde.

Dranreb · 31 Juillet 2024

Bonjour.
Au lieu d'utiliser Rnd, utilisez mon objet ListeAléat.

crocrocro · 31 Juillet 2024

Je complète mon post précédent :
si certains samedis sont déjà affectés, il est possible de ne faire travailler le solveur que sur les lignes non-préaffectées :
Une contrainte cependant, la plage doit être avec des cellules contigües (par exemple $B$10: $B$30), il faut donc trier le tableau pour respecter la contrainte

halecs93 · 31 Juillet 2024

crocrocro à dit:
Je complète mon post précédent :
si certains samedis sont déjà affectés, il est possible de ne faire travailler le solveur que sur les lignes non-préaffectées :
Une contrainte cependant, la plage doit être avec des cellules contigües (par exemple $B$10: $B$30), il faut donc trier le tableau pour respecter la contrainte

Oui, en effet... l'idée est intéressante, mais contraignante...

halecs93 · 31 Juillet 2024

Dranreb à dit:
Bonjour.
Au lieu d'utiliser Rnd, utilisez mon objet ListeAléat.

Bonjour, cela apporterait quelle changement ? Merci

crocrocro · 31 Juillet 2024

si certains samedis sont déjà affectés, il est possible de ne faire travailler le solveur que sur les lignes non-préaffectées :
Une contrainte cependant, la plage doit être avec des cellules contigües (par exemple $B$10: $B$30), il faut donc trier le tableau pour respecter la contrainte

Si on ne veut pas trier, cela impose de dupliquer toutes les contraintes du solveur par plage ed cellules contigües.
Dans l'exemple ci-dessous $B2:$B9 et $B21:$B31.
Ce qui est finalement plus lourd que le tri où l'on peut trouver des astuces.
A noter : Le Solveur met beaucoup plus de temps pour trouver une solution. Logique puisque qu'on lui contraint certaines valeurs.

Dranreb · 31 Juillet 2024

L'utilisation d'un ListeAléat conduirait à des bouts de codes plus courts parce que c'est une petite boite noire bien docile. Je ne me verrais plus écrire autrement une programmation en utilisant un. Vous pourriez y puiser au fur et à mesure, s'il en reste, un numéro de personne et l'en évacuer aussitôt. S'il n'en reste plus faites lui d'abord établir un nouveau mélange.
Avec ce processus vous ne devriez plus avoir d'écart supérieur à 1 entre les samedis effectués par des personnes différentes, parce que vous les aurez épuisées toutes avant de toutes les reconsidérer dans un ordre différent.

halecs93 · 31 Juillet 2024

Dranreb à dit:
L'utilisation d'un ListeAléat conduirait à des bouts de codes plus courts parce que c'est une petite boite noire bien docile. Je ne me verrais plus écrire autrement une programmation en utilisant un. Vous pourriez y puiser au fur et à mesure, s'il en reste, un numéro de personne et l'en évacuer aussitôt. S'il n'en reste plus faites lui d'abord établir un nouveau mélange.
Avec ce processus vous ne devriez plus avoir d'écart supérieur à 1 entre les samedis effectués par des personnes différentes, parce que vous les aurez épuisées toutes avant de toutes les reconsidérer dans un ordre différent.

Hmmm pas certain de tout saisir. Mais que faudrait-il modifier concrètement dans mon code ?

Dranreb · 31 Juillet 2024

La 1ère chose c'est de glisser/déplacer le module de classe ListeAléat vers le projet VBA de votre classeur. Ensuite étudiez sa propriété Count et ses méthodes Init, Aléat, et Supprimer (les commentaires explicatifs d'utilisation, surtout, pas le code).

halecs93 · 31 Juillet 2024

Dranreb à dit:
La 1ère chose c'est de glisser/déplacer le module de classe ListeAléat vers le projet VBA de votre classeur. Ensuite étudiez sa propriété Count et ses méthodes Init, Aléat, et Supprimer (les commentaires explicatifs d'utilisation, surtout, pas le code).

Ok, merci... je vais essayer de comprendre tout ceci

Dranreb · 31 Juillet 2024

Un exemple joint pour votre problème.

halecs93 · 31 Juillet 2024

Dranreb à dit:
Un exemple joint pour votre problème.

Merci beaucoup

XL 2016 Répartition équitable de binômes

halecs93

XLDnaute Impliqué

Pièces jointes

job75

job75

XLDnaute Barbatruc

crocrocro

XLDnaute Occasionnel

Pièces jointes

halecs93

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

crocrocro

XLDnaute Occasionnel

halecs93

XLDnaute Impliqué

halecs93

XLDnaute Impliqué

crocrocro

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

halecs93

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

Dranreb

XLDnaute Barbatruc

Pièces jointes

halecs93

XLDnaute Impliqué

Discussions similaires