Numéro de semaine en vba

Version imprimable

Bonsoir,

Comment mettre en place le code ci-dessous dans une feuille de calcul ?

Par exemple mes dates seront en colonne C puis les numéros de semaine en colonne D.
Ou placer ce code ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Public Function Semaine(LaDate As Variant) As Variant
'---------------------------------------------------------------------------------------
' Procedure : Semaine
' Date      : vendredi 21 décembre 2007 13:56
' Auteur    : Maxence Hubiche (mhubiche@club-internet.fr -  06.18.61.14.35)
' Objet     : Renvoie le numéro de la semaine pour le calendrier français
' Spec      : Cette fonctino empèche le débordement en semaine 53, en mettant les jours
'               de la semaine 53 en semaine 1
' Retour    : Renvoie un Byte (n° de la semaine) ou Null si l'argument n'était pas une
'               date
'---------------------------------------------------------------------------------------
'
    Dim bytTemp As Byte
    If IsDate(LaDate) Then
        bytTemp = CByte(DatePart("ww", LaDate, vbMonday, vbFirstFourDays)) Mod 53
        If bytTemp = 0 Then bytTemp = 1
        Semaine = bytTemp
    Else
        Semaine = Null
    End If
End Function

Merci d'avance
Bonne soirée ;)

27/09/2016, 20h33
clementmarcotte

Bonjour,

Le plus simple, c'est de mettre la macro dans un module de ton Classeur de macros personnelles (machin.xlsb); même si n'Importe quel classeur ouvert en même temps que le classeur actif fait l'affaire. L'avantage du classeur de macros c'est qu'il est ouvert automatiquement au lancement d'Excel et que ses macros deviennent donc utilisables dans tous les classeurs ouverts en même temps.

Ensuite, tu mets la formule qui convient, disons en d1 :=semaine("c1"), et tu recopies vers le bas.

Ta fonction VBA s'utilise comme une fonction intrinsèque d'Excel. Au pire, tu vas devoir ajouter le nom du classeur qui contient ta fonction.
27/09/2016, 21h01
Nounours1

Merci beaucoup,

@ bientôt
27/09/2016, 21h39
kiki29

Salut, surtout qu'elle s'avère fausse. Par exemple le 28/12/2009 renvoie 1 alors que cela devrait être 53. L'auteur d'ailleurs le précise.
27/09/2016, 21h49
Nounours1

Bonsoir Kiki29

Oui, mais comment la rendre exact ?

Bonne soirée. :?

Bonjour,

La discussion est fermée depuis quelques années, mais une fonction qui prend en compte la norme ISO (la première semaine d'une année comporte toujours le premier jeudi de l'année civile) :
Code:

1 2 3 4 5 6 7 Function NoSem(d As Date) As Long 'L. Longre d = Int(d) NoSem = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1) NoSem = ((d - NoSem - 3 + (Weekday(NoSem) + 1) Mod 7)) \ 7 + 1 End Function
A+
Benead

11/10/2018, 16h10
Nounours1

Merci et bonne journée,

@+