Faire une macro qui inscrit la date du jour

[fd.30]

Bonjour,

Je voudrais une macro qui inscrive (quand je clique sur un bouton) la date du jour dans la colonne B.
A chaque clic sur le bouton, que les dates s'ajoutent à la liste.

exemple:
1er clic : date du jour en B1
2ème clic : date du jour en B2
3ème clic : date du jour en B3
etc...

Merci d'avance pour votre aide très précieuse
A bientôt

 

[bbb38]

Re : Faire une macro qui inscrit la date du jour

Bonjour fd.30, le forum,
Un exemple dans le fichier ci-joint.
Cordialement,
Bernard

 

[stefan373]

Re : Faire une macro qui inscrit la date du jour

Bonjour fd.30, bbb38 et le forum,

A placer dans votre bouton.

Range("A65536").End(xlUp).Offset(1, 0) = DateValue(Date)

A +

 

[Victor21]

Re : Faire une macro qui inscrit la date du jour

Bonjour, fd.30, le forum

A tester :

Sub DateEnColA()
Range("A65536").End(xlUp).Rows.Offset(1, 0).Select
SendKeys "^(; )"
SendKeys "~"
End Sub

Pas d'espace après le ;

Edit : Ou plus simplement

SendKeys "^(; )~"

 

[MJ13]

Re : Faire une macro qui inscrit la date du jour

Bonjour à tous

A tester et à adapter:

Sub test()
ActiveCell.Value = Format(Now, "DD/MM/YYYY")
End Sub

 

[Staple1600]

Re : Faire une macro qui inscrit la date du jour

Bonsoir à tous

Peut-on m'expliquer l’intérêt d'une macro dans ce cas ????
Un simple CTRL+Fin ENTER CTRL; pourrait suffire
(ou CTRL+Fin FLECHE BAS CTRL; )

(C'est d'ailleurs ce que fait Victor21 avec SendKeys)

 

[Victor21]

Re : Faire une macro qui inscrit la date du jour

Bonsoir, Staple1600.

Un simple CTRL+Fin ENTER CTRL; pourrait suffire
(ou CTRL+Fin FLECHE BAS CTRL; )

Et même un ctrl + pointvirgule...
Mais pourquoi faire simple ?

Nota : par contre je n'ai pas réussi à mettre avec un seul SendKeys la date et l'heure séparées par un espace.
Obligé d'en mettre 3

Sub DateEtHeureEnColA()
Range("A65536").End(xlUp).Rows.Offset(1, 0).Select
SendKeys "^(; )"
SendKeys Chr(32)
SendKeys "^ )~"
End Sub

 

[Staple1600]

Re : Faire une macro qui inscrit la date du jour

Re

Victor21
Le CRTL FIN FLECHE BAS c'était pour à chaque ouverture atteindre la première cellule vide de la colonne B

exemple:
1er clic : date du jour en B1
2ème clic : date du jour en B2
3ème clic : date du jour en B3
etc...

PS: Tiens c'est marrant, sous Vista, ton code génère une erreur
Erreur 70
Permission refusée

EDITION : La solution : Désactiver le Contrôle de compte d'utilisateur... (Ah ce maudit UAC !! )
Raison de plus pour se contenter d'un simple CTRL;

 

[fd.30]

Re : Faire une macro qui inscrit la date du jour

Merci beaucoup à tous pour votre collaboration.
J'ai testé le fichier en PJ de bbb38; sa solution me convient tout à fait. C'est exactement ce que je voulais.

 

[MJ13]

Re : Faire une macro qui inscrit la date du jour

Re

Sinon on peut aussi l'écrire ainsi avec ces codes :

'Option Explicit
 Sub DateJour()
  'Dim xdlgn As Single
  xdlgn = Range("B" & Rows.Count).End(xlUp).Row + 1
  Range("B" & xdlgn) = Date
End Sub
Sub DateJour2()
colonne = 2
Cells(Cells(Rows.Count, colonne).End(xlUp).Row + 1, colonne) = Date
End Sub
Sub DateSendkeys()
SendKeys ("^{Down}^{up}{Down}^;~")
End Sub

 

[Staple1600]

Re : Faire une macro qui inscrit la date du jour

Bonsoir M13


Certes, mais pourquoi une macro pour si peu?
N'est il pas sage parfois de savoir ne pas utiliser le VBA mais simplement les fonctions natives d'Excel ?
(De plus SendKeys à tendance à jouer de vilains tours)

 

[MJ13]

Re : Faire une macro qui inscrit la date du jour

Re

Certes, mais pourquoi une macro pour si peu?
N'est il pas sage parfois de savoir ne pas utiliser le VBA mais simplement les fonctions natives d'Excel ?
(De plus SendKeys à tendance à jouer de vilains tours)

Oui, bon, moi, j'essaye de répondre à la question .

Après, toute personne normale, a le droit de vouloir le faire en macro .

 

[Staple1600]

Re : Faire une macro qui inscrit la date du jour

Re

Rien n'interdit de répondre à la question en donnant un avis personnel.
(C'est ce que j'ai fait)

 

[MJ13]

Re : Faire une macro qui inscrit la date du jour

Re

Jean-marie: Au départ de la discussion, il était bien écrit:

Je voudrais une macro qui inscrive

Sinon, il faut aller consulter la charte .

 

[mprexcel]

Re : Faire une macro qui inscrit la date du jour

Bonsoir à tous,
Pour abonder dans le sens de Staple, et pour rendre hommage au site qui m'a mis le pied à l'étrier en Excel et en VBA :
Ce lien n'existe plus
Et l'officiel de Bill :
Touches de fonction et de raccourci d'Excel - Excel - Office.com
Bonne soirée,
Michel