Microsoft 365 Comparer des cellules de même couleur

[jip34]

Bonjour
Dans le fichier joint, je cherche à identifier les personnes qui ont posé un jour de congés à la même date
Lorsqu'un jour de congé est posé, il est coloré en vert
Le nom des onglets correspond au nom de la personne
Je voudrais avoir ce résultat dans une cinquième feuille (ou idéalement un popup) si et seulement si les 4 personnes ont toutes posé un congé à la même date
Il faudrait alors afficher le nom des 4 personnes dans une colonne ainsi que la date concernée
Merci d'avance

 

[job75]

Bonsoir jip34,

Pas évident de tester puisque le dénommé Peyo n'a posé aucun congé...

A+

 

[job75]

Il faudrait alors afficher le nom des 4 personnes dans une colonne ainsi que la date concernée

A priori il suffit de faire la liste des dates communes aux 4 feuilles.

 

[mapomme]

Bonsoir,

Selon moi, c'est une mauvaise idée que de se baser sur des couleurs dans Excel :

• Rien ne ressemble plus à du vert qu'un autre vert très proche. L'œil ne sait pas faire la différence alors comment les compter avec certitude ?
• Un changement de couleur ne déclenche aucun évènement qui peut être intercepté . Si une couleur est modifiée, pas moyen de le savoir et de recalculer le nombre de congé par jour
• les personnes daltoniennes sont exclus du système de par leur perception différente des couleurs
• il y a un risque que le planning se transforme en sapin de Noël
• et très certainement d'autres inconvénients encore

Il vaut mieux indiquer dans une case correspondant au jour d'absence un code d'absence (CAff, CMal, Form, Synd, CMat, ...) . Ces codes sont dénombrables facilement part des formules (et donc toujours à jour), Les personnes daltoniennes (à condition que les couleurs soient bien choisies) peuvent utiliser le planning. Il est plus facile de retenir que CAff est congé d'affaire, CMal congé maladie et Synd activité syndicale qu'une myriade de couleurs.

 

[job75]

Hello mapomme,

Pour éviter les erreurs de couleur on peut la faire appliquer par macro.

Par exemple cette macro dans ThisWorkbook qui envoie un message si le jour est déjà coloré dans une autre feuille :

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim coul&, lig&, col%, P As Range, w As Worksheet
coul = RGB(0, 176, 80) 'vert, modifiable
lig = Target.Row
col = 2 + 4 * Int((Target.Column - 1) / 4) '1ère colonne de la plage à colorer
If lig < 3 Or lig > 33 Or col > 48 Or Sh.Cells(lig, col).Interior.ColorIndex <> xlNone Then Exit Sub
Cancel = True
Set P = Sh.Cells(lig, col).Resize(, 3)
P.Interior.Color = coul
For Each w In Worksheets
    If w.Name <> Sh.Name And w.Cells(lig, col).Interior.Color = coul Then
        If MsgBox("Ce jour a déja été posé par " & w.Name & " voulez-vous annuler ?", vbYesNo) = vbYes Then P.Interior.ColorIndex = xlNone
        Exit For
    End If
Next w
End Sub

A+

 

[JHA]

Bonjour à tous,

Un début par formules et Power Query.
Pour signaler un "congé", j'ai mis un "C" dans les calendriers, on peut ensuite faire une MFC pour colorer en "vert".

JHA