Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Taches à distribuer de facons aléatoires

Taches à distribuer de facons aléatoires

24 réponses
Avatar
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=C3=A9es (4 par personne) de fa=C3=
=A7on al=C3=A9atoire sans doublons

j'ai bien essay=C3=A9 avec al=C3=A9a, al=C3=A9a entre bornes mais malheureu=
sement des doublons apparaissent.

merci de votre aide

https://www.cjoint.com/c/HDktL5dL66F
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Michd
Bonjour,
Ton fichier : https://www.cjoint.com/c/HDlb6zjawhi
Une petite macro fait le boulot.
MichD
Avatar
Jacquouille
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
Avatar
Jacquouille
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
Avatar
Michd
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
Avatar
Jacquouille
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
Avatar
Jacquouille
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
Avatar
Michd
| 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
Avatar
Jacquouille
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
Avatar
Michd
Je faisais référence à ceux-ci :
- utilitaire d'analyse
- utilitaire d'analyse VBA
MichD
Avatar
L-A
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
1 2 3