répartition sous VBA

J

judu

XLDnaute Nouveau
bonjour

j'aimerais mettre en place un fichier pour mon boulot

j'arrive à générer des listes d'ouvriers et à calculer mes besoins mais j'aimerais répartir les gens aléatoirement sur les postes, tout en gardant en vue le critère "formation" et évidement sans doublon dans le choix de noms... (difficile de séparer un ouvrier en 2, rare sont ceux qui acceptent...)

je met en PJ un fichier pour illustrer ce que j’essaie de faire:

feuille 1, nous avons les postes possibles et les gens formés pour chaque poste
feuille 2, le nombre d'ouvriers nécessaires sur chacun des postes
enfin sur la feuille 3, la répartition aléatoire de personnes sur les postes

j'aimerais de l'aide pour une macro qui choisi dans la feuille 1, le nombre de personnes indiqués pour chaque poste dans la feuille 2 et créée la liste de la feuille 3, toujours sans doublons évidemment...

pensez vous pouvoir m'aider?

merci d'avance
 

Pièces jointes

  • demo.xlsx
    10.2 KB · Affichages: 20
Trier par date Trier par votes
J

judu

XLDnaute Nouveau
hello,

je suis en train d'essayer vos solutions, j'ai un souci avec celle de youky,

lorsque je l'adapte a mon fichier, plus rien ne marche
la première fois j'obtenais une liste mais toutes équipes confondues je pense avoir corrigé le PB
mais maintenant dès le lancement de la macro j'ai un message d'erreur...
upload_2018-1-20_15-14-48.png


et le débogueur s'arréte sur une ligne ou je ne vois pas d'erreur:
upload_2018-1-20_15-15-53.png


une idée?
 
Vote positif 0 Vote négatif
youky(BJ)

youky(BJ)

XLDnaute Barbatruc
Hello,
J'ai ajouté du code en Userform1 (ici en gras)

Private Sub UserForm_Initialize()
With Feuil4
Set dico = CreateObject("Scripting.Dictionary")
a = .Range("A2:A" & .[A65000].End(xlUp).Row)
For i = LBound(a) To UBound(a)
dico(a(i, 1)) = ""
Next i
ListBox1.List = Application.Transpose(dico.keys)
On Error Resume Next
For k = 0 To ListBox1.ListCount - 1
ListBox1.Selected(k) = Feuil3.ListBox1.Selected(k)
Next
End With
End Sub

EDIT: il est préférable de remplacer on error par
'On Error Resume Next
If Feuil3.ListBox1.ListCount = 0 Then Exit Sub

Bruno
 
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

B
  • Question
Microsoft 365 Répartition dans tableau de postes
Réponses
4
Affichages
460
sylvanu
sylvanu
B
  • Question
Microsoft 365 répartition de ligne
Réponses
2
Affichages
115
Boultigris
B
L
  • Résolu(e)
Microsoft 365 VBA - Répartition tâches aléatoirement
Réponses
3
Affichages
89
sylvanu
sylvanu
M
  • Question
XL 2019 Répartition de données qui n'aboutit pas sur la somme initiale
Réponses
6
Affichages
313
MCO2406
M
N
  • Résolu(e)
XL 2021 Moyenne par code et par mois
Réponses
5
Affichages
275
NLSCt
N
E
  • Question
XL 2019 Graphique sur Excel
Réponses
6
Affichages
267
Erick79
E
S
  • Question
Microsoft 365 Recherche date en fonction de deux variables
Réponses
6
Affichages
392
Gégé-45550
Gégé-45550
Y
  • Question
XL 2013 Ecart de répartition
Réponses
10
Affichages
250
Yvan1
Y
Z
  • Question
Microsoft 365 Chemin pour atteindre le stockage cloud lors d'une génération de fichier Excel
Réponses
2
Affichages
259
zedude
Z
L
  • Question
Microsoft 365 formule décaler avec pourcentage selon les mois
Réponses
5
Affichages
251
l.et.lilou
L

Membres actuellement en ligne

8 membres et 73 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 206
Messages
2 086 201
Membres
103 156
dernier inscrit
Ludo94130