Remplissage rouge si ne remplit 2 condition
Bonjour,
Je veux que ma date de livraison (E) devienne rouge
SI
(K) Status n'est pas prêt à expédier à (E) - 1 jour. Donc la veille.
Si le status est autre que prêt à expédier la veille je veux (E) rouge.
en comptant les jours ouvrables. Je n'y arrive pas.
Merci d'avance :-)
Voilà ce qu'il y a pour l'instant...J'aimerais l'ajouté ici
*
Private Sub WorkSheet_Change(ByVal Target As Range) 'code pour la couleur spéciaux
If Target.Column = 11 Then
Cells(Target.Row, 10) = Now
End If
Dim Cel As Range
For Each Cel In Target
If Not Intersect(Cel, Range("k42:k39000")) Is Nothing Then
Select Case Cel.Value
Case "PLANIFIÉ": Cel.Interior.ColorIndex = 8
Case "RECU DESSIN": Cel.Interior.ColorIndex = 23
Case "1/2 BETON FAIT": Cel.Interior.ColorIndex = 4
Case "2/2 BETON FAIT": Cel.Interior.ColorIndex = 10
Case "100% PEINTURE ": Cel.Interior.ColorIndex = 46
Case "fermet. ou non-appr": Cel.Interior.ColorIndex = 6
Case "PRET A EXPEDIER": Cel.Interior.ColorIndex = 48
Case "100% NETTOYÉ": Cel.Interior.ColorIndex = 19
Case "HOLD OU REVISION": Cel.Interior.ColorIndex = 3
Case "PEINTURE 1 DE 2": Cel.Interior.ColorIndex = 44
Case "PEINTURE 2 DE 2": Cel.Interior.ColorIndex = 45
Case "PEINTURE 3 DE 3": Cel.Interior.ColorIndex = 46
Case Else: Cel.Interior.ColorIndex = 2
End Select
End If
Next Cel
End Sub
Bonjour,
Vous pouvez utiliser la formule ci-après pour retrouver le jour travaillé avant la date donnée (en A1), en supposant votre weekend : Samedi+Dimanche. Après pour les congés il faut les indiquer en 3e argument. Cf. SERIE.JOUR.OUVRE (SERIE.JOUR.OUVRE, fonction) - Support Microsoft
=SERIE.JOUR.OUVRE(A1;-1)
Vous mettez cela dans un format conditionnel et vous êtes bon, pas besoin de VBA.
Par exemple
=ET(SERIE.JOUR.OUVRE(AUJOURDHUI();-1)=E1; K1<>"PRET A EXPEDIER")