transfert d'une valeur d'une cellule à une autre

[pascal21]

bonjour le forum
comme il y a longtemps que je ne pratique d'excel, j'ai perdu un peu la main
dans une cellule, disons A1 j'ai une date d'embauche dans l'année en cours ex 1/5/2016
je cherche un code VBA qui permet de transferer cette date en B1 au 1er janvier de l'année suivante et ensuite d'effacer A1
pour essayer d'etre un peu plus clair, au 1er janvier il faut que b1 prenne la valeur de A1 de façon définitve
le soucis que j'ai avec les essais que je fais c'est que à chaque fois le code se repete et comme a1 est vide alors b1 se vide
ca marche pas
merci de votre aide

 

[DoubleZero]

Bonjour, pascal21, le Forum,

Pas de fichier exemple ?

Un essai... à adapter :

Option Explicit
Sub CommandButton1_Click()
    If Year(Date) > Selection(Date) Then Selection.Offset(, 1) = Selection: Selection = ""
End Sub

A bientôt

 

[pascal21]

Merci j'essaierai s'adapter