Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [T]) Is Nothing Then Exit Sub
Dim dat As String
Cancel = True
dat = InputBox("Entrez la date que vous voulez affecter à " & Target(1).Address(0, 0) & " :")
If IsDate(dat) Then Creer_Date Target, CDbl(CDate(dat))
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [T]) Is Nothing And Target.Count = 1 And _
LCase(Target(1)) = "c" Then Creer_Date Target, CDbl(Date) 'date du jour
End Sub
Sub Creer_Date(c As Range, dat As Double)
Dim a()
If Not IsArray([Dates]) Then
ReDim a(1 To [T].Rows.Count, 1 To [T].Columns.Count)
Me.Names.Add "Dates", a 'création du nom défini dans la feuille
End If
a = [Dates]
a(c.Row - [T].Row + 1, c.Column - [T].Column + 1) = dat
Me.Names.Add "Dates", a 'modification du nom défini dans la feuille
End Sub