Faire une macro qui inscrit la date du jour

bbb38

XLDnaute Accro

• 19 Décembre 2011

• #2

Re : Faire une macro qui inscrit la date du jour

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

 

Pièces jointes

• Date du jour excel 2003.xls

  31 KB · Affichages: 95

Dernière édition: 19 Décembre 2011

Vote positif 0 Vote négatif

S

stefan373

XLDnaute Occasionnel

• 19 Décembre 2011

• #3

Re : Faire une macro qui inscrit la date du jour

Bonjour fd.30, bbb38 et le forum,

A placer dans votre bouton.

Code:

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

A +

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Décembre 2011

• #4

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

Cliquez pour agrandir...

Pas d'espace après le ;

Edit : Ou plus simplement

SendKeys "^(; )~"

Cliquez pour agrandir...

 

Dernière édition: 19 Décembre 2011

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Décembre 2011

• #5

Re : Faire une macro qui inscrit la date du jour

Bonjour à tous

A tester et à adapter:

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Décembre 2011

• #6

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)

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

Supporter XLD

• 19 Décembre 2011

• #7

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; )

Cliquez pour agrandir...

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2011

• #8

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...

Cliquez pour agrandir...

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; 😉

 

Dernière édition: 20 Décembre 2011

Vote positif 0 Vote négatif

F

fd.30

XLDnaute Junior

• 20 Décembre 2011

• #9

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.

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Décembre 2011

• #10

Re : Faire une macro qui inscrit la date du jour

Re

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

Code:

'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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2011

• #11

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)

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Décembre 2011

• #12

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)

Cliquez pour agrandir...

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

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Décembre 2011

• #13

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)

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 20 Décembre 2011

• #14

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

Cliquez pour agrandir...

Sinon, il faut aller consulter la charte 😱.

 

Vote positif 0 Vote négatif

M

mprexcel

Guest

• 20 Décembre 2011

• #15

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

 

Vote positif 0 Vote négatif