Range("A3").FormulaLocal = "=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))"
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).FormulaR1C1 = _
"=CONCATENATE(""Activitées de la semaine N° "",INT((R1C11-SUM(MOD(DATE(YEAR(R1C11-MOD(R1C11-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",YEAR(R1C11))"
End Sub
Bonjour Pier rejean , bonjour tous le monde
ça fonctionne …mais si vous pemettez y a-t-il une autre possibilité de
1. masquer la formule
2. lancer cette MACRO automatique
Gracie par avance
Sub test2()
Dim numsem As Long
dte = Format(Date, "yyyy")
numsem = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
dt = Int((d1 - numsem + Weekday(numsem) + 5) / 7) - 1
Range("a1").Value = "Activitées de la semaine N° " & dt & " de l' année " & dte
End Sub
Re sorry pour le retard..Bonsoir à tous,
@Ilino: tout en VBA.
Code:Sub test2() Dim numsem As Long dte = Format(Date, "yyyy") numsem = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3) dt = Int((d1 - numsem + Weekday(numsem) + 5) / 7) - 1 Range("a1").Value = "Activitées de la semaine N° " & dt & " de l' année " & dte End Sub
Très bonne soirée
Private Sub Workbook_Open()
Dim numsem As Long
dte = Format(Date, "yyyy")
numsem = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
dt = Int((d1 - numsem + Weekday(numsem) + 5) / 7) - 1
Range("A3").Value = "Activitées de la semaine N° " & dt & " de l' année " & dte
End Sub
Sub test()
Dim Madate, num&, dte
Madate = #12/17/2012#
dte = Format(Date, "yyyy")
num = 51
If Date > Madate Then
num = num + 1
End If
Range("A3").Value = "Activitées de la semaine N° " & num & " de l' année " & dte
End Sub
Private Sub Workbook_Open()
Dim dte, num As Integer
dte = Format(Date, "yyyy")
Range("z1").Value = Range("z1").Value + 1
Range("a3").Value = "Activitées de la semaine N° " & _
Range("z1").Value & " de l' année " & dte
End Sub