1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Private Sub Commande2_Click()
Dim x As Variant
' texte3 est le n° de la semaine du premier rdv (à entrer à la main, je sais qu'il y a un code pour le calculer en fonction de la date entrée en texte5
' texte0 correspond aux numéros des semaines (continues ou non), séparés d'une virgule, où l'on veut que le même rdv soit programmé
' texte5 est la date du 1er rdv (format date)
'on récupère le numéro des semaines dans texte0
x = Split(Texte0.Value, ",")
'on traite chacun des numéros de semaine
For Each i In x
z = (i - Texte3) * 7 'calcul le nombre de semaines entre la semaine du rdv initial et la semaine de l'occurence, le résultat est multiplié par 7 pour connaître le nb de jours
MsgBox ("on ajoutera donc : " & z & " jours à la date initiale")
MsgBox ("la prochaine date de la périodicité est donc :" & Format(DateAdd("d", z, Texte5), "dddd d mmmm yyyy") & ".")
Next i
End Sub |
Partager