pb de date

Bonjour Lauxeti,

Je n'est pas tous comprie ce que tu voulais, mais voila ce que je peut de
donner:
******************************
******************************
- selectionner chaque lundi de chaque mois:
If (Weekday(Cells(1, 1)) = 2) Then
Cells(1, 3) = "Monday"
End If

Explication: La fonction "Weekday" retour un chiffre pour chaque jour:
1 pour dimanche
2 pour Lundi
3 pour Mardi
etc.......
******************************
******************************
- si le lundi (par exemple 02/06/08) n'est pas dans le mois considéré (Mai)
, selectionner le dernier jour du mois (31/05/08):

'Datec au format dd/mm/yy
Sub comparemonth(Datec As String)
Dim Datep As Date

'mois de la date a comparer avec
Monthc = Month(Datec)
'date dans la feuille excel
Datep = Cells(1, 1)
Monthp = Month(Datep)

'si les deux mois sont different
If (Monthc <> Monthp) Then
'creation nouvelle date format 31/last month/annee normale
Datep = "31/" & Month(Date) - 1 & "/" & Year(Datep)
'recherche du dernier lundi du dernier mois a partir de la nouvelle
date cree
Do While (Weekday(Datep) <> 2)
Datep = Datep - 1
Loop
'affichage de la nouvelle date dans une cellule
Cells(1, 5) = Datep
End If
End Sub
******************************
******************************

Christophe Mathon

Bonjour.
Peux-tu préciser ?
Tu les sélectionnes où, ces lundis ? Sur une feuille, ou tu veux dire que tu
les calcules ?
Et où trouve-t-on le "mois considéré" ?
Cordialement.
Daniel
"lauxeti" <ybrunet@wanadoo.fr> a écrit dans le message de news:
71c790fb-fc3e-49fb-abe6-6da1c9ad6bd2@34g2000hsh.googlegroups.com...
Bonsoir,

Je souhaiterais definir une macro permettant de :
- selectionner chaque lundi de chaque mois
- si le lundi (par exemple 02/06/08) n'est pas dans le mois considéré
(Mai) , selectionner le dernier jour du mois (31/05/08)

merci pour vos idées

cdlt
le lauxeti