XL 2016 Besoin d'aide SVP!!!

[BIGGBENN0]

Bonjour,

Je suis à la recherche d'aide par rapport à un fichier que je voudrais élaborer pour optimiser mon temps de travail.

Je voudrais que les shifts dans la feuille soient converties en cellule pleine comma dans le fichier dont je vais vous joindre dans ma demande d'aide.

Encore plus, je cherche une aide par rapport aux éléments en surbrillance jaune je vous serais reconnaissant.

Cordialement,
Abdeslam

 

[shinozak]

Salut,
Voici un petit code pour les éléments en surbrillance, par contre je n'ai pas compris ta première demande

Sub Jaune()
For k = 2 To 81
    If Application.WorksheetFunction.Sum(Range(Cells(k, 15), Cells(k, 30))) = 0 Then
    Range(Cells(k, 6), Cells(k, 9)).Interior.ColorIndex = 6
    End If
Next k
End Sub

 

[M12]

Bonjour à tous
Pour la 1ere demande

 

[BIGGBENN0]

Salut,
Voici un petit code pour les éléments en surbrillance, par contre je n'ai pas compris ta première demande

Sub Jaune()
For k = 2 To 81
    If Application.WorksheetFunction.Sum(Range(Cells(k, 15), Cells(k, 30))) = 0 Then
    Range(Cells(k, 6), Cells(k, 9)).Interior.ColorIndex = 6
    End If
Next k
End Sub

--------------------------------------
Bonjour shinozak,

merci pour tes lumières

Ce que je voudrais avoir c'est convertir les colonnes (début & fin) comme des valeurs comme dans les début de 08:00 10:00 12:00.
Petit bémole, la personne qui commence à 12:00 et qui finit à 18:00 (qui est en mi-temps) et les personnes dont le début de leur shift et 22:00, je ne peux pas faire la mise en forme conditionnel pour remplir les champs avec la valeur 1.

PS: je suis NUL en VBA!!!

 

[BIGGBENN0]

Bonjour Les Amis,

Peut être que je me suis mal exprimé, mais je voudrais reproduire la même chose pour le cas Exemple 1 pour les Cas N°1&2.

merci par avance

 

[JHA]

Bonjour à tous,

Un essai concernant la plage horaire du tableau.

=SI($F2>21;0;SI(OU(O$1<$J2;O$1>$K2);0;1)+SI(OU(O$1<=$L2;O$1>$M2);0;1))

JHA