Ecriture date automatique

Bonjour,

Je dois écrire automatiquement la date sur mon fichier, sur la plage de données (F35:U35). J'ai réalisé le code suivant, mais ça ne marche pas:

'inscrit la date   LIGNE 35
Set KeyCells = Range("F35:U35")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
If ActiveSheet.Range(Target.Address) = "" Then
SheetUnprotect
ActiveSheet.Range(Target.Address) = Date
End If
sheetsprotect
End If ' if If Not Application.Intersect(KeyCells, Range(Target.Address)) _

Je vous joins le fichier.

Le mot de passe pour rentrer sur la feuille est "seb"

Bonjour

A tester

  'inscrit la date   LIGNE 35
  Set KeyCells = Range("F35:U35")
  If Not Application.Intersect(KeyCells, Target) Is Nothing Then
    If Target = "" Then
      SheetUnprotect
      Target = Date
    End If
    sheetsprotect
  End If 

Je viens de tester, je n'ai toujours rien ...

Bonjour

Par curiosité je viens de tester ton code

En cliquant sur une cellule entre F35 et U35, la date s'inscrit bien dans la cellule

Le code que je t'ai fourni fait exactement la même chose

Alors que veux tu exactement ?

Si tu veux qu'en cliquant sur une cellule de la plage F35:U35 cela te remplisse toute la plage avec la date

Modifies le code

 'inscrit la date   LIGNE 35
 Set KeyCells = Range("F35:U35")
  If Not Application.Intersect(KeyCells, Target) Is Nothing Then
    If Target = "" Then
      SheetUnprotect
'      Target = Date
      KeyCells.Value = Date
    End If
    sheetsprotect
  End If

Merci, c'est bon j'avais fais une erreur dans le recopiage du code ......

Impeccable ça marche.