Effacer cellule avec condition

[JR.31]

Bonjour

Voici mon souci

En colonne "M" j'ai des annotations style "Garage", "Montés" etc

SI dans la colonne "M" est inscrit "Monté", j'aimerais effacer le contenu de la même ligne dans la colonne "L"

Merci de votre aide

 

[job75]

Bonsoir JR.31,

A placer dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.CountIf([M:M], "monté*") = 0 Then Exit Sub
Dim tablo, i&
tablo = Intersect(UsedRange.EntireRow, [L:M]).Formula
For i = 1 To UBound(tablo)
    If LCase(tablo(i, 2)) Like "monté*" Then tablo(i, 1) = ""
Next
Application.EnableEvents = False 'désactive les évènements
Intersect(UsedRange.EntireRow, [L:L]) = tablo
Application.EnableEvents = True 'réactive les évènements
End Sub

Fonctionne avec Monté Montée Montés monté montée montés etc... en colonne M.

A+