XL 2016 Date automatique figée

[Lucio]

Bonsoir, j'aimerais savoir comment pouvoir avoir une date figée automatique en G1 quand A1 est inscrit de chiffres ?
De plus, j aimerais également pouvoir insérer une date auto figée en H1 quand B1,C1,D1, ou E1 est inscrit d'un texte.
Merci de votre aide.

 

[dg62]

Re,

j'ai corrigé une erreur

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
            If IsNumeric(Target) Then Target.Offset(0, 6).Value = Date
        End If
        
        If Not Intersect(Target, Range("B1:E100")) Is Nothing Then
            If Target.Value = "FINI" And Range("A" & Target.Row) > "" Then Range("H" & Target.Row).Value = Date
        End If

End Sub

 

[Lucio]

Re,

j'ai corrigé une erreur

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
            If IsNumeric(Target) Then Target.Offset(0, 6).Value = Date
        End If
       
        If Not Intersect(Target, Range("B1:E100")) Is Nothing Then
            If Target.Value = "FINI" And Range("A" & Target.Row) > "" Then Range("H" & Target.Row).Value = Date
        End If

End Sub

C''est top merci bcp.

 

[dg62]

Version avec effacement de la date si suppression dans la colonne A
effacement de la date si suppression de FINI

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
            If IsNumeric(Target) Then Target.Offset(0, 6).Value = Date
            If Target.Value = "" Then Target.Offset(0, 6).Value = ""
        End If
        
        If Not Intersect(Target, Range("B1:E100")) Is Nothing Then
            If Target.Value = "FINI" And Range("A" & Target.Row) > "" Then Range("H" & Target.Row).Value = Date
            If Target.Value = "" Then Range("H" & Target.Row).Value = ""
        End If

End Sub