T
Tommy
Guest
Salut a tous.
Je travail sur un projet qui néccessite VBA. Je veux proteger mon projet excel, mais quand j'applique la protection. VBA me retourne une erreur d'exécution 1004 :
Impossible de définir la propriété de NumberFormat de la classe Range.
et ca, des que le script s'execute.
Voici le script, il envoit tout simple a la rangé suivant l'heure quand une donné est entré.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range('A6:A40'), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = 'dd Mmm yyyy hh:mm:ss'
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub
Quand j'execute le débogage, il me souligne ceci :
NumberFormat = 'dd Mmm yyyy hh:mm:ss'
J'ai essayé en dévérouillant tout les cellules, appliquer la protection... sans succes... meme erreur.
Quelqu'un a une idée ??
Je travail sur un projet qui néccessite VBA. Je veux proteger mon projet excel, mais quand j'applique la protection. VBA me retourne une erreur d'exécution 1004 :
Impossible de définir la propriété de NumberFormat de la classe Range.
et ca, des que le script s'execute.
Voici le script, il envoit tout simple a la rangé suivant l'heure quand une donné est entré.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
If Not Intersect(Range('A6:A40'), .Cells) Is Nothing Then
Application.EnableEvents = False
If IsEmpty(.Value) Then
.Offset(0, 1).ClearContents
Else
With .Offset(0, 1)
.NumberFormat = 'dd Mmm yyyy hh:mm:ss'
.Value = Now
End With
End If
Application.EnableEvents = True
End If
End With
End Sub
Quand j'execute le débogage, il me souligne ceci :
NumberFormat = 'dd Mmm yyyy hh:mm:ss'
J'ai essayé en dévérouillant tout les cellules, appliquer la protection... sans succes... meme erreur.
Quelqu'un a une idée ??