XL 2016 Macro Recherche et remplacer

[cardi]

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

 

[JHA]

Bonjour à tous,

Avec une colonne sup

JHA

 

[Jacky67]

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

Bonjour à tous
En vba cela pourrait ressembler à ceci

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

 

[cardi]

Parfait, merci Messieurs