Effacer une cellule quand OK est écrit dans 1 autre cellule

Bonjour,

Actuellement, j'essaye de construire un fichier Excel avec des exécutions de taches. Je n'ai aucune connaissance en VBA, je lis beaucoup sur les forums.

J'ai une colonne "observation", je voudrai que lorsque que ma cellule en colonne M soit "ok" alors la case observation s'efface.

J'ai déjà un code VBA pour cette cellule car quand j'écris dans celle-ci elle écrit la date dans la case juste avant :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Columns, Columns(13)) Is Nothing Then
        If Target <> "" Then
            Target.Offset(0, -1) = Now
        Else
            Target.Offset(0, -1) = "Tache à effectuer"
        End If
    End If
End Sub

Pourriez-vous m'aider ?

Merci par avance.

Bonjour,

Il manque des précisions dans ta demande. Essaye ça ou adapte-le à ton cas :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Columns, Columns(13)) Is Nothing Then
        If Target <> "" Then
            If Target = "ok" Then Target.Offset(0, -1) = ""
            Target.Offset(0, -1) = Now
        Else
            Target.Offset(0, -1) = "Tache à effectuer"
        End If
    End If
End Sub

Merci beaucoup !!!!

Ca fonctionne

J'ai juste adapté un mon fichier :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target.Columns, Columns(13)) Is Nothing Then
        If Target <> "" Then
            If Target = "ok" Then Target.Offset(0, 5) = ""
            Target.Offset(0, -1) = Now
        Else
            Target.Offset(0, -1) = "Tache à effectuer"
        End If
    End If
End Sub

Au lieu du -1 c'est 5.

Encore merci,

Bonne journée

Casmaran