bonjour,
 
mon probleme est le suivant:
 
j'ai besoin de savoir a partir du numero de semaine sil sagit de la derniere semaine du mois.
 
quelqu'un connait il une formule ou saurait comment si prendre ?
 
exemple:
semaine 47/08 --> non
semaine 48/08 --> oui
semaine 49/08 --> non
 
merci

Salut, pour ce qui est du N° de Semaine d'une date il y a qqch comme

bonjour,
 
j'ai peur de ne pas m'etre fait comprendre. j'ai deja le numero de la semaine vu que c'est ce que j'ai en entree.
 
en gros voila le fonctionnement:
 
ns=inputbox("Num semaine ?" )
if ns=findumois then
...miseenforme1
else
...miseenforme2
end if
 
 
ce que j'ai fait finalement c'est sur une feuille excel jai pour chaque mois le numero de la derniere semaine du mois
janvier08  4
fevrier08  8
mars08    13
avril08     17
et a laide dune boucle je verifie si mon ns est la derniere semaine ou pas .
 
ce que je trouve un peu "barbare". mais ca ira
merci de ton aide
 

que veux tu dire par "dernière semaine du mois" ?
- >= 4 jours sur le mois ?
- semaine complète sur le mois ?
- en prenant en compte les samedi et dimanche ?
 
 
Tu regardes le numéro de semaine du dernier jour du mois, et tu compares avec ton numéro de semaine, ça te dira si c'est la dernière du mois !

Le sujet est résolu, tant mieux, mais du coup, c'était quoi la bonne solution ? Celle de ptit loup ?
Et c'était quoi la bonne définition de "dernière semaine du mois" ?

Private Sub ExaminerSemaine_Click()
Dim CRLF, Message, Réponse
CRLF = Chr(13) & Chr(10)
Réponse = InputBox("Renseignez une date" )
If Not IsDate(Réponse) Then Exit Sub
SemaineTrouvée = DatePart("ww", Réponse, vbMonday, vbUseSystem)
DernièreSemaineDuMois = DatePart("ww", DateSerial(Year(Réponse), Month(Réponse) + 1, 1) - 1, vbMonday, vbUseSystem)
If SemaineTrouvée = DernièreSemaineDuMois Then
    Message = "La date renseignée " & Réponse & " correspond bien à la dernière semaine du mois"
    Else
    Message = "La date renseignée " & Réponse & " ne correspond pas à la dernière semaine du mois"
End If
Message = Message & CRLF
Message = Message & "Votre date : " & Réponse & CRLF
Message = Message & "Sa semaine : " & SemaineTrouvée & CRLF
Message = Message & "La dernière semaine du mois est " & DernièreSemaineDuMois
MsgBox Message
End Sub