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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 383 And Target.Column >= 3 And Target.Column <= 2 + Froot.Range("c1") Then
If optJour.Value = True Then
Target.Value = "J"
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde 'J' le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf optnuit.Value = True Then: Target.Value = "N"
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde 'N' le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf OptbCE.Value = True Then: Target.Value = "CE": Target.Interior.ColorIndex = 33
ElseIf OptbR.Value = True Then: Target.Value = "R": Target.Interior.ColorIndex = 33
ElseIf OptAm.Value = True Then: Target.Value = "AM": Target.Interior.ColorIndex = 6
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un arret maladie le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf OptAme.Value = True Then: Target.Value = "AME": Target.Interior.ColorIndex = 6
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un jour d'absence pour enfant malade le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf Optreu.Value = True Then
Target.Value = "Reu": Motifreu = InputBox("Quel est le motif de la reunion ?", "Reunion")
Target.Interior.ColorIndex = 15
Target.AddComment: Target.Comment.Visible = False
Target.Comment.Text Text:=Motifreu & Chr(10) & Feuil1.Range("a1").Value
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une reunion le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf OptShr.Value = True Then
Target.Value = "SHR"
Target.Interior.ColorIndex = 10
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une garde '" _
& Target.Value & "' le " & Cells(Target.Row, 2).Value & " pour " _
& Cells(1, Target.Column).Value: Mouchardajout
ElseIf optcent.Value = True Then
Target.Value = "GC": Target.Interior.ColorIndex = 7
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde centre le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf optnul.Value = True Then
Target.ClearComments
If Target.Value <> "" Then
If Cells(Target.Row, 1).Value = "dim" Or Cells(Target.Row, 1).Value = "sam" Then
Target.Interior.ColorIndex = 35
Else: Target.Interior.ColorIndex = 0
End If
Fmouchard.Range(Froot.Range("b6").Value).Value = "Suppression de la Garde '" _
& Target.Value & "' du " & Cells(Target.Row, 2).Value & " pour " _
& Cells(1, Target.Column).Value: Mouchardajout: Target.Value = ""
Target.ClearComments
Else
If Cells(Target.Row, 1).Value = "dim" Or Cells(Target.Row, 1).Value = "sam" Then
Target.Interior.ColorIndex = 35
Else: Target.Interior.ColorIndex = 0
End If
End If 'if target.value
ElseIf optc.Value = True Then: Target.Value = "C": Target.Interior.ColorIndex = 33
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un Jour de congé le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf Optbast.Value = True Then
If Target.Value = "" Then
Choixjn = Choixast("Astreinte"): Target.Value = Choixjn
ElseIf Target.Value = "J" Then: Target.Value = "JA"
ElseIf Target.Value = "N" Then: Target.Value = "AN"
ElseIf Target.Value = "SHR" Then: Target.Value = "SHA"
ElseIf Target.Value = "GC" Then: Target.Value = "GCA": Target.Interior.ColorIndex = 7
ElseIf Target.Value = "AJ" Or Target.Value = "AN" Or Target.Value = "GCA" Or _
Target.Value = "SHA" Or Target.Value = "Aj" Or Target.Value = "An" Then
'Errast = MsgBox("Attention une astreinte est deja mise ce jour", vbCritical, "Erreur")
Choixjn = Choixast("Astreinte"): Target.Value = Choixjn
End If
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une astreinte le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf OptbED.Value = True Then: Choixjn = ChoixED("Pro ou Volon ?")
If Choixjn = "P" Then
Target.Value = "ED"
Target.Interior.ColorIndex = 34
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un Entreinement Dpt 'Pro' le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf Choixjn = "V" Then: Target.Value = "ed"
Target.Interior.ColorIndex = 34
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'un Entreinement Dpt 'Vol' le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
End If
ElseIf OptbDix.Value = True Then: Target.Value = "J22"
Target.Interior.ColorIndex = 38
Fmouchard.Range(Froot.Range("b6").Value).Value = "Ajout d'une Garde 10/22 le " _
& Cells(Target.Row, 2).Value & " pour " & Cells(1, Target.Column).Value
Mouchardajout
ElseIf OptbNote.Value = True Then
Target.ClearComments: Target.AddComment: Target.Comment.Visible = False
Ajoucoment = InputBox("Entrez le texte", "Ajout d'une texte")
Target.Comment.Text Text:=Ajoucoment & Chr(10) & Feuil1.Range("A1").Value
Else
If Target.Value <> "" Then
Modifmanuel = Target.Value
End If
End If
Else: optvisu.Value = True
End If 'if target.row
End Sub |
Partager