Insérer une année par défaut dans une textbox-2020

Bonjour.

J'ai lu plein de messages sur les forums avant de poster ceci.

Je fais d'abord un test pour afficher un bouton, et je souhaiterais qu'à l'ouverture du formulaire ma textbox afficher l'année en cours.

J'ai essayé plein de trucs différents, mais rien en semble marcher. Si vous avez une solution, je suis preneur. Merci d'avance à vous tous.

PS: hésitez pas à me dire en détaille ce qui merdouille, je suis vraiment novice.

voici mon code, tout bête:

Private Sub txtYear_Change()

'Tester si Annee <2030, Annee >2010 et nb de caracteres =4, afficher le bouton si c'est le cas.

If txtYear > 2010 And Len(txtYear) = 4 And txtYear < 2030 Then

btnNew.Enabled = True

Else

btnNew.Enabled = False

End If

textYear.Value = Year(Now)

End Sub

Bonjour,

dans le menu option de la TextBox, il suffit d'inscrire 2020 dans "Value"

Bonjour:)

Je sais bien, c'est ce que j'ai déjà fait, mais on m'a demandé de changer ça en fonction de l'année, pour pas avoir à retoucher ça dans quelques mois...

Bonjour,

As-tu essayé comme ceci ?

Private Sub txtYear_Initialize()
textYear.Value = Year(Now)

End Sub

Bonjour, et merci de votre réponse.

Je viens d'essayer votre code, ça ne marche pas.

Bonjour Arkendil, le Forum,

Si c'est à l'ouverture du formulaire.

Private sub UserForm_Initialize()
textYear= Year(Now())
End sub

Bonne continuation.

Bonjour, Voilà ce que j'ai mis à l'ouverture du formulaire:

'************************

' Afficher le formulaire

'************************

Sub OuvreFormulaire()

Sheets("DATA").Activate

frnSaisie.Show

End Sub

Private Sub OuvreFormulaire_Initialize()

textYear = Year(Now())

End Sub

La date ne s'affiche pas. Merci quand même pour votre réponse

edit : je dis n'imp'

A nouveau,

Recopie le code posté dans le code de ton Userform. Pas dans le code d'un module.

Ouvre l'éditeur VBA et séléctionne ton formulaire puis par clic droit choisis code.

Merci beaucoup, ça a fonctionné!

txt au lieu de text.... Merci à tous pour vos réponses.