Problème affichage automatique de la date

Bonjour à tous

J'ai un petit problème, je suis débutant en VBA et je voudrais faire un code qui me permet quand je coche une case d'avoir la date qui s'affiche automatiquement à côté. J'ai presque réussi mais le problème est que n'arrive pas à trouver comment faire pour que cela fonctionne seulement avec les cases cochées avec un "X".

Voici mon début de code:

(pour remplir les cellules date)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 19 Then

Target.Offset(0, 2) = Format(Now, " dd/mm/yy")

End If

End Sub

(pour cocher automatiquement)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target.Value = "X"

End Sub

Si vous avez des idées je suis preneur

Merci

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 Then
if target.value = "X" then Target.Offset(0, 2) = Format(Now, " dd/mm/yy")
End If
End Sub

Bonjour, Taybot , Steelson

A tester avec un double-clic, insère la date n'importe quelle cellule

utilise également une formule SI

Amicalement

Pierrot

Merci !

Merci Pierre, simple et efficace ...