(RESOLU)Date fin addition date debut + duree+nbr jours feries

[chaelie2015]

Bonjour Forum
cette fois ,dans USF ,Je souhaite calculer date fin dans un TextBox4 (il s’affiche automatiquement)

Date début TextBox2
Durée TextBox3
Nbre de jours féries ComboBox2

TextBox4 = TextBox2+TextBox3+ComboBox2+1

Salutation

 

[chaelie2015]

Bonjour Roland
pour la derniere question pour ce post
quel sont les paramètres a modifier pour l’ensemble du classeur si je change le Week-end de Samedi&dimanche au vendredi&samedi?
a+

 

[chaelie2015]

Re
1. pour le calendrier:

Private Const NoDuPremJourSem% = 7 '? 1=Lundi à 7=Dimanche
je ne sais pas si il y a la suite ?
a+

 

[Roland_M]

re

j'avoue ne pas comprendre ton souhait !?

 

[chaelie2015]

re

j'avoue ne pas comprendre ton souhait !?

Re
le fichier est fonctionnel sur un week-end samedi et Dimanche (même ton calendrier)
comment faire pour adapter le code et le calendrier par rapport au autre week-end (vendredi-samedi)
A+
ET BON WEEK-END

 

[Roland_M]

re

tu veux décaler l'affichage dans le calendrier tout en haut ?
dim lundi mardi . . . vendredi samedi

EDIT: que veut dire ceci:
pour adapter le code et le calendrier par rapport au autre week-end

quel autre week-end !?


développes un peu avec un exemple actuel et ce que tu souhaites !

 

[chaelie2015]

re

tu veux décaler l'affichage dans le calendrier tout en haut ?
dim lundi mardi . . . vendredi samedi

Re
en premier lieu oui c'est ça !!!!!
a+

 

[Roland_M]

re

alors ça c'est très simple !
tu vas dans le code calendrier et tu verras qu'il a un paramètre que tu peux adapter tu changes le 1 en 7 ! (tu l'avais déjà vu semble t'il)
dans ceci:
Private Const NoDuPremJourSem% = 7 '? 1=Lundi à 7=Dimanche .

 

[chaelie2015]

Re
et pour le nombre de jours et la date de retour , dans ce cas on ne compte pas Vendredi, comment faire pour modifier ton code?
a+

 

[Roland_M]

re

déjà actuellement on ne compte que les dimanches ! pas les samedis que je sache !?
si tu veux d'autres jours c'est pareil tu te sers des nos 1 à 7 (peu importe l'affichage du calendrier)
pour les lundi c'est 1 ... jusque 7 pour dimanche ! ici vendredi tu testes avec le 5 !
tu devrais faire ces essais et tu verrais tout de suite le résultat !

EDIT:
'pour vendredi
'If Weekday(D, vbMonday) = 5 Then TextBox4 = CDate(TextBox4) + 1
'pour vendredi et samedi
'If Weekday(D, vbMonday) = 5 or Weekday(D, vbMonday) = 6 Then TextBox4 = CDate(TextBox4) + 1

pour le message:
If Weekday(TextBox4, vbMonday) = 5 Then MsgBox "Attention: " & TextBox4 & vbLf & "tombe un vendredi !", vbInformation, ""
If Weekday(TextBox4, vbMonday) = 6 Then MsgBox "Attention: " & TextBox4 & vbLf & "tombe un samedi !", vbInformation, ""

 

[chaelie2015]

re
donc je change
If Weekday(D, vbMonday) = 5 Then TextBox4 = CDate(TextBox4) + 1 ???

 

[Roland_M]

re

oui c'est toujours + 1
comme dans l'EDIT de mon message précédent:

'pour vendredi
'If Weekday(D, vbMonday) = 5 Then TextBox4 = CDate(TextBox4) + 1
'pour vendredi et samedi
'If Weekday(D, vbMonday) = 5 or Weekday(D, vbMonday) = 6 Then TextBox4 = CDate(TextBox4) + 1

pour le message:
If Weekday(TextBox4, vbMonday) = 5 Then MsgBox "Attention: " & TextBox4 & vbLf & "tombe un vendredi !", vbInformation, ""
If Weekday(TextBox4, vbMonday) = 6 Then MsgBox "Attention: " & TextBox4 & vbLf & "tombe un samedi !", vbInformation, ""

 

[chaelie2015]

Re
en fin,un grand merci roland, maintenant j'ai le choix, je te souhaite un bon week-end
Post clôturé

a+

 

[chaelie2015]

Re😉 RELOND
Apres avoir finalisé ton code, j'ai trouvé un autre souci de calcul de la date de reprise
exemple : date départ le 25/07/2016
nombre de jours : 23
jours fériés: 0
normalement je doit avoir comme date de retour Dimanche 21/08/2016 mais ce n'ai pas le cas???
a+

 

[Roland_M]

re

expliques moi comment tu arrives au Dimanche 21/08/2016

perso, si j'ai bien compris !?
départ le 25/07/2016 + 23 jours = 17/08/2016
puis boucle pour ajout les vendredis, c'est bien ce que tu souhaites ?
+ vend. 29/07 + vend.05/08/2016 + vend.12/08/2016 = + 3 jours

SOIT 17/08/2016 + 3 jours = 20/08/82016 ! et pas 21/08/2016 !?

EDIT: c'est vrai qu'en rajoutant 3 jours dedans il y a un vendredi qu'il faudrait rajouter !
je crois quand même que tu compliques un peu les choses !?
il aurait peu être fallu pratiquer autrement !?

 

[Roland_M]

re

voir la suite ici:
https://www.excel-downloads.com/thr...-debut-duree-nbr-jours-feries.20009888/page-3