Date dans une cellule a partir d'un userform

Bonsoir,

je suis à la recherche d'un petit bout de code qui me permettrais de renvoyer l'année actuel dans une cellule

voici mon code:

With Sheets("Données").Select
    Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = TextBox1 = ANNEE   'pour mettre l'année

que j'ai tester et il me renvoie la valeur FAUX sur ma feuille

merci de votre retour

Salut Ploz,

à vue de nez, comme ça, je dirais plutôt :

With Sheets("Données").Select
    .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Value = Year (Now)   'pour mettre l'année

... avec un point "." devant .Cells puisque tu demandes With...

A+

Bonjour Curulis,

merci beaucoup =)