Taches à distribuer de facons aléatoires

Le
L-A
Bonjour

J'ai un classeur avec une liste de 60 taches et une de 15 personnes

J'aimerai que les taches soient attribuées (4 par personne) de fa=
on aléatoire sans doublons

j'ai bien essayé avec aléa, aléa entre bornes mais malheureu=
sement des doublons apparaissent.

merci de votre aide

https://www.cjoint.com/c/HDktL5dL66F
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michd
Le #26471948
Bonjour,
Ton fichier : https://www.cjoint.com/c/HDlb6zjawhi
Une petite macro fait le boulot.
MichD
Jacquouille
Le #26471955
Bonjour,
Si tu t'en tiens à ALEA(), il ne saurait y avoir de doublons, vu que cette
fonction transmet le nombre de (millisecondes ???) depuis l'ouverture du doc
...
Mais elle est volatile, c'est pourquoi il faut procéder comme suit:
tirer la formule =alea() jusqu'en bas.
Ensuite, copier la colonne et coller/collage spécial valeur.
Ensuite, tu tries cette colonne.
Tu peux ensuite répartir les tâches: les 4 premières au premier, les 4
suivantes ...
Ou, alors, tu prends la macro de Denis ...
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"L-A" a écrit dans le message de groupe de discussion :

Bonjour
J'ai un classeur avec une liste de 60 taches et une de 15 personnes
J'aimerai que les taches soient attribuées (4 par personne) de façon
aléatoire sans doublons
j'ai bien essayé avec aléa, aléa entre bornes mais malheureusement des
doublons apparaissent.
merci de votre aide
https://www.cjoint.com/c/HDktL5dL66F
Jacquouille
Le #26471957
Bonjour Denis,
Propriété non gérer par cet objet ....
Existerait-il une incompatibilité d'humeur avec mon 2003 ?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Michd" a écrit dans le message de groupe de discussion :
pajq61$vag$
Bonjour,
Ton fichier : https://www.cjoint.com/c/HDlb6zjawhi
Une petite macro fait le boulot.
MichD
Michd
Le #26471961
Bonjour Jacquouille,
Laisse-toi guider par Excel, lorsque tu as le message d'erreur, appuie sur
le bouton "déboguer" et Excel va mettre en couleur la ligne qui est
problématique. Donne-nous ici la ligne de code qui ne sied pas bien à Excel
2003.
MichD
Jacquouille
Le #26471987
Re
C'est dans la boucle Do,
nb = Application.RandBetween(A, B)
Je lui ai mis un "on error resume next", mais il tourne en boucle et ne veut
plus s'arrêter.
Voilà tout ce que je peux te dire.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Michd" a écrit dans le message de groupe de discussion :
paklch$7v5$
Bonjour Jacquouille,
Laisse-toi guider par Excel, lorsque tu as le message d'erreur, appuie sur
le bouton "déboguer" et Excel va mettre en couleur la ligne qui est
problématique. Donne-nous ici la ligne de code qui ne sied pas bien à Excel
2003.
MichD
Jacquouille
Le #26471986
et vu que, à mon avis, il n'y a aucune raison que ce soit cela, ne serait-ce
pas la ligne suivante, dans laquelle tu parles de dictionnaire ?
If Not Dic.Exists(nb) Then


???
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Jacquouille" a écrit dans le message de groupe de discussion :
pal47h$12uq$
Re
C'est dans la boucle Do,
nb = Application.RandBetween(A, B)
Je lui ai mis un "on error resume next", mais il tourne en boucle et ne veut
plus s'arrêter.
Voilà tout ce que je peux te dire.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Michd" a écrit dans le message de groupe de discussion :
paklch$7v5$
Bonjour Jacquouille,
Laisse-toi guider par Excel, lorsque tu as le message d'erreur, appuie sur
le bouton "déboguer" et Excel va mettre en couleur la ligne qui est
problématique. Donne-nous ici la ligne de code qui ne sied pas bien à Excel
2003.
MichD
Michd
Le #26471989
| nb = Application.RandBetween(A, B)
Depuis Excel 2007, on n'est plus obligé de charger les macros
complémentaires "outils d'analyse" et "Outils d'analyse VBA". 39 de ces
fonctions sont devenues des fonctions intégrées à Excel. Sauf, qu'en Excel
2003, ce n'est pas le cas.
Par conséquent, coche ces 2 macros complémentaires (elles sont peut-être
écrites en anglais ("Analysis Toolpak" et "Analysis Toolpak - VBA") par le
menu de l'interface de la feuille de calcul.
Dans la fenêtre VBA, barre des menus / outils / références / coche cette
référence : atpvbaen.xls
Maintenant, tu peux tester la macro!
MichD
Jacquouille
Le #26471995
Bonjour Denis
C'est avec un profil bien bas et très humble que ....
-j'ai bien trouvé atpvbaen.xls et l'ai cochée.
- par contre, je ne trouve pas l'outils d'analyse et outils d'analyse vba.
en anglais non plus....
- dans la feuille de calcul, menu, outils, macro complémentaires, je n'ai
que 8 macros à cocher (qui le sont toutes), à savoir :
- assistant recherche
assistant somme condi
- morefunc
- outils pour l'euro
- utilitaire d'analyse
- utilitaire d'analyse VBA
- VBA pour Assistant Internet.
Voilà tout mon désarroi étalé ici. -))
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Michd" a écrit dans le message de groupe de discussion :
pal5an$150h$
| nb = Application.RandBetween(A, B)
Depuis Excel 2007, on n'est plus obligé de charger les macros
complémentaires "outils d'analyse" et "Outils d'analyse VBA". 39 de ces
fonctions sont devenues des fonctions intégrées à Excel. Sauf, qu'en Excel
2003, ce n'est pas le cas.
Par conséquent, coche ces 2 macros complémentaires (elles sont peut-être
écrites en anglais ("Analysis Toolpak" et "Analysis Toolpak - VBA") par le
menu de l'interface de la feuille de calcul.
Dans la fenêtre VBA, barre des menus / outils / références / coche cette
référence : atpvbaen.xls
Maintenant, tu peux tester la macro!
MichD
Michd
Le #26472002
Je faisais référence à ceux-ci :
- utilitaire d'analyse
- utilitaire d'analyse VBA
MichD
L-A
Le #26472004
Bonjour à tous
Merci beaucoup pour ce coup de génie encore une fois
je vais revenir avec une autre requête dans peu de temps, un truc trop compliqué pour moi.
bref au boulot ca marchait super bien en revanche sur mon mac à la mai son j'ai un message d'erreur uniquement sur le premier bouton
Les informations de licence de ce composant sont introuvables. Vous n'avez pas la licence adéquate pour utiliser cette fonctionnalité dans l 'environnement de création.
pour le raz tableau tout fonctionne
bizarre non?

Le mercredi 11 avril 2018 16:58:46 UTC+2, Jacquouille a écrit :
Bonjour Denis
C'est avec un profil bien bas et très humble que ....
-j'ai bien trouvé atpvbaen.xls et l'ai cochée.
- par contre, je ne trouve pas l'outils d'analyse et outils d'analyse vba .
en anglais non plus....
- dans la feuille de calcul, menu, outils, macro complémentaires, je n'ai
que 8 macros à cocher (qui le sont toutes), à savoir :
- assistant recherche
assistant somme condi
- morefunc
- outils pour l'euro
- utilitaire d'analyse
- utilitaire d'analyse VBA
- VBA pour Assistant Internet.
Voilà tout mon désarroi étalé ici. -))
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Michd" a écrit dans le message de groupe de discussion :
pal5an$150h$
| nb = Application.RandBetween(A, B)
Depuis Excel 2007, on n'est plus obligé de charger les macros
complémentaires "outils d'analyse" et "Outils d'analyse VBA". 39 de ces
fonctions sont devenues des fonctions intégrées à Excel. S auf, qu'en Excel
2003, ce n'est pas le cas.
Par conséquent, coche ces 2 macros complémentaires (elles sont peut-être
écrites en anglais ("Analysis Toolpak" et "Analysis Toolpak - VBA") par le
menu de l'interface de la feuille de calcul.
Dans la fenêtre VBA, barre des menus / outils / références / coche cette
référence : atpvbaen.xls
Maintenant, tu peux tester la macro!
MichD
Publicité
Poster une réponse
Anonyme