Bonjour,
Voici mon petit problème.
Il concerne la date figée.
J’ai utilisée votre macro à savoir :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
If Target.Value >= "" Then Range("B" & Target.Row) = Date
End If
End Sub
Elle fonctionne nickel chrome.
Par contre j’ai un souci de protection.
En effet ce fichier Excel a pour but d’être sur un réseau et d’être protégé en partie.
En fait un commercial met son nom et la date de la saisie vient en automatique.
Par contre celle-ci ne doit pas être modifiable manuellement sinon ils ont tendance à modifier cette dernière en l’antidatant (les coquins….)
Actuellement la macro m’indique un message de débogue.
J’ai essayé de voir dans les options des protections mais sans succès
Avez-vous une solution ?
D'avance merci.
El padawan del Excel
Voici mon petit problème.
Il concerne la date figée.
J’ai utilisée votre macro à savoir :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A200")) Is Nothing Then
If Target.Value >= "" Then Range("B" & Target.Row) = Date
End If
End Sub
Elle fonctionne nickel chrome.
Par contre j’ai un souci de protection.
En effet ce fichier Excel a pour but d’être sur un réseau et d’être protégé en partie.
En fait un commercial met son nom et la date de la saisie vient en automatique.
Par contre celle-ci ne doit pas être modifiable manuellement sinon ils ont tendance à modifier cette dernière en l’antidatant (les coquins….)
Actuellement la macro m’indique un message de débogue.
J’ai essayé de voir dans les options des protections mais sans succès
Avez-vous une solution ?
D'avance merci.
El padawan del Excel