Re: N° semaine avec date, calendrier "spécial"
Bonjour David
Je te joins un fichier qui contient une petite fonction qui pourrait répondre à ton problème :
Ci-dessous le détail de la fonction
Function NumeroSemaine(MaDate)
' Déclarations des variables
Dim CompteurJour, CompteurSemaine
'Récupération de la date traitée
CompteurJour = DateSerial(Year(Date), 1, 1)
' Boucle permettant de comptabiliser les semaines
Do While CompteurJour <= MaDate
' Test pour savoir s'il s'agit d'un samedi
If Weekday(CompteurJour) = vbSaturday Then
CompteurSemaine = CompteurSemaine + 1
End If
CompteurJour = CompteurJour + 1
Loop
' Récupération de la valeur pour afficher le résultat dans la cellule
NumeroSemaine = CompteurSemaine
End Function
Pour utiliser celle-ci, tu cliques sur l'assistant fonction, tu recherches la categorie "Personnalisées" - Tu trouveras NumeroSemaine
L'argument MaDate correspond à la date dont tu souhaite calculer le numero de semaine
Bonne réception
A+
Jeannot
|