Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Écrire la date en sélectionnant une cellule

Écrire la date en sélectionnant une cellule

6 réponses
Avatar
Jules Whittom
J'aimerais que lorsque mon curseur entre dans la cellule C3 par exemple que
la date du jour s'inscrive. Le lendemain je ne veux pas que la date soit
celle du jour mais celle de la veille. Si la date est le 16 septembre, le
lendemain je veux que ce soit encore le 16 septembre. J'aimerais aussi
pouvoir copier vers le bas cette formule.

-Merci!
=======================
Jules Whittom
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe.R
Bonsoir Jules,
Essaies à partir de ceci :

Sub datefixe()
Dim ceLles As Range
For Each ceLles In Selection
ceLles.Value = Date
Next ceLles
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jules Whittom" <http://cerbermail.com/?7WquFk3oSU> a écrit dans le message de
news:
J'aimerais que lorsque mon curseur entre dans la cellule C3 par exemple que
la date du jour s'inscrive. Le lendemain je ne veux pas que la date soit
celle du jour mais celle de la veille. Si la date est le 16 septembre, le
lendemain je veux que ce soit encore le 16 septembre. J'aimerais aussi
pouvoir copier vers le bas cette formule.

-Merci!
====================== > Jules Whittom




Avatar
michdenis
Bonsoir Jules,

copie ce qui suit dans le module Feuille où l'action se déroule .

'-------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not IsDate(Range("C3")) = True Then
Application.EnableEvents = False
Range("C3") = Date
Application.EnableEvents = True
End If

End Sub
'-------------------------


Salutations!



"Jules Whittom" <http://cerbermail.com/?7WquFk3oSU> a écrit dans le message de
news:
J'aimerais que lorsque mon curseur entre dans la cellule C3 par exemple que
la date du jour s'inscrive. Le lendemain je ne veux pas que la date soit
celle du jour mais celle de la veille. Si la date est le 16 septembre, le
lendemain je veux que ce soit encore le 16 septembre. J'aimerais aussi
pouvoir copier vers le bas cette formule.

-Merci!
====================== Jules Whittom
Avatar
sabatier
bonjour jules
peut-être ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell = Date
ActiveCell.Value = ActiveCell.Value
End Sub

à mettre dans le module de la feuille de ton classeur
jps


Jules Whittom a écrit:
J'aimerais que lorsque mon curseur entre dans la cellule C3 par exemple que
la date du jour s'inscrive. Le lendemain je ne veux pas que la date soit
celle du jour mais celle de la veille. Si la date est le 16 septembre, le
lendemain je veux que ce soit encore le 16 septembre. J'aimerais aussi
pouvoir copier vers le bas cette formule.

-Merci!
====================== > Jules Whittom




Avatar
Bourby
bonjour,
je ne suis pas sûr d'avoir compris tout le besoin. Mais j'ai installé dans ma barre de menus (+ raccourci clavier) cette petite macro, dont je me sers très souvent, dans n'importe quelle cellule.
Sub dater()
ActiveCell.Value = Date
End Sub
Si je rouvre le classeur le lendemain, la date initiale est effectivement conservée.
Faut-il vraiment faire plus compliqué?



"Jules Whittom" <http://cerbermail.com/?7WquFk3oSU> a écrit dans le message news:
J'aimerais que lorsque mon curseur entre dans la cellule C3 par exemple que
la date du jour s'inscrive. Le lendemain je ne veux pas que la date soit
celle du jour mais celle de la veille. Si la date est le 16 septembre, le
lendemain je veux que ce soit encore le 16 septembre. J'aimerais aussi
pouvoir copier vers le bas cette formule.

-Merci!
====================== Jules Whittom
Avatar
Dédé
Salut Bourby !

Si cela te convient, il n'y a pas de raisons de faire plus compliqué ;-))


Par contre, si ta macro devrait introduire la date du jour, toujours dans la
même cellule ou dans la même plage de cellule.... tu pourrait utiliser la
formule suivante qui t'évviterais de faire un nouveau bouton dans une barre
d'outil ...

Private Sub Worksheet_SelectionChange(ByVal DD As Range)
If Not Intersect(DD, [A1]) Is Nothing Then
[A1] = Date
End If
End Sub

Intersect(DD,[A1]) = plage sur laquelle va démarrer la macro à sa sélection

[A1] = date = Adresse de la cellule où sera inséré la datre du jour ;-))

Est-ce que cela te convient ?

Salutations
Dédé

"Bourby" a écrit dans le message de
news:
bonjour,
je ne suis pas sûr d'avoir compris tout le besoin. Mais j'ai installé dans
ma barre de menus (+ raccourci clavier) cette petite macro, dont je me sers

très souvent, dans n'importe quelle cellule.
Sub dater()
ActiveCell.Value = Date
End Sub
Si je rouvre le classeur le lendemain, la date initiale est effectivement
conservée.

Faut-il vraiment faire plus compliqué?



"Jules Whittom" <http://cerbermail.com/?7WquFk3oSU> a écrit dans le
message news:

J'aimerais que lorsque mon curseur entre dans la cellule C3 par exemple
que

la date du jour s'inscrive. Le lendemain je ne veux pas que la date soit
celle du jour mais celle de la veille. Si la date est le 16 septembre, le
lendemain je veux que ce soit encore le 16 septembre. J'aimerais aussi
pouvoir copier vers le bas cette formule.

-Merci!
====================== > Jules Whittom






Avatar
Bourby
oui, merci bien


"Dédé" a écrit dans le message news:

Salut Bourby !

Si cela te convient, il n'y a pas de raisons de faire plus compliqué ;-))


Par contre, si ta macro devrait introduire la date du jour, toujours dans
la

même cellule ou dans la même plage de cellule.... tu pourrait utiliser la
formule suivante qui t'évviterais de faire un nouveau bouton dans une
barre

d'outil ...

Private Sub Worksheet_SelectionChange(ByVal DD As Range)
If Not Intersect(DD, [A1]) Is Nothing Then
[A1] = Date
End If
End Sub

Intersect(DD,[A1]) = plage sur laquelle va démarrer la macro à sa
sélection


[A1] = date = Adresse de la cellule où sera inséré la datre du jour ;-))

Est-ce que cela te convient ?

Salutations
Dédé

"Bourby" a écrit dans le message de
news:
bonjour,
je ne suis pas sûr d'avoir compris tout le besoin. Mais j'ai installé
dans


ma barre de menus (+ raccourci clavier) cette petite macro, dont je me
sers

très souvent, dans n'importe quelle cellule.
Sub dater()
ActiveCell.Value = Date
End Sub
Si je rouvre le classeur le lendemain, la date initiale est
effectivement


conservée.
Faut-il vraiment faire plus compliqué?



"Jules Whittom" <http://cerbermail.com/?7WquFk3oSU> a écrit dans le
message news:

J'aimerais que lorsque mon curseur entre dans la cellule C3 par exemple
que

la date du jour s'inscrive. Le lendemain je ne veux pas que la date
soit


celle du jour mais celle de la veille. Si la date est le 16 septembre,
le


lendemain je veux que ce soit encore le 16 septembre. J'aimerais aussi
pouvoir copier vers le bas cette formule.

-Merci!
====================== > > Jules Whittom