IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Userform calculateur automatique de dates


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2017
    Messages : 2
    Par défaut Userform calculateur automatique de dates
    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 :

    Nom : Userform.JPG
Affichages : 376
Taille : 20,2 Ko

    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.
    Fichiers attachés Fichiers attachés

  2. #2
    Expert confirmé
    Homme Profil pro
    aucune
    Inscrit en
    Avril 2016
    Messages
    7 563
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 84
    Localisation : France, Pyrénées Atlantiques (Aquitaine)

    Informations professionnelles :
    Activité : aucune

    Informations forums :
    Inscription : Avril 2016
    Messages : 7 563
    Par défaut
    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

  3. #3
    Nouveau candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Novembre 2017
    Messages : 2
    Par défaut
    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,

Discussions similaires

  1. Userform - Calcul automatique de date
    Par wizard0147 dans le forum VBA Word
    Réponses: 3
    Dernier message: 18/06/2014, 02h09
  2. Mise à jour automatique par date
    Par man18 dans le forum Access
    Réponses: 2
    Dernier message: 25/01/2007, 11h06
  3. Saisie automatique de dates dans formulaires
    Par yves89 dans le forum IHM
    Réponses: 11
    Dernier message: 17/05/2006, 00h04
  4. Ajout d'une colonne automatiquement suivant date
    Par paflolo dans le forum Access
    Réponses: 7
    Dernier message: 07/03/2006, 17h51
  5. [D7][InterBase] conversion automatique de date
    Par Magnus dans le forum Bases de données
    Réponses: 4
    Dernier message: 09/05/2005, 14h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo