répartition sous VBA

[judu]

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

 

[judu]

oui oui j'ai testé et non je ne comprends pas tout... j'essaye mais c'est loin d'être mon domaine :/
mais bases s’arrêtent bien avant d'en arriver la...

 

[youky(BJ)]

Re-bonjour à tous
Pour Judu remplace le 10 par 12 car 10 est col J et il faut mettre en L donc 12

lig = lig + 1: Feuil2.Cells(lig, 12) = Feuil4.Cells(num, col): i = 0: Exit Do
End If

Bruno

 

[judu]

youhou ça marche merci a vous deux, votre aide a été précieuse,
mon nombre de personne formées/au nombre a tirer est un problème mais il ne dépend pas de votre aide

@job75, en effet ta solution fonctionne mais ne me permet pas (ou j'ai mal compris) une évolution aisée du fichier..

 

[job75]

Re,

@job75, en effet ta solution fonctionne mais ne me permet pas (ou j'ai mal compris) une évolution aisée du fichier..

Pourtant en 1ère feuille j'ai mis un tableau Excel, il n'y a plus à s'occuper des formules, elles se mettent en place toutes seules quand on ajoute de nouveaux noms !!!

A+

 

[judu]

au temps pour moi
je vais me pencher dessus de nouveau comme ça je prendrais le plus simple
merci en tous cas, vous avez tous deux été super

 

[judu]

bonjour

j'ai reussi a adapter vos réponses a mon cas

j'aimerais ajouter une option.

en effet je voudrais que la macro soit capable de prendre en compte les équipes,
je m'explique
admettons que l'ouvrier 1 et 2 soit en équipe1
ouvrier 3 et 4 en équipe2
et ainsi de suite
j'aimerais mettre un userform pour que la macro prenne des noms dans les ressouces de la (ou des) équipes présentent

suis je clair ou un exemple serait plus parlant?

cdlt

 

[youky(BJ)]

Bonjour Judu,
Je crois qu'il faut plus d'explications.
Plus d'explications il y aura, mieux seront ciblées nos réponses
Pour l'instant je plane....
Bruno

 

[judu]

bonjour

voici un exemple de mon fichier sources en PJ

l'idée est toujours de sélectionner des noms aléatoirement mais je voudrais faire un popup du style

il suffirait alors de sélectionner quelles sont les équipes présentes dans la journée pour s'assurer de ne pas choisir des personnes d'une équipe ne travaillant pas

une fois cela fait, en cliquant sur process, la macro se lance et "filtre" sur les équipes en poste, avant de répartir aléatoirement les noms sur les postes

je ne suis pas sûr d'être claire, n'hésitez pas à me le dire

cdlt

 

[job75]

Bonjour judu, Bruno,

De nouveau pas besoin de VBA ni d'UserForm.

Dans ce fichier (3) j'ai quand même mis le même bouton (et sa macro) que dans les fichiers (1) et (2) mais en général il n'est pas indispensable, la touche F9 suffit.

Bien sûr la sélection des équipes doit faire en sorte qu'il y ait assez d'ouvriers disponibles dans les postes A B C D pour satisfaire les besoins.

A+

 

[job75]

Re,

J'ai placé les 8 cases à cocher sur leurs cellules liées G2 G6 G10 G14 G18 G22 G26 G29.

Mais rien n'empêche de les grouper en haut de la colonne G, sans bien sûr modifier les cellules liées.

A+

 

[job75]

Re,

Compléments VBA toujours pas indispensables.

Pour que le clic sur les cases à cocher recalcule les formules, leur affecter cette macro :

Sub MAJ()
Calculate
End Sub

Edit : de même dans le code de la feuille besoins_par_poste :

Private Sub Worksheet_Change(ByVal Target As Range)
MAJ
End Sub

Fichier (3 bis).

A+

 

[youky(BJ)]

Salut Judu,
Voici de retour ton fichier
J'ai fait à ma façon.
L'onglet TEMPO était l'ancienne feuille Ressource, je re-écris dessus
Une fois fait j'exécute la macro "poste" et il est possible de retrier par le bouton
Click sur le bouton CHOIX EQUIPE
Reviens si besoin
Bruno
Edit bonsoir Job j'ai pas fait F5

 

[judu]

parfait merci

je vais tester ça dés demain

encore merci

edit, job, ton fichier ne s'est pas bien téléversé et n'est pas utilisable :/

 

[job75]

edit, job, ton fichier ne s'est pas bien téléversé et n'est pas utilisable :/

J'ai retéléversé mes fichiers (3) et (3 bis) mais je pense que vous aviez fait une mauvaise manip.

 

[job75]

Bonjour judu, Bruno, le forum,

Avec mes fichiers (3) et (3 bis) il ne fallait surtout pas trier le tableau de la 1ère feuille.

Avec ce fichier (4) plus de problème car les valeurs des cellules liées ne peuvent pas se déplacer.

J'ai d'ailleurs organisé le tableau en tableau Excel.

L'intérêt c'est que les formules des colonnes G H I J (masquées) se créent automatiquement si l'on ajoute ou insère de nouveaux ouvriers.

Bonne journée.