Discussion :

[Nounours1]

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 :

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

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

[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.

[Nounours1]

Merci beaucoup,

@ bientôt

[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.

[Nounours1]

Bonsoir Kiki29

Oui, mais comment la rendre exact ?

Bonne soirée.

[pouben02]

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 :

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

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

[Nounours1]

Merci et bonne journée,

@+