J'aimerais ecrire la date dans une cellule après avoir saisi des données

C

cj welch

XLDnaute Occasionnel

• 10 Octobre 2008

• #2

Re : J'aimerais ecrire la date dans une cellule après avoir saisi des données

salut

voici une solution.
A1 pour ecrire la valeur
En B1 tu écris =SI(A1>0;AUJOURDHUI();"") format de cellule de b1 (date)

A+

 

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 10 Octobre 2008

• #3

Re : J'aimerais ecrire la date dans une cellule après avoir saisi des données

Bonsoir,
essaye le code
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'écrit dans la colonne A
Target.Offset(0, 1) = Date 'alors mets la date du jour dans la colonne a coté

End If

End Sub

A +

 

Vote positif 0 Vote négatif

blord

XLDnaute Impliqué

• 10 Octobre 2008

• #4

Re : J'aimerais ecrire la date dans une cellule après avoir saisi des données

Bonjour à tous,

Une solution macro :

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

À placer dans la feuille de code de l'onglet concerné

Commentaire sur la formule de cj welch :

Je modifierais la condition pour =SI(A1<>"";AUJOURDHUI();"")
ce qui signifie, si A1 différent de vide....

Benoit Lord

 

Vote positif 0 Vote négatif

B

bleck

Guest

• 2 Octobre 2009

• #5

Re : J'aimerais ecrire la date dans une cellule après avoir saisi des données

Bonjour a tous,

J ai aplique la formule : =SI(A1<>"";AUJOURDHUI();"") qui me va parfaitement, le seul probleme c est que le jours suivant toutes les dates du jour precedent s actualisent. J aimerais pouvoir garder les dates correspondant au jours d ecriture pour chaque cellules.
Merci pour votre aide
Francis

 

Vote positif 0 Vote négatif