Calcul de dates dans un USF | ||
---|---|---|
Inscription: 12/07/2008
De RENNES
Messages:
30
Système d'exploitation: PC Version Excel utilisée: 2003 FR |
Posté le : 12-04-2012 16h57
Bonjour à tous,
J'aimerais effectuer des calculs sur des dates en passant par un USF. Tout est expliqué dans le fichier-joint et l'USF est déjà crée. Merci de bien vouloir commenter les différents codes car je pourrais les adapter pour d'autres calculs. Merci d'avance et bonne journée à toutes et à tous. PS : Merci Didier pour toutes tes contributions qui nous facilitent la vie tous les jours. |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 13-04-2012 19h02
Bonjour criscris11, le Forum,
Tu trouveras en pièce jointe une tentative de réponse à ta demande. J'ai essayé de commenter le code VBA au mieux... Pour info, j'ai d'abord dû apporter quelques légères modifications à ton Userform :
J'ai utilisé le code VBA suivant dans le module de code du Userform : Option Explicit J'ai essayé de répondre au plus près de ta demande et des contraintes exposées : la saisie est limitées et la cohérence des dates est vérifiée (format). Je n'ai toutefois pas fait de contrôle pour m'assurer que la date "DU" est bien inférieure à la date "AU". Cela dit, si tu préfères éviter toute cette usine pour permettre une saisie "simplifiée" et en vérifier la cohérence (format des dates, dates reconnues ou non, etc...), je ne puis que t'inviter à voir du côté du mDF XLcalendar (1) qui joue très bien son rôle pour les TextBox de Userform, permettant d'une part, une saisie conviviale pour l'utilisateur et d'autre part, un code VBA nettement plus light (il n'y a plus lieu de vérifier le format des dates insérées). Cela nécessite toutefois que ce complément mDF XLcalendar soit effectivement installé sur chaque machine devant faire tourner ton classeur... (voir cette FAQ. Pour info, un tutoriel complet est en cours d'écriture pour faire suite à la nouvelle version de cet utilitaire). En espérant t'avoir aidé. Cordialement, (1) Oui, un peu de Pub ! Faut bien que quelqu'un la fasse, hein !? Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 12/07/2008
De RENNES
Messages:
30
Système d'exploitation: PC Version Excel utilisée: 2003 FR |
Posté le : 15-04-2012 12h14
Merci Didier pour ta contribution ainsi que tes explications.
Pour tout te dire, j'utilise sur mon poste de travail XLcalendar 3.0 mais il alors il va falloir que tu m'expliques comment allier la .xla avec les TextBox des USF en attendant le tutoriel complet. Sinon, peut-être une autre piste mais je te laisse le soin de regarder (fichier de developpez.com). Bon dimanche et merci encore. PS : peux-tu me dire comment via le bouton "Validez" saisir uniquement la DRDS trouvée dans la cellule active qui aura été sélectionnée de lancer l'USF ? Merci. |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 15-04-2012 15h46
Bonjour criscris11, le Forum,
En attendant un tutoriel complet pour utiliser toutes les fonctionnalités du mDF XLcalendar version 3 dans les TextBox, il existe la FAQ suivante : « [mDF] Peut-on utiliser le mDF XLcalendar pour saisir des dates dans un TextBox ? ». Elle te donne tout ce qu'il faut savoir pour mettre en pratique l'utilitaire pour date dans ton Userform (ensuite, si tu veux pouvoir jouer sur les spécificités de la version 3 que sont les thèmes couleurs et la transparence, je te donnerai les arguments correspondants). Par ailleurs et concernant ton PS, je n'ai pas compris ta demande. S'il sagit uniquement de récupérer la date DRDS calculée du USF, un simple coup d'oeil sur la procédure btnValider_Click() me semble suffisant pour comprendre :
Private Sub btnValider_Click() Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 12/07/2008
De RENNES
Messages:
30
Système d'exploitation: PC Version Excel utilisée: 2003 FR |
Posté le : 15-04-2012 16h54
Re,
Merci pour le lien en attendant et au besoin je reviendrai poster. Concernant mon PS, j'ai modifié ton code ainsi : Private Sub btnValider_Click() afin de ne remplir uniquement que la DRDS (valeur trouvée via l'USF) dans la cellule active de la feuille car dans mon fichier tout le monde n'est pas forcément concerné par une DRDS et que les dates servant au calcul ne figurent pas dans le fichier. Est-ce que le fichier envoyé est exploitable pour ma demande (cf. format du 4. Résultat) ? Encore merci pour ta patience et la transmission de ton savoir. Cordialement. |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 15-04-2012 17h45
Re criscris11 ,
Citation : criscris11 a écrit : Dans ton post précédent, tu m'as laissé le soin de prendre connaissance de ton fichier joint, mais sauf erreur, je n'ai pas eu l'impression qu'il y avait une demande à la clé... Par ailleurs, si je t'ai proposé l'utilisation du mDF XLcalendar ce n'est pas par pur hasard, ni pour la seule envie d'en faire la pub... A vrai dire, je sentais bien venir une suite à ta question d'origine fort simple Dès ma première réponse, je parlais d'éviter toute usine VBA pour une saisie "simplifiée" et en vérifier la cohérence... Si le fichier démo que tu joins est visiblement complet et de très bonne facture (bravo à Tirex28 de chez DVP !), il n'en demeure pas moins qu'il est un très bel exemple de ce dont je parle ci-dessus. Aussi, si tu veux en tirer parti, je te laisse volontiers la main ou voir avec son auteur... Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 12/07/2008
De RENNES
Messages:
30
Système d'exploitation: PC Version Excel utilisée: 2003 FR |
Posté le : 15-04-2012 18h07
Didier,
Merci pour ta franchise et non pas pour te faire de la pub et vu que j'utilise déjà XLcalendar, je vais me contenter de ta version pour l'utilisation dans mon fichier. Alors dis-moi si je me trompe si j'utilise ce code dans les TextBox où les dates sont à saisir par l'utilisateur : au lieu de : Private Sub txtDu_Exit(ByVal Cancel As MSForms.ReturnBoolean) Private Sub txtDu _DblClick(ByVal Cancel As MSForms.ReturnBoolean) txtDu CalculValid Merci de bien vouloir me corriger le cas échéant et bonne soirée. Cordialement. |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 18/05/2006
De Saône-et-Loire (71)
Messages:
1539
Système d'exploitation: PC Version Excel utilisée: 97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365 |
Posté le : 15-04-2012 20h32
Re,
Oui, je pense que tu as bien compris le principe. Les 2 conditions sont :
Ci-joint le fichier de départ modifié pour utiliser le mDF XLcalendar (si ce complément est bien présent sur la machine) : J'ai remplacé les lignes de code suivantes : Private Sub txtDu_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ... par celles-ci : Private Sub txtAu_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Si tu penses avoir reçu la réponse qui te convient, merci de mettre en pratique ce qui est inscrit au bas de ma signature. Cordialement, Didier_mDF
Le Webmaster La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien |
|
|
Re: Calcul de dates dans un USF | ||
---|---|---|
Inscription: 12/07/2008
De RENNES
Messages:
30
Système d'exploitation: PC Version Excel utilisée: 2003 FR |
Posté le : 15-04-2012 20h48
Re,
Encore merci pour tout. Je pense que ma demande est résolue donc c'est avec grand plaisir que j'ajoute la balise qui va bien. Bonne soirée. |
|
|
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes