salut le phorum
j'ai trouver une solution
voici la macro (a adapter suivant les besoins)
Global ligneproduction
Sub Next_mois()
Sheets("Suivi Cadence").Select
'nouveau mois
Range("C4:H43").Select
Selection.ClearContents
ligneproduction = 4: While Cells(ligneproduction, 2).Value <> "": _
ligneproduction = ligneproduction + 1: Wend: ligneproduction = ligneproduction - 1
'formule
Sheets("Suivi Cadence").Select
Range("c4") = "=IF(WEEKDAY(RC[-1],2)>5,""-"",IF(COUNTIF(Fériés,""=""&RC[-1])>0,""-"",""""))"
Range("c4").Select: Selection.Copy
Range("c4:c" + Format(ligneproduction)).Select: Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False: Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("a1").Select
End Sub
un grand merci à moi même
tracor le champion