=NOMPROPRE(TEXTE((A1*7)+DATE(ANNEE(AUJOURDHUI());1;1)-SI(JOURSEM(DATE(ANNEE(AUJOURDHUI());1;1);2)>4;JOURSEM(DATE(ANNEE(AUJOURDHUI());1;1);2)-1;6+JOURSEM(DATE(ANNEE(AUJOURDHUI());1;1);2));"mmmm"))
=NOMPROPRE(TEXTE((A1*7)+PJA-SI(JOURSEM(PJA;2)>4;JOURSEM(PJA;2)-1;6+JOURSEM(PJA;2));"mmmm"))
Sub nommerformule()
' Macro1 Macro
' Macro enregistrée le 10/03/2009 par VBACrumble
With ActiveWorkbook.Names
.Add Name:="PJA", RefersToR1C1:="=DATE(YEAR(TODAY()),1,1)"
.Add Name:="MOISPARNUMSEM", RefersToR1C1:= _
"=PROPER(TEXT((!R1C1*7)+PJA-IF(WEEKDAY(PJA,2)>4,WEEKDAY(PJA,2)-1,6+WEEKDAY(PJA,2)),""mmmm""))"
End With
End Sub
Sub TestMacro()
Dim NUMSEM As Byte
nommerformule
NUMSEM = InputBox("Numero de semaine : de 1 à 52" & Chr(13) & Chr(13) & "Année de référence :" & Year(Date))
Range("A1") = NUMSEM
Range("B1").Formula = "=MOISPARNUMSEM"
End Sub
=NOMPROPRE(TEXTE(DATE(ANNEE(AUJOURDHUI());1;3)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;3))-5+(7*A1);"mmmm"))
Sub Macro4()
' Macro4 Macro
' Macro enregistrée le 10/03/2009 par VBACrumble
With ActiveWorkbook
.Names.Add Name:="SNOMMOIS", RefersToR1C1:= _
"=PROPER(TEXT(DATE(YEAR(TODAY()),1,3)-WEEKDAY(DATE(YEAR(TODAY()),1,3))-5+(7*!R1C1),""mmmm""))"
With .ActiveSheet
With .Range("A1")
.Value = Val(InputBox("Numéro de semaine -> 1/52 ( pour : " & Year(Date) & " )"))
.Offset(, 1).Formula = "=SNOMMOIS"
End With
End With
End With
End Sub