Macro datation action

Fermé
oOPelleOo Messages postés 16 Date d'inscription mercredi 1 juin 2016 Statut Membre Dernière intervention 30 novembre 2017 - 6 sept. 2016 à 12:24
oOPelleOo Messages postés 16 Date d'inscription mercredi 1 juin 2016 Statut Membre Dernière intervention 30 novembre 2017 - 6 sept. 2016 à 13:43
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 6/09/2016 à 13:20
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 mercredi 1 juin 2016 Statut Membre Dernière intervention 30 novembre 2017
6 sept. 2016 à 13:43
Il s'agit d'une de ma part la parenthèse il fugire bien

Je rectifie
0