Réalisation de macro

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/01/2024, 18h17
Blacklight37

Réalisation de macro

Bonjour,
Je souhaite créer une macro afin d attribuer automatiquement des références de poste (colonne B de ma feuille 2) pour chaque personne en fonction du code (indiquer en colonne C sur feuille 1 / colonne A sur feuille 2).
Particularité:
- j ai 18 codes différents
- chaque code comporte des références unique.

Pouvez m aider s’il vous plaît ?

Nota: je débute sur macro
10/01/2024, 08h55
Franc

Bonjour, un petit classeur exemple à montrer ?
10/01/2024, 09h17
Blacklight37

1 pièce(s) jointe(s)

Bonjour,

merci pour votre retour.
voici en pJ le fichier.

en vous remerciant par avance.
Bonne journée
10/01/2024, 10h56
Franc

Le point commun entre tes 2 feuilles est le n° par entreprise qui doit servir à attribuer la référence poste vacant. Le problème c'est que pour 1 n° de référence, tu as plusieurs références poste vacant. Si je prends par exemple le numéro 01.456, en colonne B tu as 12 références différentes. Comment choisir la bonne référence ?
10/01/2024, 11h39
Blacklight37

Macro

Merci de votre retour. Les numéros peuvent être attribuer au hazard du moment où les numéros entreprises correspondent.

Je ne comprends pas l'intérêt d'attribuer de références au hasard pour un même numéro ???
Quoi qu'il en soit, voici une macro qui fait ce que tu demandes, à condition de supprimer la formule alea.entre.bornes de la colonne B de ta feuille "poste à attribuer".
J'ai donc fait un copier/coller des valeurs de la colonne pour tester la macro et ça fonctionne. Si on laisse la formule, les références produites sont aléatoires.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub AssignerPostes()
 
    Dim wsCandidats As Worksheet
    Dim wsPostes As Worksheet
    Dim rngCandidats As Range
    Dim rngPostes As Range
    Dim cell As Range
    Dim postes As Collection
    Dim poste As Range
    Dim randomIndex As Long
 
    ' Feuilles de travail
    Set wsCandidats = ThisWorkbook.Sheets("candidats")
    Set wsPostes = ThisWorkbook.Sheets("poste à attribuer")
 
    ' Plages de données
    Set rngCandidats = wsCandidats.Range("C2:C" & wsCandidats.Cells(wsCandidats.Rows.Count, "C").End(xlUp).Row)
    Set rngPostes = wsPostes.Range("A2:A" & wsPostes.Cells(wsPostes.Rows.Count, "A").End(xlUp).Row)
 
 
    ' Parcourir chaque candidat
    For Each cell In rngCandidats
        Set postes = New Collection
 
        ' Trouver les postes correspondants
        For Each poste In rngPostes
            If poste.Value = cell.Value Then
                postes.Add poste.Offset(0, 1).Value
            End If
        Next poste
 
        ' Attribuer un poste aléatoire
        If postes.Count > 0 Then
            randomIndex = Int((postes.Count * Rnd) + 1)
            cell.Offset(0, 1).Value = postes(randomIndex)
        End If
    Next cell
 
End Sub

13/01/2024, 08h21
Blacklight37

Macro

Bonjour,
Merci de votre retour.
Cependant, les références de poste vacant ne correspondent pas au numéro entreprise.
Quand je fais la macro, les références qui ressortent sont aléatoire et ne sont pas dans mon tableau…
13/01/2024, 13h47
Franc

J'ai testé et ça fonctionne à condition de supprimer les formules alea.entre.bornes de la colonne B, comme précisé dans mon message précédent.
05/02/2024, 15h53
Blacklight37

réalisation macro

bonjour,

je m'excuse de revenir vers vous mais je ne comprends pas quelle partie ( formule alea) de la macro supprimer.
j'ai supprimé la partie "attribuer un poste aléatoire" soit de "if postes" à "end if" et cela ne marche pas. j'ai un message d'erreur de compilation.

je suis débutante en macro.

merci d'avance.

bonne journée
05/02/2024, 16h58
Franc

1 pièce(s) jointe(s)

Bonjour, il ne faut rien modifier à la macro, sinon elle ne fait plus le job attendu. Le problème c'est que la colonne B de ta feuille "poste à attribuer" contient la formule ALEA.ENTRE.BORNES qui pose problème à l'exécution de la macro. En supprimant cette formule, la macro fonctionne comme désiré.

Teste ce classeur:

Pièce jointe 650283
05/02/2024, 17h43
Pierre Fauconnier

Quel est le besoin? Sans Excel et sans macro?

Juste l'input à disposition, et l'output souhaité. Pas certain qu'il faille une macro pour cela, mais avec si peu d'explications, il est malaisé de répondre.
06/02/2024, 15h18
Blacklight37

réalisation macro

bonjour,
@Franc, merci de votre retour. mon objectif est d'automatisé l'intégralité de mon tableau. en écrasant la formule cela rajoute des étapes ( c'est un risque d'erreur pour les personnes qui reprendrons mon tableau).
Puis-je effectuer l’attribution des postes via une formule et non un macro?
merci d'avance

Bonjour, je ne suis pas un grand expert des formules. Par contre je peux te fournir une macro vba qui peut remplir ta colonne B du même type de nombres aléatoires que dans la formule ALEA.ENTRE.BORNES.
Tu peux donc exécuter cette macro en premier puis celle que je t'ai fournie précédemment.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub NombresAleatoires() Dim ws As Worksheet Dim rng As Range Dim lastRow As Long ' Définir la feuille de calcul Set ws = ThisWorkbook.Sheets("poste à attribuer") ' Trouver la dernière ligne occupée en colonne A lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Définir la plage à remplir Set rng = ws.Range("B2:B" & lastRow) ' Remplir la plage avec des nombres aléatoires rng.Formula = "=INT((99999999 - 10000000 + 1) * RAND() + 10000000)" rng.Value = rng.Value End Sub

06/02/2024, 19h26
Pierre Fauconnier

Tant qu'à mettre 99999999 - 10000000 + 1 en dur dans le code, autant mettre 90000000, non?

Pour coller à Excel, on pourrait utiliser application.RANDBETWEEN(bornebasse, bornehaute)
08/02/2024, 15h16
Blacklight37

réalisation macro

Bonjour,

Merci de votre retour et de votre aide. Je pense que je me suis mal exprimer. Les postes que j'attribue ne sont pas aléatoires.
Le fichier que je vous ai joint est un exemple, voici pourquoi on retrouve la formule ALÉA.BORNE.
Dans mon fichier de travail, les postes ne sont absolument pas aléatoires.

bonne journée.

1 pièce(s) jointe(s)

Bonjour,

donc si je comprends bien, je vais dans "poste à attribuer" chercher un poste libre dans la même société que la première personne, puis je le marque comme attribué, je passe à la personne suivante et ainsi de suite ?

Par formule :

Pièce jointe 650508
Code:

1 2 3 4 5 6 =SIERREUR( LET( Rang;NB.SI($C$1:C2;C2); postes;FILTRE('poste à attribuer'!$B$2:$B$362;'poste à attribuer'!$A$2:$A$362=C2); INDEX(postes;Rang) );"Affectation impossible")
Dans Rang on calcule le rang de la personne dans la société, dans postes on filtre les postes de la société, reste à récupérer le poste à la ligne Rang. S'il y a erreur, c'est qu'il y a plus de personnes que de postes, pour cette société.

08/02/2024, 16h42
Blacklight37

réalisation macro

bonjour,

merci de votre aide. j'ai testé la formule et la macro mais les deux ne fonctionnent pas à cause de "LET", que veut dire LET? puis-je le remplacer par une autre fonction?
08/02/2024, 16h56
Tête de chat

Re,

le LET est une fonction Excel qui permet de définir des variables intermédiaires (ici rang et postes). Tu dois avoir une vieille version d'Excel (en tout cas pas 365) ?
Sinon pour ce qu'il y a à faire j'ai bien compris ou bien ?
08/02/2024, 17h06
jurassic pork

Hello,

Citation:

Envoyé par Tête de chat

le LET est une fonction Excel qui permet de définir des variables intermédiaires (ici rang et postes). Tu dois avoir une vieille version d'Excel (en tout cas pas 365) ?

Ben flute alors moi avec mon Excel 2019, j'ai une vieille version :

Citation:

La fonction LET, introduite dans les versions d'Excel 2021 et Microsoft 365, permet décomposer des formules de calcul complexes en autant de calculs intermédiaires que nécessaires ; ceci pour les rendre plus lisibles et en faciliter la maintenance

Ami calmant, J.P
08/02/2024, 19h24
Pierre Fauconnier
Si pas de LET, il faut remplacer les variables utilisées par LET par leurs formules. Ici, LET servait simplement à "clarifier" la formule (pas convaincu, mais soit, et ce n'est pas une attaque perso, Tête de Chat, c'est juste que si les variables ne sont utilisées qu'une seule fois, LET ne sert pas à grand chose, selon moi)
Code:

1 2 3 =SIERREUR( INDEX(FILTRE('poste à attribuer'!$B$2:$B$362;'poste à attribuer'!$A$2:$A$362=C2);NB.SI($C$1:C2;C2)) ;"Affectation impossible")
(Pas testé)

NB: Il est plus que temps de se mettre aux tables de données pour ce genre de cas => mon tuto https://fauconnier.developpez.com/tu...ux-structures/

Voir 40 message(s) de cette discussion en une page