Bonjour,
Oui c'est possible même si je ne vois pas trop l'intérêt.
Dans l'éditeur VB (alt+ F11) insérer un module (menu Insertion) et y mettre le code suivant :
Function WeekNum(MyDate As Variant)
WeekNum = WorksheetFunction.WeekNum(MyDate)
End Function
En fait la fonction NO.SEMAINE n'est que la traduction française de la fonction VB WeekNum et ce code ne fait que faire la traduction inverse puisque la fonction WeekNum que nous créons ne fait que renvoyer le résultat WorksheetFunction.WeekNum, c'est-à-dire la fonction NO.Semaine de la feuille de calcul.
Je pensais que ça coincerait au motif que WeekNum serait un mot réservé mais ça passe.
Pour l'utiliser :
en A1 : 01/01/2011
en A2 = WeekNum(A1) : résultat = 1
Auteur
