Donner une valeur en fonction du contenu d'une cellule

Bonjour,

Je souhaite en langage VBA, si une cellule colonne F contient "Voiture" reporté sur la même ligne en colonne L l'information "OK".

Je sais le faire sans VBA, mais je souhaite l'intégrer dans mon code.

Merci à vous

Antho19

Bonjour,

Une solution ci-dessous

Sub exemple()
    Dim cell As Range, cell1 As Range

    With ActiveSheet
        Set cell = .Columns("F").Find("voiture")
        If Not cell Is Nothing Then
            Set cell1 = cell
            Do
                .Columns("L").Rows(cell.Row) = "OK"
                Set cell = .Columns("F").FindNext(cell)
            Loop Until cell.Address = cell1.Address
        End If
    End With
End Sub

Super ca marche merci beaucoup

Bonjour toutes et tous,

coucou Thev

à améliorer, remodeler etc.

-une autre façon avec un bouton macro Rechercher ' inputbox ' avec un message pour l'adresse de la cellule, sélectionne le mot et place dans la colonne f Ok si trouvé

ci-joint

crdlt,

André