No semaine

Bonjour

j'ai besoin d'aide car je ne sais pas comment écrire le code vba:

dans le Private Sub Worksheet_Change(ByVal Target As Range)

J'aimerais quand je rentre une date dans la colonne 1 ou A, le no de semaine s'affiche automatique en colonne 2 ou B.

Est ce que quelqu'un peut m'aider.

Merci à l'avance.

Salut,

Dans le fichier ci-joint, la colonne B se complète par macro, la colonne C par formule (pour comparaison).

Cordialement.

un grand merci. la version macro me convient parfaitement.

Voici la solution que j'ai travaillée et qui fonctionne selon mes besoins. le No de semaine s'affiche à la colonne J

Merci

Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then

If IsDate(Target) Then

Cells(Target.Row, 10).FormulaR1C1 = "=INT(MOD(INT((RC[-9]-1)/7)+3/5,52+5/28))+1"

Else

Target.Offset(0, 9) = ""

End If

End If

End Sub