Mise en place Date auto avec label

Julien77 · 28 Juillet 2010

Bonsoir forum,

Je souhaite trouver un moyen d introduire une date automatique. J ai utilisé la formule excel mais n importe qui peut l effacer. Y a t il une possibilité depuis un label par exemple de coder afin d obtenir automatiquement a l ouverture du fichier en feuille1 la date du jour?

ROGER2327 · 28 Juillet 2010

Re : Mise en place Date auto avec label

Bonsoir Julien77

Voyez une proposition dans le classeur joint.

ROGER2327
#3976

Samedi 14 Tatane 137 (Sainte Anne, Pèlerine, énergumène, SQ)
9 Thermidor An CCXVIII
2010-W30-2T23:51:07Z

Papou-net · 28 Juillet 2010

Re : Mise en place Date auto avec label

Bonjour Julien77, ROGER2327,

Une solution par macro, sans protection de la feuille.

Espérant avoir contribué.

Cordialement.

Julien77 · 28 Juillet 2010

Re : Mise en place Date auto avec label

Super merci les mecs,

Papou.net : ta macro est intérésante mais j ai pas envie de faire du copier/coller, 1. peux tu traduire, meme si je connais certaines choses, ton code mot a mot surtout sur cette ecriture

ByVal Target As Range

Quelle est la signification, l utilité ?

Julien77 · 28 Juillet 2010

Re : Mise en place Date auto avec label

J'ai 2 modules et differentes feuilles dont la feuille 1, l'endroit ou je souhaiterais affiché la date du jour.

A quel endroit serait il mieux de le placer ? en feuille1 en placant le code, j ai fait "Execution" "Executer Sub/User" jai une fenetre "macro", pourquoi ?

Papou-net · 28 Juillet 2010

Re : Mise en place Date auto avec label

Julien77 à dit:
Super merci les mecs,

Papou.net : ta macro est intérésante mais j ai pas envie de faire du copier/coller, 1. peux tu traduire, meme si je connais certaines choses, ton code mot a mot surtout sur cette ecriture

Quelle est la signification, l utilité ?

RE: Julien77

Quelques précisions :

- A chaque activation du classeur, la cellule A1 de la feuille 1 est remise à jour avec la date du jour :

Code:

Private Sub Workbook_Activate()
Sheets("Feuil1").Range("A1") = Format(Now, "dd/mm/yyyy")
End Sub

- A chaque fois qu'une saisie est faite sur la feuille 1, la date du jour est réécrite dans la cellule A1. De ce fait, l'effacement de la cellule A1 n'est plus possible :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1") = Format(Now, "dd/mm/yyyy")
End Sub

On aurait pu tester la cellule modifiée en utilisant Target, mais comme l'instruction est très courte, je n'ai pas jugé bon de le faire. Toutefois, je te mets la solution ci-dessous :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then Target.Value = Format(Now, "dd/mm/yyyy")
End Sub

Dans ce cas, la mise à jour de A1 ne se fait que si on modifie A1.

Ceci doit donc répondre à ta question concernant Target : cette variable, qui cible la cellule modifiée, est automatiquement définie par VBA lorsque l'on choisit l'événement Change d'un module de feuille de calcul.

Espérant avoir répondu.

Cordialement.

Papou-net · 28 Juillet 2010

Re : Mise en place Date auto avec label

Julien77 à dit:
J'ai 2 modules et differentes feuilles dont la feuille 1, l'endroit ou je souhaiterais affiché la date du jour.

A quel endroit serait il mieux de le placer ? en feuille1 en placant le code, j ai fait "Execution" "Executer Sub/User" jai une fenetre "macro", pourquoi ?

Tout simplement parce que tu ne peux pas exécuter une procédure (macro) événementielle. Pour ce faire, tu dois créer un nouveau module de code (VBA, menu Insertion...Module) et réécrire la macro dans ce nouveau module.

Ex :

Code:

Sub MaJDateJour()
Sheets("Feuil1").Range("A1") = Format(Now, "dd/mm/yyyy")
End Sub

D'ailleurs, je te joins le fichier modifié selon ce principe.

Bonne journée.

Cordialement.

Mise en place Date auto avec label

Julien77

Guest

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

Julien77

Guest

Julien77

Guest

Papou-net

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Mise en place Date auto avec label

Julien77

Guest

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Papou-net

XLDnaute Barbatruc

Pièces jointes

Julien77

Guest

Julien77

Guest

Papou-net

XLDnaute Barbatruc

Papou-net

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency