Numéro de semaine en VBA

Bonjour,

J'essaye de faire une macro qui me met en colonne D de mon fichier exemple joins le n° de semaine de la date qui figure en colonne A.

La macro que j'ai faite ne fonctionne pas et je n'arrive pas à savoir pourquoi. Une petite explication de mon erreur et une solution serait super cool.

Cordialement.

Bonsoir

Comme ceci, avec l'ajout pour le traitement des années à 53 semaines

Option Explicit

Dim derln%, i%

Sub numerodesemaine()
  derln = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To derln
        Sheets("Feuil1").Cells(i, 4).Select
        ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[-3],21)"
    Next i
End Sub

Super ça marche. Je pensais que "range" aurait fonctionné sans mettre Sheets("Feuil1").

Merci.

Salut M12

Question pour ma compréhension sur "=WEEKNUM(RC[-14],21)". A quoi corrrespond le 21 dans ton code ?

Merci.

Bonjour,

Comme précisé, pour la gestion des années à 53 semaines

Fait un test, ôte le et mets dans ton tableau la date 01/01/2016 qui te donnera N° semaine 1 au lieu de 53

Merci M12 de l'info. J'avais deviné que celà devait avoir un rapport avec les années à 53 semaines mais je n'ai pas réussi à trouver sur le net l'info correspondant à la syntaxe de la fonction "WEEKNUM" avec cette particularité d'année à 53 semaines.

Cordialement.