Date fixe à partir d'une saisie

Bonjour,

Voici une solution (mais en VBA).

Insérez l'un des codes suivants dans le code événementiel de la feuille
concernée

soit
1) Si B1 renseigné alors date en A1
'***********************
'### Adapter le format de la ###
'### constante FORMAT_DATE ###
Const FORMAT_DATE As String = "dd/mm/yy"
'______________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Address <> "$B$1" Then Exit Sub
Set R = Target.Offset(0, -1)
If IsEmpty(R) Then
R = Date
R.NumberFormat = FORMAT_DATE
End If
End Sub
'***********************

soit
2) Si n'importe quelle cellule en colonne B renseignée
alors inscrire date en A sur la même ligne
'***********************
'### Adapter le format de la ###
'### constante FORMAT_DATE ###
Const FORMAT_DATE As String = "dd/mm/yy"
'______________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Column <> 2 Then Exit Sub
Set R = Target.Offset(0, -1)
If IsEmpty(R) Then
R = Date
R.NumberFormat = FORMAT_DATE
End If
End Sub
'***********************

En espérant que vous n'êtes pas rebuté par le VBA.

Cordialement.

PMO
Patrick Morange

J'ai un petit soucis
Dans une base de données, j'aimerais mette la date de
saisie du jour sur la cellule A1 à partir du moment ou je
saisie dans la cellule B1
Et bien évidemment je souhaiterais que cette date ne soit
plus modifiée par la suite (ce qui n'est pas le cas
d'aujoud'hui())
Merci pour votre aide si c'est possible
A+
Bruno

Merci PMO pour l'astuce même en VBA c'est bon j'ai pu
reprendre le code .
Ah! au fait Bonne année 05

-----Message d'origine-----
Bonjour,

Voici une solution (mais en VBA).

Insérez l'un des codes suivants dans le code
événementiel de la feuille

concernée

soit
1) Si B1 renseigné alors date en A1
'***********************
'### Adapter le format de la ###
'### constante FORMAT_DATE ###
Const FORMAT_DATE As String = "dd/mm/yy"
'______________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Address <> "$B$1" Then Exit Sub
Set R = Target.Offset(0, -1)
If IsEmpty(R) Then
R = Date
R.NumberFormat = FORMAT_DATE
End If
End Sub
'***********************

soit
2) Si n'importe quelle cellule en colonne B renseignée
alors inscrire date en A sur la même ligne
'***********************
'### Adapter le format de la ###
'### constante FORMAT_DATE ###
Const FORMAT_DATE As String = "dd/mm/yy"
'______________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R As Range
If Target.Column <> 2 Then Exit Sub
Set R = Target.Offset(0, -1)
If IsEmpty(R) Then
R = Date
R.NumberFormat = FORMAT_DATE
End If
End Sub
'***********************

En espérant que vous n'êtes pas rebuté par le VBA.

Cordialement.

PMO
Patrick Morange

J'ai un petit soucis
Dans une base de données, j'aimerais mette la date de
saisie du jour sur la cellule A1 Ã partir du moment ou
je

saisie dans la cellule B1
Et bien évidemment je souhaiterais que cette date ne
soit

plus modifiée par la suite (ce qui n'est pas le cas
d'aujoud'hui())
Merci pour votre aide si c'est possible
A+
Bruno

.