date du jour par un bouton

[JPS28]

Bonsoir a tous.
Je fais appel a vous car je soufaiterais par l'intermadière d'un bouton mettre la date du jour dans la cellule A1 j'ai essayé plusieurs fois et je me retrouve toujours avec une erreur de syntaxe quelqu'un peut il m'aider? Merci
Cordialement.
JPS

 

[Staple1600]

Re : date du jour par un bouton

Bonsoir



Range("A1")=Date

Pour un bouton de la barre d'outils formulaire

Sub Bouton1_QuandClic()
[A1] = Date
End Sub

avec un bouton de la barre d'outils controle

Private Sub CommandButton1_Click()
[A1] = Date
End Sub

Pour insérer la date avec une formule

Private Sub CommandButton1_Click()
[A1].FormulaLocal = "=AUJOURDHUI()"
End Sub

 

[JPS28]

Re : date du jour par un bouton

Bonsoir Staple1600 le forum.
Merci beaucoup.C'était pour un bouton de la barre d'outils formulaire. C'étaits si imple fallait il connaitre la bonne phrase et mettre les termes dans le bon sens et éviter de mettre la charue avant boeufs.
merci encore Staple1600.
Cordialement.
JPS