JOUB42
XLDnaute Occasionnel
bonjour a tous
Je voudrais mettre une date automatiquement
dans ma colonne A 20 une fois que je saisis un nom dans la cellule F20
j'ai recopié cette formule ci dessous
mais j ai un message d'erreur d'execution (13) quand j efface sur ma cellule F20
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F20:F110")) Is Nothing Then
Target.Offset(0, -5).Value = Now
If Target.Value = "" Then Target.Offset(0, -5).Value = ""
End If
End Sub
merci pour votre aide
JOUB42
Je voudrais mettre une date automatiquement
dans ma colonne A 20 une fois que je saisis un nom dans la cellule F20
j'ai recopié cette formule ci dessous
mais j ai un message d'erreur d'execution (13) quand j efface sur ma cellule F20
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F20:F110")) Is Nothing Then
Target.Offset(0, -5).Value = Now
If Target.Value = "" Then Target.Offset(0, -5).Value = ""
End If
End Sub
merci pour votre aide
JOUB42