Bonjour Isabelle,
Merci pour ta réponse.
Ca ne répond qu'à une petite partie de ma demande.
Dans mon projet je travaille avec des DtPicker mais peut importe.
Pour plus de clarté, je vais décomposer ma demande.
Voici ce que j'attends.
Trouver le code qui avec une boucle devrait me permettre d'obtenir successivement les dates suivantes (toutes les dates sont des vendredis). Le point de départ étant le 22/06/2019
22/03/2019
36/04/2019
24/05/2019
28/06/2019
La difficulté, c'est que les mois n'ont pas tous la même durée. S'il suffisait d'ajouter 30 jours ça serait facile.
1) Connaitre le jour de la semaine afin d'obtenir le même jour le mois suivant.
Ton code répond parfaitement
jr = Array("", "Dimanche", "Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi")
NbrSemMois = Int(Cells(6, 3) - Cells(6, 2)) / 7
jour = jr(Weekday(Cells(6, 2)))
2) Connaitre le nombre de mois entre les deux dates pour faire une boucle d'inscription
Exemple :
Entre le 30/06/2019 et le 22/02/2019
Ce code le permet :
NbMois=DateDiff("m", Cells(3,"B"), Cells(3,"C"))
Cependant, je n'arrive pas à concrétiser pour obtenir le résultat.
Pour arriver aux dates finales, est-ce qu'il ne faudrait pas un calcul intermédiaire qui détermine la semaine dans le mois.
Qu'en penses-tu?
Exemple :
22/02/2019 serait égale à 4 (pour la 4ème semaine)
02/02/2019 serait égale à 1 (pour la 1ère semaine)
Merci du temps consacré.