Vba date du jour mais modifiable (ds formulaire)

Résolu/Fermé
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 - 16 oct. 2018 à 12:15
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 - 17 oct. 2018 à 10:50
Bonjour à tous,

j'ai besoins que dans un formulaire, il y ai un champs avec la date du jour ... sur le principe c'est ok, j'ai mis sur le tableau la formule aujourd'hui() puis en vba ai demandé que cette information arrive sur le formulaire. Mais il faudrait que cette date dans le formulaire soit modifiable en cas de besoin. Comment dois je faire ? (je suis trés novice dans le vba) :

Private Sub TB1date_Change()
TB1date.Value = Feuil6.Range("e2").Value
End Sub

De plus je suis obligée de taper une lettre ou un chiffre dans la case de la date pour que cette commande s'effectue, comment faire pour qu'elle s'affiche automatiquement dans le formulaire ?

merci de vos réponses .... simples :)
Bonne journée


A voir également:

1 réponse

fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
16 oct. 2018 à 16:21
Bonjour,

Ca sera mieux avec un fichier exemple et anonymisé
pour joindre ton fichier
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier (15 Mo maxi)
3) Tu défiles vers le bas pour cliquer sur le bouton bleu [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien en gras ; tu fais un clic-droit dessus et tu choisis "Copier le lien"
5) Tu reviens dans ta discussion sur CCM, et dans ton message tu fais "Coller".
=>Voir la fiche https://www.commentcamarche.net/faq/29493-utiliser-cjoint-pour-heberger-des-fichiers

dans le même style tu as https://mon-partage.fr/

0
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
16 oct. 2018 à 17:57
Bonjour fabien25000,
Voici le tableau (trés simplifié lol )
https://www.cjoint.com/c/HJqp4UWyZWl
Merci :)
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 59
17 oct. 2018 à 08:41
Bonjour,
si je comprend bien c'est ça que tu cherches

Private Sub UserForm_Initialize()
    TextBox1.Value = Format(Now, "dd/mm/yyyy")
End Sub


perso le remplissage de A8 je le programmerai plutôt sur un bouton "valider" que sur l'événement change...
0
guerando Messages postés 331 Date d'inscription mercredi 31 mars 2010 Statut Membre Dernière intervention 6 mai 2023 6
17 oct. 2018 à 10:50
merci fabien, ca marche super bien :) :)
0