Forums XLPages

Tous les messages (criscris11)

« 1 2 3
Re: Calculs de dates en VBA
#21
Aspirant XLPages

Inscription: 12/07/2008
De RENNES

Messages: 30

Système d'exploitation:
PC
Version Excel utilisée:
2003 FR
Posté le : 24-05-2012 22h03
Didier,
En testant un peu plus en profondeur (je me met à la place du novice qui va utiliser l'USF), j'ai découvert un léger bug : quand la date est saisie et que l'on rentre un nombre d'années dans le contrôle correspondant, le bouton Validez ne s'active pas alors qu'il y aura certains cas où on n'aura à ajouter qu'un certain nombre d'années uniquement.
Merci de ta compréhension.

Oui désolé, l'habitude sans doute : cela ne se reproduira plus

Hors Ligne
Rapport   Haut 

Re: Calculs de dates en VBA
#22
Aspirant XLPages

Inscription: 12/07/2008
De RENNES

Messages: 30

Système d'exploitation:
PC
Version Excel utilisée:
2003 FR
Posté le : 24-05-2012 21h39
Merci Didier pour ton aide : cela me donne déjà plein d'idées pour améliorer mon idée de départ grâce à tes compétences tant techniques que pédagogiques.

D'ici la fin de ce long week-end, je pense que j'aurai finalisé mon projet (voir peut-être même 2 modèles différents si j'ai le temps) et c'est avec plaisir que je viendrai clôturer ce fil avec le ou les fichiers concernés. Je comprends tout à fait ton point de vue concernant la section Téléchargement et j'adhère entièrement à ton principe donc je ne me sentirai en cas offusqué (et qui plus est on ne vas pas se fâché entre Bourguignons car si je suis à Rennes depuis 1991 je ne vais pas renier mes origines Côte d'Oriennes car né à Dijon. Je ne sais pas si tu es Bourguignon d'origine mais pour moi cela ne change rien bien au contraire).

Merci encore pour ton aide très précieuse et te souhaite une très bonne soirée.
A bientôt sur le forum.

Amitiés Xldiennes.
Hors Ligne
Rapport   Haut 

Re: Calculs de dates en VBA
#23
Aspirant XLPages

Inscription: 12/07/2008
De RENNES

Messages: 30

Système d'exploitation:
PC
Version Excel utilisée:
2003 FR
Posté le : 24-05-2012 14h45
Bonjour Didier, le forum,
Didier, comme promis je viens te donner des nouvelles. J'ai bien réussi à reproduire le code dans mon fichier et qui plus est j'ai même réussi à programmer moi-même la troisième partie (pas trop dur tu me diras car tu as bien mâché le travail mais quand même...) : en tout cas merci pour le partage de tes connaissances.

Il me reste toutefois 2 petits détails à régler mais qui ne devrait pas trop te poser de problèmes : dans la 2ème et 3ème partie, j'ai rajouté un bouton "Validez" qui insère la date obtenue dans la cellule active et je voudrais que ce bouton soit actif seulement si la date est saisie (cà c'est bon : btnCalculValid2.Enabled = D1 <> 0) et si au moins l'une des 3 Textbox (années, mois, jours) a été renseignée (et là c'est pas bon) ou peut-être plus simple ne faire apparaître la date cherchée que si les deux conditions ci-dessus soient remplies auquel je rendrais le bouton actif si une date apparaît dans le label résultat.

Deuxième chose, plus optionnelle celle-ci, comment rendre cet USF plus esthétique d'un point de vue visuel ?

Sache d'ores et déjà que je serais honorer de poster mon fichier une fois finalisé, avec ton accord il en va de soi, sur ton site afin qu'il puisse servir d'exemple aux membres du forum.

Encore merci pour tout et à bientôt.
Cordialement.
Hors Ligne
Rapport   Haut 

Re: Calculs de dates en VBA
#24
Aspirant XLPages

Inscription: 12/07/2008
De RENNES

Messages: 30

Système d'exploitation:
PC
Version Excel utilisée:
2003 FR
Posté le : 23-05-2012 23h27
Merci Didier pour ta réponse. Je vais tester tout cela demain et je n'hésiterai pas à te tenir informé : tout cela à titre d'exercice bien sûr ...
Bonne soirée.
Hors Ligne
Rapport   Haut 

Calculs de dates en VBA
#25
Aspirant XLPages

Inscription: 12/07/2008
De RENNES

Messages: 30

Système d'exploitation:
PC
Version Excel utilisée:
2003 FR
Posté le : 23-05-2012 21h12
Bonsoir,
Suite à mon précédent post sur les dates en VBA et grâce à Didier, je suis reparti de son fichier d'origine en divisant l'USF en trois parties : la première permet de calculer une durée=> là pas de problème grâce à notre serviteur. Mais pour la deuxième et troisième partie, je cherche à calculer une date de fin ou de début en additionnant ou soustrayant une durée en années, mois et jours. J'ai trouvé avec la fonction DateAdd mais je n'arrive qu'à écrire le code pour les années (cf. CalculValid2) et je n'arrive pas à y imbriquer les mois et les jours. Est ce la bonne procédure ?
PS : de même dès que j'ai fini de saisir la date, le calcul se déclenche alors que les 3 textbox sont forcément vides.

Merci d'avance pour vos réponses et bonne soirée.
Pièce jointe:
zip mDF_CalculDates.zip   [ Taille: 22.69 Ko - Téléchargements: 952 ]
Hors Ligne
Rapport   Haut 

Re: Calcul de dates dans un USF
#26
Aspirant XLPages

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.
Hors Ligne
Rapport   Haut 

Re: Calcul de dates dans un USF
#27
Aspirant XLPages

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)
Dim T As String
    T = FormatDate(txtDu.Text)
    If T <> "" Then
        txtDu.Text = T
        CalculValid     'calcul et autorisation de validation
    Else
        Cancel = True   'le focus reste sur le textbox pour correction
    End If
End Sub
je dois modifier comme tel :

Private Sub txtDu_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Cancel = True
    mDFXLcalShow CalCtrl:=
txtDu
    CalculValid
End Sub

Merci de bien vouloir me corriger le cas échéant et bonne soirée.
Cordialement.



Hors Ligne
Rapport   Haut 

Re: Calcul de dates dans un USF
#28
Aspirant XLPages

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()
    'Mettre à jour la feuille de calcul
    'DateValue() est indispensable pour de "vraies" dates dans les cellules
    ActiveCell.Value = DateValue(lblDRDS.Caption)
    Unload Me
End Sub

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.
Hors Ligne
Rapport   Haut 

Re: Calcul de dates dans un USF
#29
Aspirant XLPages

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.
Pièce jointe:
zip DVP DemoDateBox.zip   [ Taille: 44.33 Ko - Téléchargements: 523 ]
Hors Ligne
Rapport   Haut 

Calcul de dates dans un USF
#30
Aspirant XLPages

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.



Pièce jointe:
xls Calcul dates via USF.xls   [ Taille: 25.50 Ko - Téléchargements: 501 ]
Hors Ligne
Rapport   Haut 

« 1 2 3