=EQUIV(JOUR(A1);{0;8;15;22;29})
Public Function NSem(Target As Range)
Dim j As Byte 'déclare la variable j (Jour de la date)
j = Day(Target) 'définit le jour j
Select Case j 'agit en fonction du jour de la date
Case 1 To 7 'cas de 1 à 7
NSem = 1 'définit le numéro de la semaine dans le mois NSem
Case 8 To 14 'cas de 8 à 14
NSem = 2 'définit le numéro de la semaine dans le mois NSem
Case 15 To 21 'cas de 15 à 21
NSem = 3 'définit le numéro de la semaine dans le mois NSem
Case 22 To 28 'cas de 22 à 28
NSem = 4 'définit le numéro de la semaine dans le mois NSem
Case Is > 28 'cas supérieur à 28
NSem = 5 'définit le numéro de la semaine dans le mois NSem
End Select 'fin de l'action en fonction du jour de la date
End Function
=ENT((JOUR(A1)-1)/7)+1
Je le savais mon cher ami comme je suis nul en VBA.Parce que je suis nul en formules ! Tu devrais le savoir Rachid...
=ENT((JOURSEM(A1-JOUR(A1)+1;3)+JOUR(A1)-1)/7)+1
Bonjour @ tous
Mon grain de sel ou de piment :
qu’appelez vous la première semaine du mois ?
jeudi 1° aout : la première semaine d'aout va de jeudi 1 à mercredi 7
ou bien elle va de jeudi 1 à dimanche 4 et la seconde commence le lundi 5 ?
Déjà que le N° de semaine de l'année est un problème épineux qui admet des réponses différentes suivant de quel côté de la mare aux canards on se situe, alors le N° de la semaine dans le moi, pour ma part je ne m'y risquerai pas !
=ENT((JOUR(A1)+6-JOURSEM(A1;2))/7)+1
le N° de la semaine dans le moi, pour ma part je ne m'y risquerai pas !