Discussion :

[Red80]

Bonjour à tous,

Étant nouveau sur le forum, j'espère que mon message est posté au bon endroit et qu'il respecte les règles de bienséance !

Newbie en VBA, je sèche quand à la création du code VBA derrière un userform de calcul automatique de dates :



Il y a 3 champs dates liés à 3 actions à réaliser ("réception offre", "contractualisation", "début projet") et 2 champs délais qui correspondent au temps écoulé en jours ouvrables(1 semaine = 5 jours ouvrables) entres 2 dates cibles.

J'aimerais que l'utilisateur puisse réaliser les étapes suivantes :
1/ rentrer une date dans n'importe lequel des 3 champs dates,
2/ qu'il remplisse tous les champs "délais" (en jours)
3/ Qu'il clique sur le bouton "calcul date" pour calculer automatiquement les 2 champs dates vides qui doivent être égal à la date cible de l'action précédente ou suivante + ou - le délai.
(Ex : Si date "réception offre" = 01/01/2018 et si délai entre "réception offre" et "contractualisation" = 4 (jours), alors date cible de "contractualisation" = 05/01/2018)

Une fois les dates calculées,

4/ Que l'utilisateur rentre le numéro de ligne du projet auquel il souhaite insérer les dates cibles (ex : "3" pour le "Projet 2")
5/ Clique sur bouton "Insérer dates cibles" pour insérer les 3 dates dans les cellules excel correspondantes (ex pour le "projet 2" : B3, E3, I3)

Contraintes :
Toutes les dates doivent être un jour de semaine (jours ouvrables).

J'espère que les explications sont claires, je vous joins le fichier pour illustrer le tout.

Je reste à disposition pour tout complément d'info.

Merci par avance pour votre aide dans la construction de ce code.

[unparia]

Bonjour
1) et surtout : je n'ouvre (comme beaucoup d'autres) jamais un classeur tiers
https://www.developpez.net/forums/d8...s-discussions/
2) que répondre et comment répondre ?
Ainsi :
- soit ladate une date valide : ladate + n est la date de n jours plus tard
- la fonction Weekday(ladate) retourne le n° du jour dans la semaine
- Worksheets("toto").Range("E20") est l'objet Range cellule E20 de la feuille toto
- la propriété value d'un objet range est accessible en lecture et écriture

Il ne te reste plus qu'à t'y mettre

EDIT : ah oui. Une dernière chose : le contenu d'une textbox est une chaîne de caractères (de type String, donc)
La fonction cdate(une_chaine) convertit en type date la date une_chaîne (si expression de date valide, bien évidemment)

La fonction Isdate(une_chaine) permet de vérifier que la chaîne une_chaine est une expression de date valide

[Red80]

Bonjour Unparia,

Merci de ton retour.
Ok pas de PJ .

Je vais regarder tes fonctions de plus prêt et essayer de les utiliser.

Je te reviens si j'ai quelques quelques questions techniques,