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 vgendron, Ilino,
@vgendron: désolé la macro affiche #Nom?.
@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
A+
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]))"
Re Ilino, bonjour Michel
bizarre! J'ai ouvert ton fichier et je n'ai pas derreur.
A+
Re SalutRe Ilino,
quelle version d'Excel utilise-tu?
A+
RE BonjourRe Ilino,
quelle version d'Excel utilise-tu?
Edit: avec la version 2010, si je met Formula, j'obtiens aussi la même erreur. Essai de mettre Formula au lieu de FormulaLocal, qui sait???.
A+
RE MJ13Bonjour à tous
Henry m'a proposé ceci :
Code: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]))"