Macro datation action

oOPelleOo Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -  
oOPelleOo Messages postés 16 Date d'inscription   Statut Membre Dernière intervention   -
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


A voir également:

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
oOPelleOo Messages postés 16 Date d'inscription   Statut Membre Dernière intervention  
 
Il s'agit d'une de ma part la parenthèse il fugire bien

Je rectifie
0