Planning conges

[eduraiss]

Bonjour le forum

J'ai un fichier excel qui me permet de gerer les "conges, rtt, maladie ect" du personnel

J'aimerais si possible avoir la visu des personnes a compétences égales sont en absence le même jour,

Je joins un fichier cela sera plus clair

Merci
Cordialement

 

[job75]

Re : Planning conges

Re,

4) (...) apparemment il suffit que A4 reste vide.

Le reste de la colonne A, à partir de A6, doit pouvoir être utilisé sans gêner le filtre.

A+

 

[eduraiss]

Re : Planning conges

Re,

je pense que la c'est tout bon

Un super merci

Cordialement

 

[job75]

Re : Planning conges

Re,

On peut aussi remplacer A4:A5 par A1:A2 :

[A2].FormulaR1C1 = "=OR(R[3]C16<>" & c & ",ISBLANK(R[3]C" & Target.Column & "))"
plage.AdvancedFilter xlFilterInPlace, [A1:A2]

les [3] pour passer de la ligne 2 à la ligne 5 (références relatives).

A+

 

[job75]

Re : Planning conges

Bonjour eduraiss, le forum,

Retour d'un long WE je reviens sur ce fil.

Le double-clic c'est bien, mais il peut-être utile de savoir avant s'il est intéressant de le faire.

Alors cette macro colore la cellule et ajoute un message de validation :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c, ad1$, ad2$
On Error Resume Next
[Cellule].Interior.ColorIndex = xlNone
[Cellule].Validation.Delete
c = Cells(ActiveCell.Row, "P") 'compétence
If ActiveCell.Row < 5 Or ActiveCell.Column < 22 Or c = "" Then Exit Sub
ad1 = Range("P5:P" & [B65536].End(xlUp).Row).Address
ad2 = Cells(5, ActiveCell.Column).Resize(Range(ad1).Count).Address
[A2].Formula = "=SUMPRODUCT((" & ad1 & "=" & c & ")*NOT(ISBLANK(" & ad2 & ")))"
If CInt([A2]) + (ActiveCell <> "") > 0 Then
  ActiveCell.Interior.ColorIndex = 40
  With ActiveCell.Validation
    .Add xlValidateInputOnly
    .InputMessage = "Double-clic"
  End With
  Me.Names.Add "Cellule", ActiveCell
End If
End Sub

Version (13).

Nota : j'utilise A1:A2 (post #33) pour la zone de critère dans l'autre macro.

A+