Activer une macro lorsque je rentre X dans une cellule

Bonjour

je souhaiterais activer une macro selon la condition suivante:

lorsque je rentre la lettre X dans une cellule de la colonne D

je voudrais afficher la date d'aujourd'hui dans la cellule sur la meme ligne de la colonne W

je ne peux pas joindre le fichier Excel

D2=X alors date aujourd'hui=W2

Merci pour votre aide

Paul

Bonjour,

A mettre dans le module de la feuille concernée :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then
        If UCase(Target.Value) = "X" Then
            Target.Offset(, 19) = Date
        Else
            Target.Offset(, 19).ClearContents
        End If
    End If
End Sub

Cordialement.

Salut dragon 13,

Regarde le modèle en PJ.

Sub today()
Dim DerLigne As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet

DerLigne = ws.Cells(65536, 4).End(xlUp).Row

For i = 1 To DerLigne

    If Cells(i, 4).Value = "X" Then

        Cells(i, 23).Value = "=TODAY()"
    End If
Next

End Sub

Mais Mferrand a été plus rapide que moi

BONJOUR

Merci pour votre aide les deux programme fonctionne, mais le deuxième est adapté a mes besoins

merci encore pour votre reponse rapide