Ta macro marche dans le fichier mais dès que je veux l'exporter dans un autre elle me marche pas.. Comment as tu fais ?
C'est pour cette raison que je demande toujours que le fichier joint soit le plus représentatif de l'original !
Dans mon code, tu as une condition qui teste si la cellule se trouve bien dans la colonne B (colonne 2) :
'si ce n'est pas la colonne B (2), fin de sub
If Target.Column <> 2 Then Exit Sub
'...
C'est la première qu'il te faut adapter si la clé doit se trouver dans une autre colonne que la colonne B.
Dans la ligne de code qui entre la valeur et qui teste si la cellule de gauche est bien remplie :
If Target.Offset(, -1).Value <> "" Then Target.Value = Format(Now, "YYMMDDHHMMSS")
il te faut adapter l'offset() ici, on regarde si la colonne à gauche (-1) est vide ou pas. Si par exemple la colonne des clés est la colonne E (5) et que la cellule à tester est en colonne C (3) la première ligne sera :
If Target.Column <> 5 Then Exit Sub
et la seconde ligne sera :
If Target.Offset(, -2).Value <> "" Then Target.Value = Format(Now, "YYMMDDHHMMSS")
Bien évidement, la colonne doit être au format texte pour ne pas avoir de notation scientifique !