Va voir ceci: http://www.excelabo.net/xl/calendriers.php#numsemVBA
@+
Yvan
"Alain" a écrit dans le message de news:
bonjour,
tous est dans le titre.
comment faire une recherche du numéro de la semaine d'une variable en vba ?
je sèche.
merci d'avance
Alain
AV
Si tu te moques de la norme iso Europ :
Function SEM(cel) SEM = DatePart("ww", cel, 2) End Function
Sinon, une parmi... :
Function NUM_SEM(cel As Range) x = cel.Address NUM_SEM = Evaluate("1+int((" & x & "-date(year(" & x & "+4-weekday(" & x & "+6)),1,5)+weekday(date(year(" & x & "+4-weekday(" & x & "+6)),1,3)))/7)") End Function
AV
Si tu te moques de la norme iso Europ :
Function SEM(cel)
SEM = DatePart("ww", cel, 2)
End Function
Sinon, une parmi... :
Function NUM_SEM(cel As Range)
x = cel.Address
NUM_SEM = Evaluate("1+int((" & x & "-date(year(" & x & "+4-weekday(" & x &
"+6)),1,5)+weekday(date(year(" & x & "+4-weekday(" & x & "+6)),1,3)))/7)")
End Function
Function SEM(cel) SEM = DatePart("ww", cel, 2) End Function
Sinon, une parmi... :
Function NUM_SEM(cel As Range) x = cel.Address NUM_SEM = Evaluate("1+int((" & x & "-date(year(" & x & "+4-weekday(" & x & "+6)),1,5)+weekday(date(year(" & x & "+4-weekday(" & x & "+6)),1,3)))/7)") End Function
