ClearContents ne fonctionne pas?

Bonjour,

Je me permet de demander votre aide car je suis entrain de réaliser une petite feuille excel. Sur cette même feuille, je dispose d'un tableau à plusieurs entrée où la colonne D est en fait une box à choix multiple.

Cependant, j'aimerais que lorsque la cellule de cette colonne D passe à Shutdown, elle efface tout ce qui est écris dans la cellule C sur la même ligne.

Mon code ressemble à ça :

    Application.EnableEvents = False

'Procedure qui clean la colonne C lorsqu'une interface est à Shutdown
     If Not Application.Intersect(Target, Range("D34", "D" & Rows.Count)) Is Nothing _
          And Target.Value = "Shutdown" Then
              Range(Target.offset(0, -1)).ClearContents
              Exit Sub
     End If
     

et je l'ai évidemment placé dans la Sheet1 (à savoir la feuille ou se trouve mon tableau)

lorsque je spy Target, il rentre bien dans mon if grâce à shutdown, et il voit bien ensuite qu'il y a du texte sur ma colonne CX.

Par contre rien ne se passe.

Si vous avez des idées, je vous remercie par avance !

Bonjour,

A tester dans ton fichier.

Cdlt.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastRow As Long

    lastRow = Cells(Rows.Count, 4).End(xlUp).Row
    If Not Application.Intersect(Target, Range("D34:D" & lastRow)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Target.Value = "Shutdown" Then Target.Offset(0, -1).ClearContents
    End If

End Sub

Le code est parfaitement fonctionnel.

Ca venait donc du compteur pour ma colonne?

Merci beaucoup.