XL 2016 aide améliorer code = ajout calendrier [RESOLU]

[Dudesson]

Bonjour @mapomme ,
bonjour le forum,
je reviens avec ce fichier dejà traité ici = https://www.excel-downloads.com/threads/extraction-donnees-sous-conditions-resolu.20032044/

j'ai ajouté des choses sur ce qui a été fait et surtout un calendrier trouvé sur le net pour ajouter les dates de début et de fin mais les infos ne sont plus correctes et je n'arrive pas à mettre le doigt sur ce qui cloche.

ce que j'ai essayé de faire, c'est double cliquer sur B1 --> l'userform avec calendrier s'affiche-->cliquer sur date sur le calendrier-->cliquer sur textbox pour insérer la date.
et valider pour afficher les dates en B1 et E1 et exécuter dans la foulée le code de @mapomme que j'ai ajouté au code du CommandButton1.
initialement ce code était sur la feuille Extraits.
le but est de supprimer le bouton qui est sur la feuille Extraits et donc choisir date et exécuter l'extraction via le bouton valider de l'userform.

j'ai sans doute mal goupillé tout ça, ce qui affecte aussi le résultat.
merci d'avance pour votre aide.
Pedro.

 

[pierrejean]

Bonjour Dudesson
et Salut a lapomme si elle passe par la

Ne pas oublier qu'une textbox ne contient que du texte d'ou:

ActiveCell.Offset(0, 0) = CDate(TD)
ActiveCell.Offset(0, 3) = CDate(TF)

 

[Dudesson]

bonjour @pierrejean ,
c'était ça le problème.
là ça fonctionne nickel, merci pour le tuyau. affaire résolue.
merci à @mapomme .
Pedro.

 

[Dudesson]

rebonjour @pierrejean ,
dans la même veine, comment mettre ce TextBox au format date?
With .TxtB_Date_Transfert
.Value = Format(Date, "dd/mm/yyyy")
.Tag = Format(Date, "00000")
End With
Merci.
Pedro.

 

[pierrejean]

Re

La value restera du texte et lors du transfert il faudra utiliser Cdate(Txt_Date)
Pour le tag:
.tag=Date

 

[Dudesson]

et encore merci.