Bonjour,
je voulais dans une plage de cellule copier cette formule
=SOMMEPROD((JOURSEM(d.dates;2)=$B370)*(d.données<>""))
du coup mon code est le suivant:
With sheet
ColDeb = 3
ColFin = 3
LigDeb =370
LigFin = 376
.Cells(LigDeb, ColDeb).FormulaLocal = "=SOMMEPROD(JOURSEM(d.dates;2)=$B370)*(d.données<>"")" ' le débogueur s'arrête ici
.Cells(LigDeb, ColDeb).AutoFill _
Destination:=.Range(.Cells(LigDeb, ColDeb), .Cells(LigFin, ColDeb)), Type:=xlFillDefault
C'est blizzard quand même cette histoire,
cette ligne marche nickel
.Cells(LigDeb, ColDeb).FormulaLocal = "=NB.SI(D$2:D$367;$A369)"
si vous avez une idée là je sèche complètement,
Merci