Problème date du jour

Bonjour,

j'aimerai à partir d'un bouton, qu'une macro m'affiche la date du jour sur la premiere cellule vide d'une colonne

j'ai donc écrit ceci

Sub Bouton2_Clic()

Range("O100").End(xlDown).Offset(1, 0) = Date

End Sub

Mais ceci ne fonctionne pas

Quelqu'un pourrait m'aider ?

Merci d'avance


Désolé je viens de comprendre mon erreur

Par contre j'aimerai que la date se mette en colonne O si on est en 2013 mais qu'elle se mette en P si la date du jour est 2014.

Merci d'avance

Sub Bouton2_Clic()
select case year(date)
case 2013
Range("O" & rows.count).End(xlup).Offset(1, 0) = Date
case 2014
Range("P" & rows.count).End(xlup).Offset(1, 0) = Date
end select
End Sub

Merci

Rechercher des sujets similaires à "probleme date jour"