soustraire avec fonction workday_intl dans une macro

Bonjour,
Dans mon fichier de plannif,
j'ai une macro qui me permets de dupliquer une ligne et de changer la date (-1jrs sur la date dupliquée), de faire 1 division et une multiplication dans des colonnes.

Tout cela fonctionne très bien, cependant je souhaiterai que la date dupliquée prenne en compte les week-end et jours de fermeture de l'entreprise (feuille fermeture de mon fichier).

J'ai compris la fonction mais je n'arrive pas à l'appliquer dans cette macro (que je n'ai pas faite). Je suppose que ce doit être au niveau de cette ligne de commande
ActiveCell.FormulaR1C1 = "=R[1]C-1" 'modif du jours

En fouillant un peu, j'ai tenté d'intégrer cela, mais ça bloque sur Star date.

Code:

---

1 2 3 4 5 6 7 8

Dim StartDate As Date, Days As Long, Week As String, Holydays As Range   StartDate = R[1] Days = 2 Week = "0000001" Set Holydays = Range("Fermeture[Date]")   ActiveCell.FormulaR1C1 = "=CDate(Application.WorkDay_Intl(StartDate, Days, Week, Holydays))" 'modif du jour

---

Pouvez-vous m'aider à l'intégrer SVP ?

Voici la macro

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Test()   ' Boucle 07HA Debut   Range("A4").Select RechercheFamille = Cells.Find(what:="07HA", After:=ActiveCell, LookIn:=xlFormulas, lookat _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate nbOccurences = Application.CountIf(Range("B4:B3000"), "07HA")   While nbOccurences > O Selection.Offset(1, 0).Select ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.FillDown 'Range(LC + 1).Select Selection.Offset(-1, 0).Select ActiveCell.FormulaR1C1 = "=R[1]C-1" 'modif du jours ActiveCell.Offset(0, 2).Select ActiveCell.FormulaR1C1 = "=RC[4]/RC[5]" 'formule nombre de barre pour l'of Selection.NumberFormat = "0.000" Selection.Offset(0, 5).Select 'déplacement Colonne +5 histo Range("H264").Select ActiveCell.FormulaR1C1 = "=R[1]C*2" 'nbre de pc par barre x2 Selection.Offset(1, -6).Select 'Range("B265").Select ActiveCell.FormulaR1C1 = "3" Selection.Offset(1, 0).Select 'Range("B266").Select nbOccurences = nbOccurences - 1 Wend ' Fin Boucle 07HA End Sub

---

Je vous joins le fichier excel en question
Pièce jointe 664085

Merci d'avance pour votre aide

Hello,

pour moi ça n'est pas clair...
Quel est le but de la macro "qui me permets de dupliquer une ligne et de changer la date" ?
A quoi sert cette duplication et le fait d'enlever un jour ?

"je souhaiterai que la date dupliquée prenne en compte les week-end et jours de fermeture de l'entreprise"
Il faut faire quoi sur la date dupliquée avec les WE et jour de fermeture ?

N'essayez pas de raisonner en terme de macro mais de fonctionnalités dont vous avez besoin.

bonjour,

Merci de prendre le temps de lire mon sujet.

Le but de la partie de la macro qui duplique la ligne et modif la date, sert à la planification pour la chaine avec double traitement.

nous avons un ERP de M.... et nous essayons de trouver des astuces pour nous en sortir.

les pièce avec double traitement sont insérée dans la famille 07HA (qui correspond au 1er traitement), avec dans la fiche article le Nbre de pièce par barre du 2e traitement (03) (on en mets 2 fois moins sur la barre) et la date est celle de l'ARC final.

Par conséquent, le fait de dupliquer la ligne et de faire les calcul qui vont bien permettent de répartir la charge par chaine. par contre, la date doit être avant la date de la ligne dupliquée.
Actuellement, on enlève 1 jour, sauf que l'entreprise ne travaille pas le WE, ni les jours ferié et elle a des jours de fermeture. donc il faudrait en tenir compte.

j'espère avoir été claire.

cdt

Bonjour,

d'abord, le code

Code:

---

1 2 3

RechercheFamille = Cells.Find(what:="07HA", After:=ActiveCell, LookIn:=xlFormulas, lookat _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate

---

ne fonctionnera que si 07HA existe, sinon il plantera

ensuite, que signifie

Code:

---

StartDate = R[1]

---

Quel est le but ?

re,

si j'ai bien compris... vous voulez revenir un jour en arrière par rapport à la date de la colonne A mais si ça tombe un WE ou un jour de fermeture il faut remonter jusqu'au précédent jour ouvré

Si c'est bien ça voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

Sub Test() ' ' Macro1 Macro ' Trie sur Chaine ' Dim iRowL As Integer iRowL = Cells(Rows.Count, 1).End(xlUp).Row ' Range("A4:S" & iRowL).Select ' ActiveWorkbook.Worksheets("Test extract").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Test extract").Sort.SortFields.Add Key:=Range("B3:B376") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Test extract").Sort .SetRange Range("A4:S" & iRowL) .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Cells.Replace what:=",", Replacement:=".", lookat:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False   Dim nbOccurences As Integer Dim RechercheFamille As String ' Boucle 07HA Debut Range("A4").Select RechercheFamille = Cells.Find(what:="07HA", After:=ActiveCell, LookIn:=xlFormulas, lookat _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate nbOccurences = Application.CountIf(Range("B4:B3000"), "07HA")   While nbOccurences > O Selection.Offset(1, 0).Select ActiveCell.EntireRow.Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.FillDown 'Range(LC + 1).Select Selection.Offset(-1, 0).Select   ' ********************************************************************************* ' ActiveCell.FormulaR1C1 = "=R[1]C-1" 'modif du jours ActiveCell.FormulaR1C1 = "=WORKDAY.INTL(R[1]C-1,-1,1,Fermeture[Date])" ' *********************************************************************************   ActiveCell.Offset(0, 2).Select ActiveCell.FormulaR1C1 = "=RC[4]/RC[5]" 'formule nombre de barre pour l'of Selection.NumberFormat = "0.000" Selection.Offset(0, 5).Select 'déplacement Colonne +5 histo Range("H264").Select ActiveCell.FormulaR1C1 = "=R[1]C*2" 'nbre de pc par barre x2 Selection.Offset(1, -6).Select 'Range("B265").Select ActiveCell.FormulaR1C1 = "3" Selection.Offset(1, 0).Select 'Range("B266").Select nbOccurences = nbOccurences - 1 Wend ' Fin Boucle 07HA   End Sub

---

je n'ai rien changé d'autre que la formule "ActiveCell.FormulaR1C1 = "=R[1]C-1" 'modif du jours" pour la remplacer par ActiveCell.FormulaR1C1 = "=WORKDAY.INTL(R[1]C-1,-1,1,Fermeture[Date])" (et j'ai adapté le nom de la feuille à l'exemple) mais elle pourrait être largement remodelé, ne serait-ce que pour éviter les sélections

Merci beaucoup, je l'ai adapté à toute ma macro.

quand tu me parles de la remodeler ce serait pour l'alléger?

la macro entière reprend la boucle 07HA pour 07HS 07MA 07MS, dans une macro plannif et une macro ARC.

Les traitement que nous avons le moins ce sont 07MA et 07MS, c'est pour cela que je fais commencer la macro à partir de A4 car pour éviter un bug je les fais toujours apparaitre
Pièce jointe 664148

si le coeur t'en dit je veux bien que tu retravailles la macro.

en attendant, je te souhaite une bonne soirée.

Si vous voulez que je reprenne vos macro autant le faire sur le fichier réel avec toutes les données, non ?

Bonjour,

si la proposition tient toujours je vous envoie le fichier


Pièce jointe 664542

Je voulais vous envoyer mon autre fichier mais je ne peux pas vous le mettre ici, il me met échec quand je le sélectionne.
Comment est ce que je peux vous l'envoyer?

bon dimanche

voici le lien pour l'autre fichier

https://www.cjoint.com/c/OBqmCnXEF6n

merci encore pour l'aide

Ok, je regarde ça au plus tôt