Sujet Précédent Sujet Suivant

Vba DateAdd avec exceptions (horaires, WEnd)

Résolu/Fermé
wiidle Messages postés 16 Date d'inscription mardi 3 mai 2011 Statut Membre Dernière intervention 5 octobre 2011 - 3 oct. 2011 à 09:34
wiidle Messages postés 16 Date d'inscription mardi 3 mai 2011 Statut Membre Dernière intervention 5 octobre 2011 - 5 oct. 2011 à 10:46
Bonjour à toutes et à tous,

Je viens vers vous avec un petit casse-tête qui à occupé toute ma semaine dernière, et je viens donc demandé de l'aide pour essayer de résoudre cela.

Je réalise une macro depuis Word avec un userform (on ne peut pas utiliser la fonction Workday !!)
Dans cette macro je dois réaliser un planning des tâches en fonction d'une période préalablement désignée sur un calendrier (pas de soucis ici).

La où je bloque c'est au moment d'utiliser le DateAdd (aucune certitude dans cette utilisation :( )

Par exemple, le projet est en trois phases (P1, P2 et P3)
L'utilisateur sélectionne les dates du projet : de vendredi 12h00 à mercredi 12h00 (donc 3 jours ou 24 heures de travail effectif ou encore 1440 minutes (oui je sais je maîtrise la calculette !!) (^^) )

en admettant que le temps alloué à chaque étape du projet soit les mêmes,

comment faire pour pouvoir déterminer le début et la fin de chaque étape en considérant que le temps de travail est de 8 heures par jour (de 9 à 18h avec une heure de pose entre 13 et 14h) et en prenant en considération les week-end ?

le résultat devrait être :
- DebutP1 : vendredi 12h00 / FinP1 : lundi 12h00
- DebutP2 : Lundi 12h00 / FinP2 Mardi 12h00
- DebutP3 : Mardi 12h00 / FinP3 mercredi 12h00

Voila le petit problème ;) !!!!
Merci d'avance pour vos réponses.


PS: je n'ai pas mis de code parce que pour l'instant je suis parti dans une méthode trop compliquée (avec des tonnes de calcul et de if.... then...elseif... else...).

Merci encore.


1 réponse

Réponse 1 / 1
wiidle Messages postés 16 Date d'inscription mardi 3 mai 2011 Statut Membre Dernière intervention 5 octobre 2011
5 oct. 2011 à 10:46
Bonjour à tous,

Bon j'ai finalement réussi à réaliser cette macro.
Pour cela j'ai du créer de nombreuses fonctions,
utiliser du DateAdd à foison,
et une ribambelle de If...ElseIf...Else...
Soutraire ou ajouter des minutes, des heures, des jours entiers !!! (woooaaahhh)

Au final j'ai un code de 240 lignes !!! Mais sa fonctionne ;)

La prochaine évolution de ma macro sera le fait de prendre en compte les jours fériés et de permettre à l'utilisateur de sélectionner le samedi comme jour ouvré (et pi être même d'autres jours aussi tiens :!).
Que du BONHEUR !!!

Bonne journée à tous.
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
VBA : Range avec références variables..
Antoine -
MIKE59 -

Bonjour à tous,
je n'arrive pas à trouver sur le forum une manière d'utiliser la fonction Range avec des variables pour les lignes et les colonnes. Je m'explique :

J'ai Range("40:A500" dans mon code, et je voudrai remplacer A40 et A500 par des variables que j'ai définies précédemment.
Imaginons que mes variables définies avant soient ColL et LigneL, je voudrai remplacer Range(A40:A500) par quelquechose comme :

Range(ColL & LigneL ":" ColL & 500) j'ai beau essayer dans tous les sens et de manières différentes je n'y arrive pas !

Merci d'avance pour votre aide !!

Antoine




7 réponses
planning horaires pour 5 employés en 35h 7/7jrs 365jrs
Alan -
Raymond PENTIER -

Bonjour a tous
Grosse problématique j’essaie en vain de sortir un planning avec cette situation:

5 employés
35h
7/7jrs
365jrs

Je souhaite être équitable avec tout le monde mais c'est un casse tête pour moi,en sachant qu'il me faut deux personnes le matin sur la tranche horaire 7h/14h une autre 9h/16h et une autre de 14h/20h.
Merci d'avance de toute l'aide que vous pourriez m'apporter.

7 réponses