XL 2016 Besoin d'aide SVP!!!

shinozak

XLDnaute Occasionnel

• 30 Décembre 2019

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 30 Décembre 2019

• #3

Bonjour à tous
Pour la 1ere demande

 

Pièces jointes

• Exercise.xlsx

  67.2 KB · Affichages: 10

Vote positif 0 Vote négatif

BIGGBENN0

XLDnaute Nouveau

• 30 Décembre 2019

• #4

shinozak à dit:

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

VB:

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

Cliquez pour agrandir...

--------------------------------------
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!!!

 

Dernière édition: 30 Décembre 2019

Vote positif 0 Vote négatif

BIGGBENN0

XLDnaute Nouveau

• 31 Décembre 2019

• #5

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

 

Pièces jointes

• Exercise.xlsx

  69.8 KB · Affichages: 5

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 1 Janvier 2020

• #6

Bonjour à tous,

Un essai concernant la plage horaire du tableau.

VB:

=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

 

Pièces jointes

• Exercise (1).xlsx

  64.3 KB · Affichages: 6

Vote positif 0 Vote négatif