Argument fontion weeknum

Bonjour,

Je suis en train de créer une macro et je possède quelques difficultés pour la fonction WEEKNUM.
Je vais simplifier le problème pour être le plus clair possible.

Dans la colonne A se trouve des dates.
J'aimerai mettre dans la colonne B les numéros de semaines correspondantes.

Si je tape range("B1") = weeknum(A1) il n'y a pas de problème le numéro de la semaine s'affiche bien.
Pour automatiser j'utilise le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub semaine() Dim i As Long i = 1   Do While Range("A" & i).Value <> "" Range("B" & i) = WeekNum("A" & i) i = i + 1 Loop   End Sub

---

La j'ai un message d'erreur de compilation sur weeknum : fonction ou sub non reconnu.
Je pense qu'il s'agit d'une erreur de syntaxe.

Merci pour votre aide !

Bonjour,

Code:

---

1 2 3 4

Do While Range("A" & i).Value <> "" Range("B" & i) = WorksheetFunction.WeekNum(Range("A" & i)) i = i + 1 Loop

---

Ca fonctionne ! Une grand merci !