salut,
un coup d'enregistreur de macro. et voila
sub test()
formule = "=CONCATENER(""Activitées de la semaine N° "",ENT((K1-SOMME(MOD(DATE(ANNEE(K1-MOD(K1-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",ANNEE(K1))"
Cells(5, 1).Formula = formule
end sub
il faut noter que les
; deviennent des ,
et que les
" deviennent des ""
@Ilino: si la formule est pour le numéro de la semaine, voici plus court.
Code:
Sub test()
With Cells(1, 11): .Value = Date: .Font.ColorIndex = 2: End With 'si tu ne veux pas voir la date du jour
formule = "=CONCATENER(""Hebdomadaire N° "" &"" ""& ENT(MOD(ENT((K1-2)/7)+0.6;52+5/28))+1) &"" Année: ""& ANNEE(K1)"
Cells(5, 1).FormulaLocal = formule
End Sub
bonjour Lone-Wolf
effectivement. j'avais pas fait gaffe. une fois la macro terminée, il faut revalider la formule en cliquant dans la cellule..
j'ai du le faire sans y preter attention..
par contre. le pourquoi..?
@Ilino: si la formule est pour le numéro de la semaine, voici plus court.
Code:
Sub test()
With Cells(1, 11): .Value = Date: .Font.ColorIndex = 2: End With 'si tu ne veux pas voir la date du jour
formule = "=CONCATENER(""Hebdomadaire N° "" &"" ""& ENT(MOD(ENT((K1-2)/7)+0.6;52+5/28))+1) &"" Année: ""& ANNEE(K1)"
Cells(5, 1).FormulaLocal = formule
End Sub
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(""Activitées de la semaine N° "",INT((RC[10]-SUM(MOD(DATE(YEAR(RC[10]-MOD(RC[10]-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",YEAR(RC[10]))"
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(""Activitées de la semaine N° "",INT((RC[10]-SUM(MOD(DATE(YEAR(RC[10]-MOD(RC[10]-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",YEAR(RC[10]))"