Discussion :

[arn.oo]

Bonjour à tous,

pour gérer le planning d'agents j'ai un calendrier tout simple sous excel.
Les colonnes sont :
nom de l'agent / 1er janvier / 2 janvier / 3 janvier ....
les valeurs dans les cases varient selon plusieurs valeurs. Celles qui m'intéressent sont celle qui sont codifiées "C" et "RTT".
J'aimerai faire un état individuels pour chaque agent sous la forme d'une liste de ses jours de congés et RTT.
J'espère avoir été clair et je vous remercie par avance de vos réponses.


Ci-joint le fichier exemple

[Daniel.C]

Bonsooir,

Avec "congés" en F13, "RTT" en G13 et les valeurs en dessous, mets la macro suivante dans le module de la feuille :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$E$13" Then Exit Sub
    Dim C As Range
    Application.EnableEvents = False
    [F:G].NumberFormat = "dd/mm/yyyy"
    [F14:G1000].Clear
    ligne = Application.Match(Target, Columns(1), 0)
    For Each C In Range(Cells(ligne, 2), Cells(ligne, 255))
        Select Case C.Value
             Case "C"
                Cells(Rows.Count, 6).End(xlUp).Offset(1).Value = Cells(1, C.Column)
                Cells(Rows.Count, 6).End(xlUp).BorderAround Weight:=xlThin, Color:=0
             Case "RTT"
                Cells(Rows.Count, 7).End(xlUp).Offset(1).Value = Cells(1, C.Column)
                Cells(Rows.Count, 7).End(xlUp).BorderAround Weight:=xlThin, Color:=0
        End Select
    Next C
    Application.EnableEvents = True
End Sub

[arn.oo]

Bonjour,

merci pour votre aide mais je ne sais absolument pas comment faire pour intégrer ce genre de macro dans mon fichier. Pourriez vous m'expliquer.

merci beaucoup

[Daniel.C]

Regarde le classeur joint.

[arn.oo]

Merci c'est génial c'est exactement ce que je voulais !