Excel - a la rcherche d une formule

Tu tapes =AUJOURDHUI dans cette cellule.
Mais attention : cette date changera chaque jour où tu ouvriras la feuille.
Si tu veux conserver la date, tu vas dans la cellule, tu fais Copier puis Collage spécial/Valeur.

Bonjour
je ne pense pas qu'il soit possible par formule de mettre une date fixe à partir d'une entrée dans une cellule.
essayez si ceci correspond à ce que vous attendez

1°cas, vous avez une seulle cellule active
clic droit sur le nom d'onglet
choisir: visualiser le code
copier ci dessous et coller dans la fenêtre affichée
la date se placera en B1 si vous entrez une valeur en A1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
'(placer entre guillemets l'adresse de la cellule remplie)
Range("B1").Select
'(placer entre guillemets la cellule recevant la date)
Selection.Value = Date
End If
End Sub


si vous voulez agir sur une colonne en mettant en ligne la date dans la cellule à droite, même opération avec:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Rw As Long
If Target.Column = 1 Then
'(colonne active: mettre n° de colonne de la feuille: ici 1=colonne A)
Rw = Target.Row
Range("B" & Rw).Value = Date
'(cellule avec date: mettre entre guillemets l'adresse de la colonne à dater)
End If
End Sub

qui met la date en B en ligne avec la cellule de A activée par une insertion.Pour l'ajustage du code utiliser les textes qui vont apparaître en vert quand vous aurez coller le libellé.

bonne chance

crdlmnt

Demandons nous si nous ne sommes pas seuls à comprendre ce que l'on explique?

Salut le fil,

Exemple tes saisies se font colonne A tu peux écrire le code plus court

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
Target(1, 2) = Date
End If
End Sub