Re : Installation fonction NO.SEMAINE
J'y manquerais pas, un petit cou...cou en plein vol
Une macro parce que mon fichier fait déjà plus de 5Mo et qu'il sera remplie de 40 lignes par jour de A à O,
je ne peux donc pas copier ma fonction sur TOUTE la colonne O sinon le fichier fera plus de 15 mo
sans les données journalières. (ou alors j'investi sur une bête de calcul)
Mais également parce que je ne veux pas que le fichier puisse être corrompue par erreur ce qui est souvent le cas lorsque des fonctions excels sont visible, une mauvaise manipulation est si vite arrivée (ooups pardon Madame j'ai glissée)
J'ai trouvé une fonction bidouille : (ici exemple avec 2009,2010, 2011 et 2012)
Range("O2:O65356").Value = Range("A2:A65356").Value
For Each X In Range("O2:" & Range("O65356").End(xlUp).Address)
If X < #1/1/2012# And X > #12/31/2010# Then
X.Value = DatePart("ww", X)
X.NumberFormat = "General"
X.Value = X - 1
ElseIf X < #1/1/2011# And X > #12/31/2009# Then
X.Value = DatePart("ww", X)
X.NumberFormat = "General"
X.Value = X - 1
ElseIf X < #1/1/2010# And X > #12/31/2008# Then
X.Value = DatePart("ww", X)
X.NumberFormat = "General"
X.Value = X
ElseIf X > #12/31/2011# Then
X.Value = DatePart("ww", X)
X.NumberFormat = "General"
X.Value = X
End If
Next
Je vais ainsi régler avec +1 ou -1 toutes les années ou le numéro de semaine est décalé jusqu'à 2020
Merci