Si valeur dans colonne alors msg box

Bonjour,

Le but de ma macro est la suivante : lorsque que j'écris dans ma colonne D sur n'importe quel ligne si j'ai le mot "DLU" dans ma phrase un msg box s'affiche, ce msgbox doit s'afficher qu'une seule fois lorsque j'appuie sur entrée car je ne vais pas modifier le contenue de ma colonne D et le msg va s'afficher à chaque fois.

J'ai écris cette macro mais elle ne fonctionne pas, pour la faire fonctionner je dois précisiste une cellule exemple D18, dans ce cas là ça fonctionne mais ducup le msgbox s'affiche à chaque fois :

If ActiveSheet.Range("D").Value Like "*DLU*" Then
MsgBox "Ne pas oublier de noter la nouvelle date dans la case commentaire"
End If

Pouvez-vous m'aider ?

Merci par avance

bonjour,

une proposition de macro événementielle.

code à mettre dans le module de la feuille idoine.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 4 Then Exit Sub
    If Target.Value Like "*DLU*" Then
        MsgBox "Ne pas oublier de noter la nouvelle date dans la case commentaire"
        Cells(Target.Row, "E").Select ' <- à adapter remplacer le E par l'identifiant de la colonne qui contient les commentaires
    End If
End Sub

Bonjour,

Merci beaucoup ça marche très bien. Petite question si à la place de msgbox j'aimerais noter "Nouvelle date :" dans la colonne E quel serait le phrase du code ?

Merci par avance

Bonjour,
Essaie ainsi :

Cells(Target.Row, "E").Value="Nouvelle Date"