Discussion :

[brice2b]

bonjour,
voici mon problème;
j'ai fais un planning qui prends en compte les vacances des différents opérateur, je souhaiterais afficher une lste déroulante qui me propose le personnel disponnible pour les remplacer lors de leurs absences ("abs")
petit descriptif du fichier

dans la l'onglet données il y a les dates des vacances du personnel (ce sont les vacances d'été, sur le planning il faut regarder entre le 15/06 et 15/09 environ) je ferais un filtre d'affichage plus tard.

ces un planning à 7 équipes en 3/8 sur 7 semaines ( le roulement se trouve aussi dans l'onglet données)

l'objectif est d'avoir une liste déroulante qui me propose le personnel disponible lors d'une absence dans une autre équipe ; càd une personne qui sur son roulement et sur un jour de repos ou un jour vert dit "j"

exemple: en B 52 "Fuster" est abs le 05 juillet (colonne GE ) en B53 je souhaiterais une liste déroulante du personnel disponible pour le remplacer .

"Fuster" étant en équipe 3, je vais chercher le personnel disponible dans les autres équipes, ce qui nous donne le personnel de l'équipe 1 si non ABS

l'équipe 2 le personnel ne peut pas car ils sont de matin le 6 juillet ...

l’équipe 4 ne peut pas non plus car ils sont de matin le même jour.

l'equipe 5 sont de repos donc OK sauf "BARBERY" car ABS (ligne 98)

l'equipe 6 ok car en repos

l'équipe 7 pas disponible car AM le même jour ...

j'éspére avoir été clair.

merci de votre aide

bonne journée !

[EricDgn]

Bonjour,

Ceci devrait le faire, pour autant que j'aie bien compris les règles.

Au niveau du code de la feuille "2022", un code qui gère le processus de "validation" pour autant que le curseur se trouve juste en-dessous d'une cellule contenant "ABS" (absent):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Dim oldTarget As Range
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 And Target.Row > 2 Then
        If Not oldTarget Is Nothing Then
            oldTarget.Validation.Delete
        End If
        If Target.Count = 1 And Target.Row > 2 Then
            If Target.Offset(-1, 0) = "ABS" Then
                Remplacement Target
                Set oldTarget = Target
            End If
        End If
    End If
End Sub

et dans un module, la préparation de la liste des agents pouvant effectuer un remplacement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Explicit
 
Sub Remplacement(r As Range)
    With r.Validation
        .Delete
        .Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=ListeDispo(r)
        .IgnoreBlank = True
        .InCellDropdown = True
    End With
End Sub
 
Private Function ListeDispo(r As Range) As String
    '--- suppose tableau parfaitement bien ordonné
    '--- équipes en lignes: 6 - 22 - 38 - 54 - 70 - 86 - 102
    Dim kR As Long, kC As Long, Eqp As Long, s As String, kREq As Long
    s = ""
    kR = r.Row
    kC = r.Column
    For Eqp = 1 To 7
        kREq = 6 + (Eqp - 1) * 16 + 1                                               '--- n° ligne Planning de l'équipe
        If Cells(kREq, kC) = "REPOS" Or Cells(kREq, kC) = "J" Then                  '--- libre ce jour
            If Cells(kREq, kC + 1) = "REPOS" Or Cells(kREq, kC + 1) = "J" Then      '--- libre le jour suivant
                '--- membres de cette équipe admis à effectuer un remplacement
                For kR = 1 To 11 Step 2
                    If Cells(kREq + kR, kC) <> "ABS" And Cells(kREq + kR, 1) <> 0 Then
                        s = s & "," & Cells(kREq + kR, 1)
                    End If
                Next kR
            End If
        End If
    Next Eqp
    If s = "" Then
        ListeDispo = ""
    Else
        ListeDispo = Mid(s, 2)
    End If
End Function

Cordialement.

[brice2b]

bonjour Eric désolé pour la réponse tardive je ne recevais pas les notification et je n'avais même pas vu la réponsePlanning-Été-2023-v-3.2-sans nom.xlsmPlanning-Été-2023-v-3.2-sans nom.xlsmmode d'emploi planning.docxmode d'emploi planning.docx je vous mets le fichier pour vous montrer où il en est aujourd'hui

voilà dans le fichier j'aimerais maintenant rajouter une équipe que l'on nommerai équipe X qui n'aurait pas le même planning, l'objectif est qu'ils puissent faire des remplacements

[brice2b]

bonjour Eric,
comment allez-vous ?
votre messagerie est pleine !
avez-vous pu jeté un coup d'œil au fichier ?
je suis un peu bloqué dans mon automatisation, je n'arrive pas à récupérer la liste des agents
j'ai travaillé aussi sur un userform pour ajouter ou supprimer des agents
j'ai toujours un problème avec la disponibilité sur les "J" càd, les agents sur "j" doivent être disponible pour remplacer quand ils sont de J même si ils ne respectent pas les 11 et 36h peut-être prévoir un message "attention supprimé "J" ...
bonne journée.
plantric-06-dse.1.xlsm