MACRO - JOURS OUVRÉS PRISE EN COMPTE: SI DATE > J et < J+10 ou ... alors
Bonjour cher forum
Je bloque sur un sujet lié aux jours ouvrés.
Nous sommes aujourd'hui le 23 août et j'ai un tableau de date qui est le suivant :
J'aimerais exercer des conditions selon l'écart entre la date de la colonne et la date du jour MAIS en prenant en compte les jours ouvrés (samedi dimanche).
Mes règles sont les suivantes :
- Si date comprise entre J et J+3 alors STATUT = "URGENT"
- Si date comprise entre J+4 et J+10 alors statut = " " (rien du tout)
- Si date >J+10 alors STATUT = "IN PROGRESS"
Mais toujours par rapport aux jours ouvrés, ce qui me bloque actuellement.
Afin d'aider j'ai mis un tableau du résultat souhaité et qui en plus indique où nous nous situons par rapport aux jours ouvrés :
J'ai bien essayé d'intégrer une fonction WeekDay mais celle-ci m'indique juste le numéro de la semaine et je ne vois pas comment l'adapter à ma problématique.
Un grand merci pour toute aide à ce sujet !!!
Cdt
Bonjour à toutes et tous, Temprano,
A tester si j'ai bien compris:
Cliquer sur le bouton "Statut"
Cordialement.
Bonjour mdo100, un grand merci pour ton retour ça fonctionne !!
Le code de mdo est :
Sub Statut()
With Range("C2:C" & Range("B" & Rows.Count).End(xlUp).Row)
.FormulaR1C1 = _
"=IF(AND(NETWORKDAYS(TODAY(),RC[-1])>=1,NETWORKDAYS(TODAY(),RC[-1])<=3),""URGENT"",IF(AND(NETWORKDAYS(TODAY(),RC[-1])>3,NETWORKDAYS(TODAY(),RC[-1])<=10),"""",IF(NETWORKDAYS(TODAY(),RC[-1])>10,""IN PROGRESS"","""")))"
.Value = .Value
End With
End SubN'existe-t-il pas la possibilité d'utiliser une WorksheetFunction ?
Encore merci mdo