Discussion :

[bibZz]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[gnain]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bibZz]

Ca fonctionne ! Une grand merci !