Mois en fonction de la semaine et l'année

[akramenergie]

Bonjour à tous,

J'ai besoin de votre aide pour pouvoir calculer le mois en fonction de la semaine et l'année. je sais faire avec les formule excel mais pas en VBA....???
Merci d'avance pour votre aide

 

[job75]

Re : Mois en fonction de la semaine et l'année

Bonjour akramenergie,

Norme ISO : la 1ère semaine est celle contenant le 1er jeudi de l'année.

On peut donc utiliser cette fonction VBA :

Function NoMoisSemaineIso(Nsemaine As Byte, An As Integer)
Dim J1 As Date, LundiSem1 As Date
J1 = DateSerial(An, 1, 1) '1er de l'an
LundiSem1 = J1 - Weekday(J1, 2) + IIf(Weekday(J1, 2) <= 4, 1, 8)
NoMoisSemaineIso = Month(LundiSem1 + 7 * Nsemaine - 7)
End Function

Elle renvoie le mois du lundi de la semaine Nsemaine.

Le lundi étant bien sûr le 1er jour de la semaine.

A+

 

[job75]

Re : Mois en fonction de la semaine et l'année

Re,

Je joins 2 fichiers.

Fonction VBA et formule Excel font strictement le même calcul.

A+