XL 2016 Macro Recherche et remplacer

cardi à dit:

Bonjour,

Etant débutant en VBA, je demande votre aide.

Dans un tableau, j'ai 2 colonnes :

Colonne B, avec des valeurs
Colonne D, avec du texte

Si dans une ou plusieurs cellules de la colonne D il y a un texte comportant le mot "Remise", alors j'aimerai que dans la colonne B, la valeur de la celulle ou des cellules deviennent par défaut 1.

Je joins un petit fichier pour que cela soit plus clair,

Merci d'avance,

CARDI

Cliquez pour agrandir...

Sub test()
    Dim C As Range
    For Each C In [d4:d16] ' ajuster à la plage réelle
        If UCase(C) Like "*REMISE*" Then
            C.Offset(, -2) = 1
        End If
    Next
End Sub