Date & Heure auto ds Cellule spécifique

Bonjour à Tous,

J'ai trouvé sur ce forum ce bout de code pour inscrire la date & l'heure automatiquement en inscrivant des données dans la cellule à droite de celle-ci.

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 2 Then

Target.Offset(0, -1) = Now

End If

End Sub

Voilà ce que j'ai besoin:

Quand inscrivant une donnée ds la cellule V4 , que la date & l'heure se mette automatiquement ds la cellule X9.

Est-ce possible?

Merci Beaucoup.

Bonjour,

A tester :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("V4")) Is Nothing Then
        Target.Offset(5, 2) = Now
    End If
End Sub

Bonjour Raja,

Le code fonctionne bien. Je l'ai modifié comme ceci:

If Not Intersect(Target, Range("V4")) Is Nothing Then

Target.Offset(2, 1) = Now

Car j'avais omis de vous dire que ma cellule X9 est fusionnée.

Le résultat n'arrive pas ds la cellule que je veux, mais j'ai fait un =ad9

ds la cellule X9 et j'ai le résultat voulu.

Si jamais vous avez la solution pour que le résultat arrive ds la bonne cellule,

je suis preneur.

Merci Beaucoup d'avoir pris le temps de me répondre.

Bonjour,

J'aurai besoin de voir ton fichier pour savoir exactement ce que tu veux obtenir comme résultat pas une image. De plus tu me dis qu'il y a des cellule fusionnées. Tout cela complique un peu la tâche. Essaye de joindre ton fichier et met quelques lignes d'explications du résultat voulu précisément.

Bonjour Raja,

Si possible, quand inscrivant des données ds la cellule V4, que la date & l'heure se mette automatiquement ds la cellule X9.

En modifiant votre code, le plus proche que je suis arrivé est la cellule AD9. Je ne suis pas arrivé à faire donné le résultat ds la

cellule X9. J'ai donc fait un =AD9 ds la cellule X9 pour avoir le résultat voulu.

Je vous joint mon fichier.

Merci de m'avoir répondu.