Macro datation action

oOPelleOo Messages postés 19 Statut Membre -  
oOPelleOo Messages postés 19 Statut Membre -
Bonjour,

Je suis entrain d'essayer de faire une macro pour inscrite la date de modification de la valeur d'une cellule
En français quand je tape un caractère dans la cellule A1 je souhaite que la date du jour S'AJOUTE dans la cellule voisine

Voici le bout de code que J'ai fait ... problème j'ai une erreur

Subway date auto <>
Primate Sub Worksheet_Change (ByVal Target As Range)
On Error Resume Next
If Not Intersect (Target, [A1] Is Nothing Then
Target (1, 2) = Now
End If
End Sub

Le message d'erreur est " erreur de compilation : en substance attendu"

Je bloque la dessus

Si il existe une solution simple à mon problème je prend
Si je fait fausse merci de me remettre sur la bonne

Si une fonction existe déjà je me jeté en l'air

Merci à vous

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    Primate Sub Worksheet_Change (ByVal Target As Range)
    et il manque une parenthese apres [A1]

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, [A1]) Is Nothing Then
            Target(1, 2) = Now
        End If
    End Sub
    0
  2. oOPelleOo Messages postés 19 Statut Membre
     
    Il s'agit d'une de ma part la parenthèse il fugire bien

    Je rectifie
    0