Discussion :

[tessteur_tt]

Bonjour,

Je souhaiterais lorsque je saisis la date dans un Textbox sur une Useform, cela recupère l'année de la date que j'ai saisis, et l'envoi dans un
Sheets("XXXX").Activate automatiquement, lorque je clique sur un bonton Validation, lui aussi placé dans mon useform. les "XXXX" représenterais l'année alors saisie.

Merci beaucoup d'avance !

[issoram]

Bonjour,

Pour récupérer l'année de ton TextBox (si la date est saisie dans un format correct)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim annee as Integer
annee =Year(Cdate(TonTextBox.Text))

Pour l'envoyer dans la cellule A1 de la feuille XXXX (annee), si elle existe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets(annee).range("A1").Value=annee