Figer date "=Aujourd'hui" à la date de saisie

Bonjour,

Je fais des saisies de documents tous les jours avec une colonne "Date"

J'aimerais que dans la cellule correspondant à la date, je puisse avoir une formule qui me fige la date du jour de saisie.

Ainsi, le lendemain, le document affichera toujours la date de la veille (saisie) et non du jour, et ainsi de suite...

Ça doit être possible, mais je ne vois pas comment.

Merci de m'indiquer comment on peut faire.

Cordialement

Fat

Bonjour le forum,

Saisir la date avec les touches CTRL;

Je cherche une saisie automatique de la date si possible, et qui reste figée après.

A+

Bonjour,

Tu peux copier le code suivant dans le module de ta feuille ...

Avec un double clic .... tu obtiens ta date du jour ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Target = Date
   Target.Value = Target.Value
   Cancel = True
End Sub

En espèrant que cela t'aide

Oui, ça marche très bien avec le double clik dans la cellule.

Mais je voudrais que le lendemain, la date reste figée à la date de saisie !

Quoi faire SVP ?

Re,

C'est déjà le cas ... !!!

Bis :

Saisir la date avec les touches CTRL;

Salut le Forum, Salut James,

Autant pour moi !

Oui, ça fonctionne parfaitement.

Merci pour cette "mmm" (mini macro magique)

A bientôt

Cordialement

Fat

Ravi que cela fonctionne ... comme tu le voulais ...

Et un grand Merci ... pour tes remerciements ...

Entre nous ... EXCEL est MAGIQUE ....

James007 a écrit :

Bonjour,

Tu peux copier le code suivant dans le module de ta feuille ...

Avec un double clic .... tu obtiens ta date du jour ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Target = Date
   Target.Value = Target.Value
   Cancel = True
End Sub

En espèrant que cela t'aide

cette fonction m'interresse mais ou reporter ce code dans excel 2016 svp ?

merci d'avance

adel-542 a écrit :

James007 a écrit :

Bonjour,

Tu peux copier le code suivant dans le module de ta feuille ...

Avec un double clic .... tu obtiens ta date du jour ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Target = Date
   Target.Value = Target.Value
   Cancel = True
End Sub

En espèrant que cela t'aide

cette fonction m'interresse mais ou reporter ce code dans excel 2016 svp ?

merci d'avance

Bonjour,

Cette macro doit être sauvegarder dans le module de la feuille concernée ....

James007 a écrit :

adel-542 a écrit :

James007 a écrit :

Bonjour,

Tu peux copier le code suivant dans le module de ta feuille ...

Avec un double clic .... tu obtiens ta date du jour ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Target = Date
   Target.Value = Target.Value
   Cancel = True
End Sub

En espèrant que cela t'aide

cette fonction m'interresse mais ou reporter ce code dans excel 2016 svp ?

merci d'avance

Bonjour,

Cette macro doit être sauvegarder dans le module de la feuille concernée ....

jai bien ouvert un module mais quand je copie le texte je narrive pas a le sauvegarder et donc encore moins a le retrouver. Mais ensuite comment l'appliquer si je ne veux pas creer de bouton spécifique mais juste l'appliquer a une cellule?

Re,

Effectivement ... il n'y a besoin d'aucun bouton ...

Puisque tu éprouves quelques difficultés ... je te propose de joindre ton fichier ...

Je te joint mon fichier,

https://www.cjoint.com/c/GLqk4VnL1WR

alors voila en fait les cases bleues ce sont les contrôles pH realisés le 16/12 et en orange les contrôles réalisés le 17/12 mais ce serait bien que la date se rentre automatiquement uniquement lorsque les contrôles sont réalisés (lorsque la valeur dans la colonne pH est renseignés la date du jour s’affiche et ne change pas le lendemain)

genre quand la case correspondant au pH n'est pas encore renseigné il n'y a pas la date du jour qui s'affiche

je ne sais pas si cela est bien clair ^^"

Re,

Ton explication est très claire ...

Je constate qu'il y a même ...(et ce n'est pas facile ...) les relevés de ... demain ... !!!

Je te prépare l'adaptation ...

oui c'est juste un exemple c'est pour adapter sur un fichier plus gros où l'on reference les données tous les mois (sachant qu'on réalise en moyenne 200 a 300 controle par jours) il serait intéressante que la date se mette automatique quand le contrôle est réalisé mais biensur que la date ne change pas le lendemain en rouvrant le fichier ^^"

Re,

Ci-joint ton fichier test ...

Tu pourrais même avoir la totale ... jour et heure ... pour 300 Contrôles / Jour ...

James007 a écrit :

Re,

Ci-joint ton fichier test ...

Tu pourrais même avoir la totale ... jour et heure ... pour 300 Contrôles / Jour ...

impeccable c'est ce que je cherchais !

par contre comment l'adapter a mon gros fichier? je copie le script VBA? peux tu me montrer la marche a suivre stp ? de facon a ce qu'il selectionne la bonne cellule de reference?

et le "fait le" n'est pas necessaire ^^" comment puis l'enlever?

encore un grand merci

Re,

Ravi que cela te convienne ...

Pour l'adapter à ton fichier réel ... je te joins la même chose ...avec les commentaires en vert

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   ' Modifier la Valeur 2 en fonction de la colonne
   ' dans laquelle les valeurs sont saisies ...
   If Target.Column <> 2 Then Exit Sub
   If Target.Row = 1 Then Exit Sub
   ' Modifier la Valeur 2 en fonction de la colonne
   ' dans laquelle les dates doivent apparaitre...
   ' 2 pour 2 colonnes de plus que la colonne de saisie ...
   Target.Offset(0, 2) = Date
   Target.Offset(0, 2).Value = Target.Offset(0, 2).Value
End Sub

Pour insérer ce code, il suffit de pointer le nom de la feuille dans laquelle tu en as besoin ..

Faire un clic droit ... et choisir de voir le code ...

Dans la page qui s'ouvre .... tu fais un copier-coller de la macro ...

Voilou ...

En espérant que cela t'aide ...

je teste tout ca pour voir si ca fonctionne avec mon fichier