Range("D1").Formula = "=WEEKNUM(RC[-2])"
Bonjour à tous,
Peux-tu essayer :
Range("D1").Formula = "=WEEKNUM(RC[-2])"
A+ à tous
Bonjour à tous
Personnellement, je n'utilise plus No.semaine car elle était buggée il y a queqlques années.
Je préfère ceci:
Code VBA:
Sub sem2()
ActiveCell.Offset(0, 1).Value = Val(Format(ActiveCell.Value, "ww", vbMonday, vbFirstFourDays))
End Sub
Function SemISO (MyDate As Date) As Integer ' Week Of Year
SemISO= Format(MyDate, "ww", vbMonday, vbFirstFourDays)
If SemISO > 52 Then
If Format(MyDate + 7, "ww", vbMonday, vbFirstFourDays) = 2 Then SemISO = 1
End If
End Function
qui est buggée également ....
ou bien :
=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1
=ENT(MOD(ENT((A1-2)/7)+3/5;52+5/28))+1