david.ridelaire
XLDnaute Junior
Bonjour à tous,
voilà, j'ai une formule de ce type :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 8) = "" Then Target.Offset(0, 8) = Date: Exit Sub
If Target.Column = 5 And Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Date
If Target.Column = 13 And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(0, -2)
If Target.Column = 5 Then
If Target.Value <> "" Then
Range("F" & Target.Row).Font.ColorIndex = 2
Else
Range("F" & Target.Row).Font.ColorIndex = 1
End If
End If
End Sub
Cependant, losque je verrouille la colonne (par le biais de la fonction protection d'excel) dans laquelle j'insère la date,
lorsque j'execute ma macro, elle me renvoie une erreur
quelqu'un aurait-il une solution?
voilà, j'ai une formule de ce type :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 8) = "" Then Target.Offset(0, 8) = Date: Exit Sub
If Target.Column = 5 And Target.Offset(0, 3) = "" Then Target.Offset(0, 3) = Date
If Target.Column = 13 And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Target.Offset(0, -2)
If Target.Column = 5 Then
If Target.Value <> "" Then
Range("F" & Target.Row).Font.ColorIndex = 2
Else
Range("F" & Target.Row).Font.ColorIndex = 1
End If
End If
End Sub
Cependant, losque je verrouille la colonne (par le biais de la fonction protection d'excel) dans laquelle j'insère la date,
lorsque j'execute ma macro, elle me renvoie une erreur
quelqu'un aurait-il une solution?